登录历史记录查询

Henry D. Sy

时间要用#号
DoCmd.RunSQL " insert into 登录记录表(用户名,登录时间)values('" & Me.用户名 & "',#" & now & "#)"

Henry D. Sy

这样简单些

1. Private Sub Command5_Click()
   
2.     If IsNull(Me.用户名) = False Then
   
3.         If DLookup("[密码]", "user", "[用户名]='" & Me.用户名 & "'") = Me.密码 Then
   
4.             msg = MsgBox("密码正确，欢迎进入！", vbOKOnly, "欢迎登陆")
   
5.             CurrentDb.Execute " insert into 登录记录表(用户名)values('" & Me.用户名 & "')"
   
6.             DoCmd.Close
   
7.         End If
   
8.     Else
   
9.         Me.密码 = ""
   
10.         Me.密码.SetFocus
    
11.         MsgBox "请输入正确密码！", vbCritical, "密码错误"
    
12.     End If
    
13. End Sub

复制代码

bluecard

学习了