Export Query Data to Excel

[Farida]

Can you please give me step by step instructions on how to export the result of my query from ACCESS database to EXCEL on a BUTTON CLICK.



My butoon name is BUTTON1
Query name is QUERY1
Location of file is \\example.com\doc\EV-GRP\Ventures\Projects\ProjectExecution\MOC_Stuf
File name is EXCEL1

The filename has to be new every time so that previous record are not lost.

Please advice.

[ranman256]

Select the button , look at the properties
In the EVENT tab of the button property, click on the ONCLICK event box, click the elipsis button right of that box,
you will now be in code environment
paste this code

Public Sub BUTTON1_ONCLICK()
Dim vFile, vQry, vSheet


vQry = "QUERY1"
vFile = " \\example.com\doc\EV-GRP\Ventures\Projects\ProjectExecution\MOC_Stuf.xls"
vSheet = "Data"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, vQry, vFile, True, vSheet

End Sub

[Farida]

Thanks....