Ms access access 2010 complie错误：未定义标签

收到此代码的错误消息其他代码正在工作

Private Sub Command11FindLastName_Click()

On Error GoTo Err_FindLastName_Click

   Dim Searchstr
   Dim Resp

BeginSearch:

    Searchstr = Left(InputBox("Enter Last Name"), 11)

    Set dbs = CurrentDb

    Set rst = dbs.OpenRecordset("tblRecords", dbOpenDynaset)

    rst.FindFirst ("[Last Name] = " & Searchstr & "")

       If rst.NoMatch Then

            Resp = MsgBox("Last Name " & Searchstr & " not found.  New Search?", vbYesNo)

            If Resp = vbYes Then

                GoTo BeginSearch

            End If

    Else

        Me.Filter = "((tblRecords.[Last Name] = " & Searchstr & "))"

        Me.FilterOn = True

        Me.Refresh

        DoCmd.Close acForm, "MainMenu"

      End If

Exit_FindSSN_Click:

    Exit Sub

Err_FindSSN_Click:

  MsgBox Err.Description

    Resume Exit_FindLastName_Click

End Sub

---

出错时转到Err\u FindLastName\u如果没有匹配的标签行，则单击

失败。。。ie

Err\u FindLastName\u单击：

。。。您的代码不包含该标签。有意义吗？错误在这一行上恢复退出\u FindLastName\u单击确定。。。这基本上是同一个问题。没有

Exit\u FindLastName\u单击：

label to

Resume

at。有一个

Exit\u FindSSN\u单击：

标签，但没有

Exit\u FindLastName\u单击：

标签。你明白我的意思吗？“Label not defined”告诉您问题所在。我还建议您在代码顶部添加一个“Option Explicit”，并对其进行编译。您还有第二个问题…您似乎从另一个子例程复制并粘贴了此代码，然后更改了其中一个名称，但不是全部…当您将其发送回时，我发现我遗漏了一些更改。更正了其余的，现在它工作了。非常感谢。