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
Nguyên vật liệu để thực hiện vòng tay handmade bằng dây mà bạn cần chuẩn bị gồm: kéo, hạt đục lỗ, chỉ màu và dây da, dây cao su,... Chỉ với những nguyên liệu đơn giản này, bạn đã có thể sẵn sàng tạo...
Bí quyết sản xuất vòng tay handmade đẹp và đơn giản nhất tại gia (19)