run report and save automatically VBS

[jairgarza]

Hi there,

I have a Form (AP Reports) that has a button that opens a Report (OF Specific), which is based on a Query that asks for input (Start Date). What I want to do is once the button is clicked to get the report to run, query will ask input date and save the report.. here's what I have, it works it is just that you need to click the save button (Command13_Click) to get it to save, I want it to be with out the click... any ideas?

Private Sub Command13_Click()
Dim RName, RPath, RSaveas, GetUsername As String


Dim dateadded As String




GetUsername = Environ("username")
dateadded = Format([Start Date], "mm-dd-yy")
RName = "OF " & dateadded & ".pdf"
RPath = "C:\Users" & GetUsername & "\Desktop"
RSaveas = RPath & RName
MsgBox "The report will be saved in your Desktop as: " & Chr(13) & Chr(10) & RName
DoCmd.OutputTo objecttype:=acOutputReport, Objectname:="OF Specific", outputformat:=acFormatPDF, Outputfile:=RSaveas, autostart:=False, outputquality:=acExportQualityPrint
DoCmd.Close
DoCmd.OpenForm "AP Reports", , acDialog
End Sub

[orange]

This does not do what you think

Dim RName, RPath, RSaveas, GetUsername As String

With Access you must explicitly Dim your variable data types. If you do not they will automatically be Variants.

So Dim RName as String, RPath as String OR
Dim RName as String
Dim RPath as String

You're using a button --not sure what other event(s) you could use.

[jairgarza]

Thanks for your reply orange, even if is not what I asked

I am not sure what you are trying to teach me, if I do not declare them, process stops (debug)....

What I am trying to do is what the button does, but sort of "on load" yet on load does not work, it crashes... it errors on Objectname ... "this action cannot be carried out while processing a form or report event" - I do need to use value in Expr1 (Prints on report) box as the Date since it will not take the one from the Query... any suggestions?

Again, thanks for trying to help

[orange]

My previous post was meant to show you an error in your Dim statement.
You must explicitly dim your variables; else they re variant data type(default).

The last line

You're using a button --not sure what other event(s) you could use

was specific to your issue. You are using a button, what else (other than click) can/did you think you could do to make something happen?
Other events for command button

You could have a Form and have a calendar or a list of Dates to be used with your report.

You could select the appropriate date, then click a Make Report button that would
Open the Report and pass an Open argument (the Date) to the Report. (requires coding)

There is an example here.