Error running code from Switchboard

[Guest]

Hi,

Below is my code in a module to run reports from a switchboard button. When
I try to run the reports, I get "There was an error executing the command"
error.

What am I doing wrong? TIA. Allan

Sub PrintAssignments()
On Error GoTo Err_PrintAssignments

Dim stDocName As String
Dim i As Integer

i = 1

Do Until i = 16
stDocName = "rptVA" & i
DoCmd.OpenReport stDocName, acNormal
i = i + 1
Loop
Exit Sub

Exit_PrintAssignments:
Exit Sub

Err_PrintAssignments:
MsgBox Err.Description
Resume Exit_PrintAssignments

End Sub

 

[Guest]

What line produces the error?

I'll bet this won't help, but you should probably change your statement to:
stDocName = "rptVA" & CStr(i)

Barry

 

[Guest]

Thanks for the response, Barry.

This code worked fine as an onclick event in a form, so I don't think there
is an error in the code itself.

I'm guessing the error is how I'm calling the module from the Switchboard --
using the Switchboard manager, I added a button, selected "Run Code" as the
command and put "PrintAssignments" in the function name box.

I can run the code from within VBA without a problem but cannot from the
switchboard (as already stated) or from the module window in Access.

Any other ideas on what I'm failing to do?

Thanks again. Allan

 

[Guest]

Try changing the routine from a Sub to a Function.

Barry

 

[Guest]

That didn't work -- I get the same error. Thanks for the suggestion

Allan