|
|
Viết bởi: trunghieu 22-06-14, 12:03 PM Chuyên mục: Forms - Bài trả lời (4) |
|
|
Viết bởi: changkhoonline77 21-06-14, 08:31 AM Chuyên mục: Forms - Bài trả lời (7) |
Private Sub cmdLogin_Click()
Dim varPassword As String
If IsNull(Me.cbtendangnhap) Or Me.cbtendangnhap = "" Then
msgBoxUni DLookup("[LOI]", "tblMsgbox", "[ID] = 32"), vbInformation + vbOKOnly, DLookup("[TITLE]", "tblMsgbox", "[ID] = 32")
Me.cbtendangnhap.SetFocus
Exit Sub
End If
If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
msgBoxUni DLookup("[LOI]", "tblMsgbox", "[ID] = 7"), vbInformation + vbOKOnly, DLookup("[TITLE]", "tblMsgbox", "[ID] = 7")
Me.txtPassword.SetFocus
Exit Sub
End If
'varPassword = DLookup("matkhau", "tblUser", "ten = '" & Me.cbtendangnhap & "'")
'On Error Resume Next
If Me.txtPassword.Value = DLookup("matkhau", "tblUser", "[ID] = " & Me.cbtendangnhap.Value) Then
ID = Me.cbtendangnhap.Value
'If Me.txtPassword = varPassword Then
GvarUserName = Me.cbtendangnhap
'msgBoxUni DLookup("[LOI]", "tblMsgbox", "[ID] = 33"), vbInformation, DLookup("[TITLE]", "tblMsgbox", "[ID] = 33")
Me.Visible = False
DoCmd.OpenForm "form1"
Else
msgBoxUni DLookup("[LOI]", "tblMsgbox", "[ID] = 6"), vbInformation + vbOKOnly, DLookup("[TITLE]", "tblMsgbox", "[ID] = 6")
solandangnhap = solandangnhap + 1
Me.txtPassword.SetFocus
End If
If solandangnhap > 2 Then
msgBoxUni DLookup("[LOI]", "tblMsgbox", "[ID] = 34"), vbInformation + vbOKOnly, DLookup("[TITLE]", "tblMsgbox", "[ID] = 34")
Application.Quit
End If
'End If
End Sub
If Me.txtPassword.Value = DLookup("matkhau", "tblUser", "[ten] = " & Me.cbtendangnhap.Value) Then
ten = Me.cbtendangnhap.Value
![[Hình: 123_zps04ed977e.png]](http://i834.photobucket.com/albums/zz262/changkhoonline77/123_zps04ed977e.png)
|
|
Viết bởi: dungnvl08 19-06-14, 09:43 PM Chuyên mục: Forms - Bài trả lời (2) |
|
|
Viết bởi: anhemnhangu 19-06-14, 04:05 PM Chuyên mục: Report - Bài trả lời (2) |
|
|
Viết bởi: anhemnhangu 19-06-14, 11:17 AM Chuyên mục: Report - Bài trả lời (4) |
| Chủ đề Mới nhất |
| Peptide research and refe... -Chuyên mục: MS Word-Đăng bởi lần cuối: CarlosDug-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| SkfterjeadS -Chuyên mục: MS Word-Đăng bởi lần cuối: Danielapams-2 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3 |
| tripscan — Почему предска... -Chuyên mục: MS Word-Đăng bởi lần cuối: NicholasAxiot-5 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3 |
| 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,367 |
| 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: 155 |
| 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: 164 |
| 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: 8,163 |
| 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: 184 |
| Đồ 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: 668 |
| 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: 189 |
| 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 đủ |