2501 error

[RuralGuy]

Two approaches.



1) Re-open the appointmentschedulerfrm in the Close event of the report, which will happen with NoData as well.

2) This is untested but should also work and my preferred method:

Private Sub Command6_Click()
On Error GoTo Command6_Click_Err
' Hide this form while report is open
Me.Visible = False
 'Preview a Report
      DoCmd.OpenReport "appttblstaffdateselectedrpt", acViewPreview, "", "", acDialog'previews report
'
'With the the WindowMode of acDialog, the OpenReport command will keep this form open (hidden if you like) and halt the code
'execution in this form right here. When the report completes ir is made invisible, code execution begins agaun right here.
'
Me.Visible = True
'Print a Report
   ‘           DoCmd.OpenReport "appttblstaffdateselectedrpt", acViewNormal, "", "", acDialog       'prints report
Command6_Click_Exit:
    Exit Sub
Command6_Click_Err:
        MsgBox "An error has occurred. Please start over. ", vbOKOnly, ""


         'DoCmd.Close        'closes current form
    'DoCmd.OpenForm "appointmentschedulerfrm", acNormal, "", "", , acNormal                 'opens form
 
    Resume Next
 
End Sub

Please ask questions if you have some.

[RuralGuy]

The advantage of using the acDialog parameter is that the Report does NOT need to know who called it. It just exits and goes back to whatever called it.

[Roncc]

I just did. See my post #29

[RuralGuy]

I just did. See my post #29

Got 'em, thank you.

[Roncc]

I placed the code DoCmd.OpenForm "appointmentschedulerfrm", acNormal, "", "", , acNormal in the close event of the report. I then placed the code you presented in the click event of the button that tells the report to print. I still get the error.

Ron C

[RuralGuy]

Comment out the code in the Close event of the report. It should only be in one place.

[Roncc]

Didn't work. I've found that if I place the following code in the OnError event for the button the error message does not display.

MsgBox "An error has occurred. Please start over. ", vbOKOnly, ""
DoCmd.SetWarnings False
'MsgBox Err & " " & Error$ ‘this captures the error code
DoCmd.Close 'closes current form
DoCmd.SetWarnings True
DoCmd.OpenForm "appointmentschedulerfrm", acNormal, "", "", , acNormal 'opens form


I think I'll go with that. Thanks for all the help. I really appreciate all the time you and the others have provided to assist me.

Ron C

[RuralGuy]

Go with what works. Have fun.