为何MsgBox弹窗两次？登录表单跳转逻辑异常技术问询

嘿，我碰到过不少Access表单里这种MsgBox弹两次的问题，大概率是你的登录按钮逻辑里没及时终止代码执行导致的！让我给你捋捋问题出在哪，怎么解决。

问题根源分析 #

你说培训师登录时先弹“登录成功”，紧接着又弹“登录失败”，但数据能正常显示——这说明代码确实找到了匹配的培训师记录，执行了成功的分支，但之后没停下来，继续跑到了失败提示的代码块里。举个例子，你的原始代码可能是这样的：

Private Sub Command9_Click()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Users WHERE Username='" & Me.txtUsername & "' AND Password='" & Me.txtPassword & "'")
    
    If Not rs.EOF Then
        If rs!Role = "Trainer" Then
            MsgBox "登录成功"
            DoCmd.OpenForm "frm3_Main Menu"
            DoCmd.Close acForm, Me.Name
        End If
        If rs!Role = "Member" Then
            MsgBox "登录成功"
            DoCmd.OpenForm "frm2_Member Class Registration"
            DoCmd.Close acForm, Me.Name
        End If
    End If
    
    MsgBox "登录失败"
End Sub

你看，即使找到了培训师用户，执行完跳转后，代码还会继续往下走，最后触发那个“登录失败”的MsgBox——这就是弹窗两次的原因！

修正后的代码 #

把代码改成这样就解决了：

Private Sub Command9_Click()
    Dim rs As Recordset
    Dim strSQL As String
    
    strSQL = "SELECT Role FROM Users WHERE Username='" & Me.txtUsername.Value & "' AND Password='" & Me.txtPassword.Value & "'"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    If Not rs.EOF Then
        ' 找到匹配用户，根据角色处理跳转
        Select Case rs!Role
            Case "Trainer"
                MsgBox "登录成功"
                DoCmd.OpenForm "frm3_Main Menu"
            Case "Member"
                MsgBox "登录成功"
                DoCmd.OpenForm "frm2_Member Class Registration"
            Case Else
                MsgBox "未知用户角色，请联系管理员"
                rs.Close
                Set rs = Nothing
                Exit Sub
        End Select
        
        ' 关闭当前登录表单
        DoCmd.Close acForm, Me.Name
        rs.Close
        Set rs = Nothing
        Exit Sub ' 直接终止过程，避免执行后面的失败提示
    End If
    
    ' 走到这里说明没有找到匹配用户
    MsgBox "登录失败，请检查用户名和密码"
    rs.Close
    Set rs = Nothing
End Sub

这里的关键调整：

• 用Select Case处理角色判断，逻辑更清晰；
• 成功登录并跳转后，用Exit Sub直接终止整个过程，不会再执行后续代码；
• 把失败提示放在“未找到匹配记录”的分支里，只有真的登录失败时才会触发。

额外安全建议 #

顺便提醒一句，直接把用户名密码拼进SQL语句里容易有SQL注入风险，最好用参数查询来优化，代码示例如下：

Private Sub Command9_Click()
    Dim qdf As QueryDef
    Dim rs As Recordset
    Dim strSQL As String
    
    strSQL = "SELECT Role FROM Users WHERE Username=? AND Password=?"
    Set qdf = CurrentDb.CreateQueryDef("", strSQL)
    
    ' 设置参数值，避免SQL注入
    qdf.Parameters(0) = Me.txtUsername.Value
    qdf.Parameters(1) = Me.txtPassword.Value
    
    Set rs = qdf.OpenRecordset()
    
    If Not rs.EOF Then
        Select Case rs!Role
            Case "Trainer"
                MsgBox "登录成功"
                DoCmd.OpenForm "frm3_Main Menu"
            Case "Member"
                MsgBox "登录成功"
                DoCmd.OpenForm "frm2_Member Class Registration"
            Case Else
                MsgBox "未知用户角色，请联系管理员"
                rs.Close
                Set qdf = Nothing
                Set rs = Nothing
                Exit Sub
        End Select
        
        DoCmd.Close acForm, Me.Name
        rs.Close
        Set qdf = Nothing
        Set rs = Nothing
        Exit Sub
    End If
    
    MsgBox "登录失败，请检查用户名和密码"
    rs.Close
    Set qdf = Nothing
    Set rs = Nothing
End Sub

你把代码改成这样测试一下，应该就不会出现两次弹窗的问题了。如果还是有异常，可以检查一下按钮的OnClick事件是不是重复绑定了，或者表单有没有其他事件（比如BeforeUpdate）也写了登录相关的代码哦！

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