Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Private Sub Command20_Click() Dim filenm As String, commonDlg As Object filenm = "" Set commonDlg = Application.FileDialog(2) With commonDlg .AllowMultiSelect = False .InitialFileName = "F:\Filename" .Title = "Please select a folder and give the file a name" If .Show = True Then filenm = Trim(.SelectedItems.Item(1)) DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "QRY_SearchAll2", filenm msgbox "Your spreadsheet was saved successfully" Else msgbox "You clicked Cancel in the file dialog box." End If End With 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.