怎么用access中的窗体做一个登录界面，而且可以用
1个回答
展开全部
用dlookup函数教研密码是否正确，这是这项技术的关键。
Private Sub login_Click()
If IsNull(Me.用户名) Then
MsgBox "请输入用户名！", vbExclamation
ElseIf IsNull(密码框) Then
MsgBox "请输入密码！", vbExclamation
ElseIf key1 = DLookup("密码", "用户信息表", "用户名 = '" & Me.用户名 & "'") Then
DoCmd.OpenForm "登录界面" '打开登录界面
Else
MsgBox "密码不正确！", vbExclamation
End If
End Sub
效果如下：
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
