Office中国论坛/Access中国论坛

标题: 再次请教密码登陆问题 [打印本页]

作者: deven1116 时间: 2005-12-29 19:49
标题: 再次请教密码登陆问题
[attach]15049[/attach]

我在登陆界面登陆按钮实现不了登陆了，我的密码是用户名：abc 密码：abc

11 11

sale sale

求各位帮我看看，怎么才能实现登陆。（现在问题是本来的密码显示密码错误）

作者: 一点通 时间: 2005-12-29 20:02
以后同一问题不要另开新贴

Private Sub 用户登陆_Click()
Dim stemp As String
If IsNull(Me![密码]) Then
MsgBox "请输入密码!", vbInformation, "输入密码"
Me![密码].SetFocus
Else
If IsNull(Me.Text6) Then
      MsgBox "请输入用户名!", vbInformation, "提示"
Else
      If Me.Text6 = DLookup("用户名", "系统用户", "密码='" & [密码] & "'") Then
         Dim stDocName As String
         Dim stLinkCriteria As String

         stDocName = "主窗体"
         DoCmd.OpenForm stDocName, , , stLinkCriteria

      Else
         MsgBox "您输入的密码不正确", vbCritical, "密码错误"
         Me.Requery
         Me![密码].SetFocus
      End If
End If
End If
exit_用户登陆_click:
Exit Sub
Resume exit_用户登陆_click:
End Sub

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