VBA代码在一个访问数据库中起作用，但不能在另一个访问数据库中工作。所有支持对象都已导入。我没有看到什么？

Question

此代码适用于我设置的登录表单，以输入数据库的前端副本。在一个数据库中，它像魅力一样工作。我将表单和相应的对象导入了另一个数据库，并且在输入它时似乎没有识别我的密码。我只是继续弹出的消息框，上面写着“不正确的密码”。弄清楚这一点的任何帮助都将得到极大的赞赏。

在登录表单上驱动cbouser组合框的SQL语句是：

SELECT tblUser.UserID, [FName] & " " & [LName] AS Fullname, 
       tblUser.Password, tblUser.PWReset, tblUser.AccessLevelID 
FROM tblUser ORDER BY tblUser.LName, tblUser.FName;  

。

Private Sub OkBTN_Click()
    Static intIncorrectCount As Integer
    Dim AuthorityNumber As Integer
    'Dim rs         As Recordset
    
    'TempVars("Username") = Me.cboUser.Value
    
    'Column references for cbouser row source reference
    'UserID = 0
    'FullName = 1
    'Password = 2
    'PWReset = 3
    'AccessLevelID = 4
    
    'Set rs = CurrentDb.OpenRecordset("UserNameQuery", dbOpenSnapshot)
    
    'N = Nz(DLookup("Fullname", "UserNameQuery", "Fullname=""" & Me.cboUser & """"), " ")
    
    'Check that User is selected
    If IsNull(Me.cboUser) Then
        MsgBox "You forgot To Select your name from the drop down menu!", vbCritical
        Me.cboUser.SetFocus
    Else
        'Check for correct password
        If Me.txtPassword = Me.cboUser.Column(2) Then
            
            'Check if password needs to be reset
            If Me.cboUser.Column(3) Then
                DoCmd.OpenForm "frmPasswordChange", , , "[UserID] = " & Me.cboUser
            End If
            
            Me.Visible = FALSE
            intIncorrectCount = 0
            
            'Main menu after correct login based on AuthorityNumber
            If Me.cboUser.Column(4) = 5 Then
                DoCmd.OpenForm "SRL1MainMenu"
                'Forms!AMSReportForm!L2Menubtn.Visible = False
                Forms!SRL1MainMenu!FullNameLoggedIn = Forms!frmLogin!cboUser.Column(1)
            Else
                DoCmd.OpenForm "L2MainMenu2"
                'Forms!AMSReportForm!L2Menubtn.Visible = True
                Forms!L2MainMenu2!FullNameLoggedIn = Forms!frmLogin!cboUser.Column(1)
            End If
            
            'Failed login attempt limitation
        ElseIf intIncorrectCount > 1 Then
            MsgBox "Too many failed login attempts. Click OK To Set New password", vbOK + vbExclamation
            DoCmd.OpenForm "frmPasswordChange", , , "[UserID] = " & Me.cboUser
            'DoCmd.Close acForm, "frmLogin"
        Else
            MsgBox "Incorrect password", vbOKOnly + vbExclamation
            
            Me.txtPassword = Null
            Me.txtPassword.SetFocus
            intIncorrectCount = intIncorrectCount + 1
        End If
    End If
    
End Sub

Answer 1

首先， @andre可能是正确的 - 您可能必须将括号应用于“密码”。

接下来，这可能不会执行案例敏感的比较：

If Me.txtPassword = Me.cboUser.Column(2) Then

使用strcomp这样做：

If StrComp(Me!txtPassword.Value, Me!cboUser.Column(2), vbBinaryCompare) = 0 Then

最后，您绝不应该存储普通密码；代替存储哈希值。这并不困难，如果您研究我的最新文章：

使用Microsoft ng ng加密（CNG）API 存储在VBA中存储密码