Private Sub BtnOps_SchedAss_Click()
Dim iExport As String
iExport = ""
iExport = MsgBox("Do you want to Export to Excel?" & vbCrLf & "Export Options ", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton1, "Export")
Select Case iExport
Case vbYes: ' Export Data to Excel File
DoCmd.OutputTo acOutputQuery, "Ops_AssSchedFCastQ", acFormatXLSX, , True
Case vbNo: ' View as Datasheet
DoCmd.OpenQuery "Ops_AssSchedFCastQ", acViewNormal
End Select
End Sub