|
|
Viết bởi: naphucco 19-05-12, 05:16 PM Chuyên mục: Forms - Bài trả lời (5) |
![[Hình: picture1vxc.png]](http://img196.imageshack.us/img196/8023/picture1vxc.png)
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
|
|
Viết bởi: huychicharito 19-05-12, 02:14 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (1) |
. Ai biết làm chỉ dùm hộ mình vs
|
|
Viết bởi: nhunguyet0103 18-05-12, 10:05 PM Chuyên mục: Report - Bài trả lời (12) |
|
|
Viết bởi: deephight 18-05-12, 03:25 AM Chuyên mục: Forms - Bài trả lời (4) |
|
|
Viết bởi: itnamdinh 17-05-12, 07:18 PM Chuyên mục: Report - Bài trả lời (4) |
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,310 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 132 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 150 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,912 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 169 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 608 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 178 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 552 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,598 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 275 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |