Compile Error

[MelF]

I have the following code in a command button:

Private Sub PackingSlipButton_Click()
On Error GoTo Err_PackingSlipButton_Click

Dim stDocName As String

stDocName = "EmployeePackingSlip"
DoCmd.OpenReport stDocName, acPreview

Exit_PackingSlipButton_Click:
Exit Sub

Err_PackingSlipButton_Click:
MsgBox Err.Description
Resume Exit_Preview_Report_Click

End Sub

When I click the button I get the error, "Compile Error: Label Not Defined". Everything appears fine to me, and is referenceing correct objects. Anyone know what might be going on?

 

[WilsonM]

In the following part of your code there is mistake.


Exit_PackingSlipButton_Click:
Exit Sub

Err_PackingSlipButton_Click:
MsgBox Err.Description
--> Resume Exit_Preview_Report_Click

it should be: Exit_PackingSlipButton_Click

Later,

Wilson

 

[MelF]

Thank you so much for your catch!!! Problem solved!!!!!