Save As

[mark curtis]

Dear all,

I want to use the

Application.GetSaveAsFilename

But want the code to save the file in Excel format and also prompt if it is to overwrite?

Thanks
Mark

 

[smed]

See This Thread (Hope the above address is correct, first time posting Url's

You will need to change the commondialog properties to save with "*.xls" instead of "*.txt"

And then change the command in the procedure "Private Sub btn_Save_Click()" from displaying the msgbox to
DoCmd.TransferSpreadsheet acExport, 8, "[Table/Query source", FilePath, True, ""


Smed