Private Sub CmdDN_Click()
Dim Msg As Variant
Dim varPassword As String
' Doan code khong cho Control cbUserName trong hay rong
If IsNull(Me.CBUser) Or Me.CBUser = "" Then
MsgBoxUni DLookup("[Description]", "symsglib", "[msgNo] = 13"), vbCritical, DLookup("[msgtitle]", "symsglib", "[msgNo] = 13")
Me.CBUser.SetFocus
Exit Sub
End If
' Doan code khong cho Control txtPassword trong hay rong
If IsNull(Me.txtpass) Or Me.txtpass = "" Then
Msgs = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 13"), vbOKOnly, DLookup("[msgtitle]", "symsglib", "[msgNo] = 13"))
If Msgs = vbOK Then
Me.txtpass.SetFocus
End If
Exit Sub
End If
If CBUser = ID Then
If txtpass = Pass Then
Dim DB As Database
Dim rs As Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("T_loginluu", dbOpenTable)
rs.AddNew
rs.Fields("ID") = CBUser
rs.Fields("time") = txttimer
'....
rs.Update
rs.Close
Set DB = Nothing
varPassword = DLookup("Pass", "T_Login", "ID ='" & Me.CBUser & "'")
If Me.txtpass = varPassword Then
GvarID = Me.CBUser
GvarUserName = User
DoCmd.Close acForm, Me.Name
MainFormOpen
Else
MsgBoxUni DLookup("[Description]", "symsglib", "[msgNo] = 10"), vbCritical, DLookup("[msgtitle]", "symsglib", "[msgNo] = 10")
Me.txtpass.SetFocus
Exit Sub
End If
' DoCmd.Close acForm, "F_login", acSaveYes
Else
Msg = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 10"), vbOKCancel, DLookup("[msgtitle]", "symsglib", "[msgNo] = 10"))
End If
Else
Msg = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 9"), vbOKCancel, DLookup("[msgtitle]", "symsglib", "[msgNo] = 9"))
End If
End Sub
Khi quan tâm đến thẩm mỹ vùng kín. Nhiều chị em hay tìm hiểu: Bác sĩ thẩm mỹ vùng kín giỏi và thẩm mỹ vùng kín ở đâu an toàn Đà Nẵng. Bài viết này sẽ giới thiệu đến các bạn một trong số những bác sĩ...
Các bác sĩ thẩm mỹ vùng kín giỏi và địa chỉ an toàn tại Đà Nẵng