这段登录窗体代码说是运行错误94,无效使用NULL,百思不解

汤雄杰　发表于：2010-03-01 19:34:17 　

Private Sub 登录_Click() '功能:输入密码后确认
Dim tixing As String, strPass As String, sName As String
If IsNull(Forms!登录!用户名) Then
MsgBox "请先输入用户姓名", vbInformation + vbOKOnly, "提示"
Exit Sub
End If
If IsNull(Forms!登录!密码) Then
MsgBox "密码不能为空", vbInformation + vbOKOnly, "提示"
Exit Sub
End If

strPass = DLookup("密码", "用户信息表", "[用户名]="" & Forms!登录!用户名 & """)

If Forms!登录!密码.Value = strPass Then
DoCmd.Close acForm, "登录"
DoCmd.Close acForm, "窗体背景"
DoCmd.OpenForm "切换面板", acNormal

Else
tixing = MsgBox("密码错误!", 16, "警告")
Forms!登录!密码.SetFocus
Forms!登录!密码 = Null
End If
End Sub

*错误指向是DLookup这条

Top

wang decheng 发表于：2010-03-01 20:47:56

strPass = DLookup("密码", "用户信息表", "[用户名]='" & Forms!登录!用户名 & "'")

Top

王樵民发表于：2010-03-02 10:11:31

strPass = DLookup("密码", "用户信息表", "用户名='" & Forms!登录!用户名 & "'")

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

这段登录窗体代码说是运行错误94,无效使用NULL,百思不解