Office中国论坛/Access中国论坛

标题: 登录窗体不知道为什么无法建立，求各路大神指教！ [打印本页]

作者: ma522963889 时间: 2016-7-31 13:06
标题: 登录窗体不知道为什么无法建立，求各路大神指教！
Option Compare Database
Private Sub 退出_Click()
DoCmd.Quit
End Sub

Private Sub Load_Click()
Dim username As String
Dim password As String
If IsNull(username) Or IsNull(password) Then
      MsgBox "用户名或密码不能为空，请重新输入！", vbokony + vbInformation, "错误信息"
Else
      password = DLookup("密码", "用户表", "用户名='" & Me.username & "'")
      If Me.password = password Then
         MsgBox "登录成功", vbInformation, "登录成功"
         DoCmd.Close
         DoCmd.OpenForm "仓库管理系统"
      Else
         MsgBox "用户名或密码不正确，请重新输入！", vbOKOnly + vbInformation, "错误信息"
         usernme.SetFocus
         username.Value = ""
         password.SetFocus
         password.Value = ""
         username.SetFocus
      End If
End If
End Sub

作者: tmtony 时间: 2016-8-1 11:17
有什么出错?

作者: ma522963889 时间: 2016-8-1 14:47

tmtony 发表于 2016-8-1 11:17
有什么出错?

就是登录不进去，不知道为什么。里面有一个用户表，分别是用户名和密码，想与此连接起来，做一个登录的窗体，但是无法实现，不知道是出了什么问题，如图！
[attach]59685[/attach]

作者: tmtony 时间: 2016-8-3 10:10
username 是变量
那username.value 这样写就是错的
只有控件才能用 value

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