Office中国论坛/Access中国论坛

标题: 密码验证代码为何出错？ [打印本页]

作者: jp777 时间: 2009-7-6 00:37
标题: 密码验证代码为何出错？
根据huanghai的例子我加了个密码验证，因为大部分时刻都是需要密码才能进行登录的。但是为什么报错呢。我以前同样的例子就不报错呢。谢谢。[attach]38778[/attach]

作者: zyp 时间: 2009-7-6 08:25
将登入的代码修改如下:
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

作者: jp777 时间: 2009-7-6 10:41
谢谢。我终于知道自己错在什么地方了。不是错了一点半点啊。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)