主页 / dba / 问题 / 266072
Accepted
Kiran Chapidi
Asked: 2020-04-30 01:52:05 +0800 CST

无法登录到 MS Access 数据库

  • 772

下面是一些授权用户登录 MS Access 数据库的 VBA 代码。我正在尝试修复此代码，但我不明白此代码段中有什么问题。

Private Sub cmdLogin_Click()
Dim lngUserID As Long
    lngUserID = Nz(DLookup("UserID", _
    "tblUser", "username = '" _
    & Me!cbousername _
    & "' AND Password = '" _
    & Me!txtPassword & "'"), 0)
    If lngUserID = 0 Then
        MsgBox "Username and/or password are incorrect."
        Me!txtPassword.SetFocus
    Else
        MsgBox "Registration successful!"
        OptionSetting "CurrentUserID", CStr(lngUserID)
        DoCmd.Close acForm, Me.Name
        DoCmd.OpenForm "Homepage"
    End If
      SetWebControlAsIE9
    ChangeWebControlFeature
END SUB

VBE 中的调试器显示以下以黄色突出显示的代码。有人可以帮助我了解问题所在吗？

lngUserID = Nz(DLookup("UserID", _
    "tblUser", "username = '" _
    & Me!cbousername _
    & "' AND Password = '" _
    & Me!txtPassword & "'"), 0)
ms-access vba

1 个回答

  1. Best Answer

    我建议您使用此链接中解释的登录系统，而不是从表中查找匹配的用户名和密码。您只需将演示数据库中的表单和代码从链接导入您的数据库。您还将获得密码更改表格和密码重置选项。我在我的项目中使用了相同的方法。我还采用（建议你也这样做）存​​储加密密码的方法来防止用户密码，以防数据库被泄露。如果您在这方面也需要任何帮助，我很乐意提供帮助。

    • 1

相关问题