Error handling syntax issue

[scottb]

Hi everyone.
I am trying to put error handling in a before update event I'm using on a subform (subfrmProgramLeadership)with the following and receive a syntax error on the first line. Haven't seen this before. Appreciate any guidance. Thank you! - Scott

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo subform_BeforeUpdate_Err
Dim strCriteria As String
strCriteria = " ResourceID=" & Me.ResourceID & " AND ProgramID=" & Me.ProgramID
If DCount("ResourceID ", "tblProgramLeadership", strCriteria) > 0 Then
MsgBox "This resource is already on the leadership team", vbInformation, "Duplicate Resource Alert"
Cancel = True
Me.Undo
End If
GoTo subform_BeforeUpdate_Exit:
Exit Sub
GoTo subform_BeforeUpdate_Err:
MsgBox Err.Description, vbCritical, "Error"
Resume GoTo subform_BeforeUpdate_Exit
End Sub

[HansV]

The label names are incorrect; they should not contain the word GoTo:

GoTo subform_BeforeUpdate_Exit:

should be

subform_BeforeUpdate_Exit:

and

GoTo subform_BeforeUpdate_Err:

should be

GoTo subform_BeforeUpdate_Err:

Finally, there shouldn't be a GoTo after Resume:

Resume subform_BeforeUpdate_Exit

[scottb]

Thank you Hans.