I have a form that has the following code on the AfterUpdate property, it is printing an ID Label for the record that has just been added. The label prints but then Access gives me the Run-time error. Any help would be greatly appreciated.
I tried turning off Echo and Warnings but I still received the error.
Code:
Private Sub Form_AfterUpdate()
DoCmd.OpenReport "rptPrint_ClaimTag_Item", acViewNormal
DoCmd.SelectObject acReport, "rptPrint_ClaimTag_Item"
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "rptPrint_ClaimTag_Item"
End Sub
I tried turning off Echo and Warnings but I still received the error.
Code:
Private Sub Form_AfterUpdate()
Application.Echo False
DoCmd.SetWarnings False
DoCmd.Hourglass True
DoCmd.OpenReport "rptPrint_ClaimTag_Item", acViewNormal
DoCmd.SelectObject acReport, "rptPrint_ClaimTag_Item"
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "rptPrint_ClaimTag_Item"
DoCmd.Hourglass False
DoCmd.SetWarnings False
Application.Echo True
End Sub