Choosing the right backup solution for your organization can be a daunting task. To make the selection process easier, ask solution providers these 10 key questions.
Private Sub btnOpusRAMMFormat_Click() Dim strInput As Integer Dim strFileName As String Dim strText As String On Error Resume Next strInput = InputBox("Enter Status") Forms![FrmMisc]![txtStatus] = strInput strText = InputBox("Enter any text you might want this included in the file name, eg Nov2007. DO NOT INCLUDE ANY BLANKS!!") strFileName = "M:\ThamesC0901\Reports\OpusRAMMExportStatus" & strInput & strText & ".xls" DoCmd.SetWarnings False DoCmd.OpenQuery "delOpusRammExport" DoCmd.OpenQuery "appOpusExport" DoCmd.OpenQuery "updOpusRammStep1" DoCmd.OpenQuery "updOpusRammStep2" DoCmd.OpenQuery "delOpusRammExportTemp" DoCmd.OpenQuery "appOpusExportTemp" DoCmd.TransferSpreadsheet acExport, , "OpusRAMMExportTemp", strFileName, , , True 'DoCmd.OutputTo acOutputQuery, "qryOpusExportRAMMFormat", acFormatXLS, strFileName, True MsgBox "Finished. Check spreadsheet in M:\ThamesC0901\Reports\..." DoCmd.SetWarnings True 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.