MS Access注册表单出现“Compile Error: Label not defined”编译错误求助

嘿，这个编译错误我太熟悉了！咱们一步步来拆解问题：

错误根源分析 #

你看到的「Compile Error: Label not defined」，核心原因是代码里用了On Error GoTo ErrHandler:，但从头到尾都没定义ErrHandler这个标签——VBA找不到这个跳转目标，自然就报错了。另外你的代码还有几处不完整和拼写错误，这也是导致问题的诱因。

具体修复步骤 #

我把需要调整的地方列出来，你跟着改就行：

• 补全错误处理标签块
  必须在代码末尾添加ErrHandler标签对应的错误处理逻辑，不然VBA不知道出错了该跳去哪里。同时建议加一个ExitSub标签，确保正常流程也能正确退出。

• 补全未完成的MsgBox调用
  你定义了msg、Style、Title三个变量，但没实际调用MsgBox函数，也没处理用户的选择（是/否），这部分得补上。

• 修正拼写错误

  • requiered → required（拼写错误）
  • sumbit → submit（拼写错误）

• 规范控件引用
  引用表单控件时加上Me.前缀（比如Me.UserID），这是Access VBA的规范写法，能避免变量名和控件名冲突。

修正后的完整代码 #

Option Compare Database
Private Sub Command61_Click()
On Error GoTo ErrHandler:
    Dim msg As String
    Dim Style As Integer
    Dim Title As String
    Dim Response As Integer
    
    ' 检查UserID是否为空
    If IsNull(Me.UserID) Then
        MsgBox "You have not entered information", , "Error"
    ' 检查用户名和密码是否必填
    ElseIf IsNull(Me.UserName) Or IsNull(Me.Password) Then
        MsgBox "The user name and password fields are required", , "Error"
    ' 确认提交
    Else
        msg = "Do you want to submit your information?"
        Style = vbYesNo + vbCritical
        Title = "Registration Confirmation"
        Response = MsgBox(msg, Style, Title)
        
        ' 根据用户选择执行操作
        If Response = vbYes Then
            ' 这里替换成你的实际提交逻辑，比如把数据写入用户表
            ' 示例：DoCmd.RunSQL "INSERT INTO Users (UserID, UserName, Password) VALUES ('" & Me.UserID & "', '" & Me.UserName & "', '" & Me.Password & "')"
            MsgBox "Registration successful!", vbInformation
        Else
            MsgBox "Registration cancelled.", vbInformation
        End If
    End If

' 正常退出流程
ExitSub:
    Exit Sub

' 错误处理逻辑
ErrHandler:
    MsgBox "Error occurred: " & Err.Description, vbExclamation
    Resume ExitSub
End Sub

额外提示 #

• 如果你要写入密码，建议不要明文存储，最好做简单加密处理（比如用Access内置的加密函数）
• 确保表单上的控件名称和代码里的UserID、UserName、Password完全一致，不然会出现「找不到控件」的错误

内容的提问来源于stack exchange，提问作者user9665013