naphucco > 19-05-12, 05:16 PM
Trích dẫn:Private Sub cmdDangNhap_Click()
If IsNull(Me.cboUserID) Or Me.cboUserID = "" Then
msgBoxOK DLookup("[NoiDung1]", "tblThongBao", "[SoTB] = 1"), vbCritical, DLookup("[TieuDe]", "tblThongBao", "[SoTB] = 1")
Me.cboUserID.SetFocus
Exit Sub
End If
If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
msgBoxOK DLookup("[NoiDung2]", "tblThongBao", "[SoTB] = 1"), vbCritical, DLookup("[TieuDe]", "tblThongBao", "[SoTB] = 1")
Me.txtPassword.SetFocus
Exit Sub
End If
If Me.txtPassword.Value = Me.txtPasstemp Then
USERNAME = Me.txtUserName.Value
USERID = Me.cboUserID.Value
UserLevel = Me.txtUserLevel.Value
UserPASS = Me.txtPassword.Value
DoCmd.Close
DoCmd.OpenForm "main"
Else
msgBoxOK DLookup("[NoiDung1]", "tblThongBao", "[SoTB] = 2"), vbCritical, DLookup("[TieuDe]", "tblThongBao", "[SoTB] = 2")
Me.txtPassword.SetFocus
End If
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
msgBoxOK DLookup("[NoiDung2]", "tblThongBao", "[SoTB] = 2"), vbCritical, DLookup("[TieuDe]", "tblThongBao", "[SoTB] = 2")
Application.Quit
End If
End Sub
naphucco > 19-05-12, 05:45 PM
Noname > 19-05-12, 11:53 PM
naphucco > 20-05-12, 01:29 AM
Noname > 20-05-12, 04:41 AM
(20-05-12, 01:29 AM)naphucco Đã viết: cái của bạn thì mình biết rồi, mình hỏi làm sao ẩn đi vài mục trong thanh công cụ của mình, chứ mình không nói đên khóa phím shift, lên mạng tìm khắp rồi không có
riolo05 > 20-05-12, 06:26 PM