Button to export using DoCMD

[trident]

I have created a report that I am going to export to excel. In a form i prepared a button for this, and the button is ON CLICK, below is the command i copied from the net:



Sub export_report_to_excel()
Dim rptname As String
rptname = "dt2 export"
DoCmd.OutputTo acOutputReport, "dt2 export", acFormatXLS, "C:\LIBRARIRES\DOCUMENT\DT2eXPORT.XLS", True

End Sub

My problem is that when I save the same, and click the button, nothing happens, when I return to the design view, the ON CLICK is blank and when I open the code, it always brings me to the below blank code:


Private Sub Command22_Click()


End Sub

Can you please assist me on this small project.

thank you.

Trident

[Micron]

You don't say where you are initiating this from - property sheet or vb editor. It's been my experience that sometimes if I choose the object and event while in the vb editor, then write code for it, the connection does not seem to be made to the form object - even if [Event Procedure] is showing on the property sheet after doing so. The 'connection' I refer to means the event would not run until I clicked the builder button on the property sheet event line. This took me to the code I had written - and the event would run thereafter. So, I'm saying it's best to create all events associated with db objects by using the property sheet to begin with. Not sure if this is a bug that creeps in after a lot of design changes and no compact/repair ever having been done or what.

However, it does not explain why your written code is missing. For that, I can't think of what it could be besides you not saving your changes? Two similar procedures, one not 'connected'?

[davegri]

Maybe this would work:

Private Sub Command22_Click()
    Call export_report_to_excel
End Sub

[Micron]

Guess I misunderstood. I thought you had put that code in your own sub.