Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
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.