Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.