Code:
Private Sub Export_Client_Data_Click() On Error GoTo Err_Export_Client_Click Dim stDocName As String stDocName = "Export_Client_Data" DoCmd.OpenQuery stDocName, acNormal, acEdit DoCmd.OutputTo ObjectType:=acOutputTable, ObjectName:="Client_Data", Outputfile:="c:\Clients\Client Data.xlsx", AutoStart:=True
Leave a comment: