用DLOOKUP函数做的登陆的代码，显示参数错误

菜籽　发表于：2012-03-21 16:43:18 　

个人做的一个登陆代码，但DLOOKUP的函数一直显示错误“您所输入的作为查询参数的表达式产生这一错误“admin””。请哪位大师指点下，问题出在哪，谢谢了。

代码如下

Private Sub 登陆_Click()

If IsNull(Trim(Me.用户名)) Then
DoCmd.Beep
MsgBox ("请输入用户名称！")
Else
If IsNull(Trim(Me.密码)) Then
DoCmd.Beep
MsgBox ("请输入密码！")
Else
If Me.密码.Value = DLookup("密码", "用户表", "用户名=" & Me.用户名.Value) Then
MsgBox ("欢迎使用**管理系统！")
DoCmd.OpenForm ("主窗体")
Exit Sub
Else
DoCmd.Beep
MsgBox ("没有这个用户或密码有误，请重新输入！")
Me.用户名 = ""
Me.密码 = ""
Me.用户名.SetFocus
End If
End If
End If

End Sub

Top

煮江品茶发表于：2012-03-21 17:13:53

DLookup("密码", "用户表", "用户名='" & Me.用户名.Value & "'")

Top

菜籽发表于：2012-03-21 17:27:45

按老师的建议更改后，使用正确的账户和密码都提示“没有这个用户或密码有误，请重新输入！”？

Top

小新发表于：2012-03-21 17:49:07

DLookup("密码", "用户表", "[用户名]= '" & Me![用户名] & "'")

Top

菜籽发表于：2012-03-21 18:58:01

点击下载此附件

附上附件，请各位老师看下哪里出问题了

Top

煮江品茶发表于：2012-03-21 19:53:41

Private Sub 登陆_Click()
    If IsNull(Trim(Me.用户名)) =False and IsNull(Trim(Me.密码))=false Then
        If Me.密码.Value = DLookup("密码", "用户表", "用户名=" & Me.用户名.Value) Then
             DoCmd.OpenForm ("主窗体")
        else
             msgbox "密码错误！"
        end if
    Else
         MsgBox ("用户名和密码不能为空！")
    End If
End Sub

Top

煮江品茶发表于：2012-03-21 19:54:23

Private Sub 登陆_Click()
    If IsNull(Trim(Me.用户名)) =False and IsNull(Trim(Me.密码))=false Then
        If Me.密码.Value = DLookup("密码", "用户表", "用户名='" & Me.用户名.Value & "'") Then
             DoCmd.OpenForm ("主窗体")
        else
             msgbox "密码错误！"
        end if
    Else
         MsgBox ("用户名和密码不能为空！")
    End If
End Sub

Top

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

Access交流中心

用DLOOKUP函数做的登陆的代码，显示参数错误