如何在Microsoft访问中使用Dlookup

Question

我正在尝试使用DLookup来检查数据库值的文本字段，除了它在我尝试这样做时返回错误。 MemberID是用户名，使用txtUsername字段找到，密码显然是密码，都是从Member表中检索的。

以下是代码：

Private Sub btnLogin_Click()

If Me.txtPassword.Value = DLookup("[Password]", "Member", "MemberID = 
Me.txtUsername.Value") Then
MsgBox "Access Granted", vbInformation, "CD Shop"
MsgBox "Welcome", vbInformation, "CD Shop"
DoCmd.Close
DoCmd.OpenForm "frmGymActivity"

Else
MsgBox "Please re-enter your Username and Password."
End If
End Sub

Answer 1

您需要使用正确的引号和字符串连接，以确保传递的字符串包含您想要的值。

If Me.txtPassword.Value = DLookup("[Password]", "Member", "MemberID = " & Me.txtUsername.Value) Then

我假设MemberID是一个数字。