进入【用户登录】窗体,输入用户名和密码,点“登录”按钮。核对【用户信息】表里用户名和密码,若都正确则打开下一个【用户界面】窗口。
Private Sub 登录按钮_Enter()
'验证用户和密码,登录系统
If DCount("[用户名]", "用户信息", "[用户名]='" & Text0 & "'") = 0 Then
MsgBox "请输入正确的用户名!"
ElseIf DCount("[用户密码]", "用户信息", "[用户密码]='" & Text2 & "'") = 0 Then
'Text1为用户名输入框
MsgBox "请输入正确的用户密码!"
ElseIf Nz([Text2]) = Nz(DLookup("[用户密码]", "用户信息", "[用户密码]='" & Text2 & "'")) Then
'Text2为密码输入框
Me.Visible = False
'隐藏窗体
DoCmd.OpenForm "用户界面"
'打开用户界面窗体
Else
'密码错误后的处理
MsgBox "密码错误,请重输!"
End If
End Sub