密码验证代码为何出错？

jp777

根据huanghai的例子我加了个密码验证，因为大部分时刻都是需要密码才能进行登录的。但是为什么报错呢。我以前同样的例子就不报错呢。谢谢。

jp777

谢谢。我终于知道自己错在什么地方了。不是错了一点半点啊。

zyp

将登入的代码修改如下:
Private Sub cmdOK_Click()
    If Me.cboUserID = "" Or IsNull(Me.cboUserID) Then Exit Sub   '没有选择用户不处理
    If Me.Password = "" Or IsNull(Me.Password) Then Exit Sub '没有输入密码不处理
    If Trim(Me.Password) = Trim(DLookup("[password]", "user", "[UserID]=" & Me.cboUserID)) Then
        DoCmd.OpenForm ("Main")
        GuserID = Me.cboUserID
        Call insertLogo("用户登陆")
        Me.Visible = False
    Else
        MsgBox "Password is error,please retype again", vbOKOnly, "Note"
        Me.Password.SetFocus
    End If
End Sub