MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Private Sub cmdExport_ALLORGS_Click() 'On Error GoTo Err_cmdExport_ALLORGS_Click Dim username As String, stDocName As String, stFilename As String If MsgBox("Click YES to export all Allotments to Excel, NO to export current Allotment.", vbYesNo, "Export Options") = vbYes Then 'stDocName = "QryRecapTest_ExcelOutputALL" Else stDocName = "Copy of Allot_Q" End If DoCmd.OutputTo acOutputQuery, "Copy Of Allot_Q", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityScreen 'Exit_cmdExport_ALLORGS_Click: ' Exit Sub 'Err_cmdExport_ALLORGS_Click: ' MsgBox Err.Description ' Resume Exit_cmdExport_ALLORGS_Click End Sub