Viết bởi: garupro 20-05-12, 09:22 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (7) |
http://www.mediafire.com/?lw5nvpoemwocebz
Trích dẫn:Quản lý công việc V1.0
Trích dẫn:Quản lý công việc V2.0
Viết bởi: riolo05 20-05-12, 06:18 PM Chuyên mục: Forms - Bài trả lời (13) |
Viết bởi: favouritekid 20-05-12, 12:25 PM Chuyên mục: Forms - Bài trả lời (4) |
Viết bởi: daiphong1979 19-05-12, 07:01 PM Chuyên mục: Forms - Bài trả lời (2) |
Viết bởi: naphucco 19-05-12, 05:16 PM Chuyên mục: Forms - Bài trả lời (5) |
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
Chủ đề Mới nhất |
instagram gizli hesaplari... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: MiltonTer-28 Phút trước- » Bài trả lời: 0- » Lượt xem: 2 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: tranthanhan1962-3 Giờ trước- » Bài trả lời: 31- » Lượt xem: 20,532 |
[Hỏi] Kết nối dữ liệu bằn... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: Seo-Ul-Vah-4 Giờ trước- » Bài trả lời: 53- » Lượt xem: 33,538 |
tradingview -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertFut-6 Giờ trước- » Bài trả lời: 0- » Lượt xem: 8 |
kraken сайт зеркала -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertNer-11 Giờ trước- » Bài trả lời: 0- » Lượt xem: 6 |
postegro -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: MiltonTer-Hôm qua, 02:16 AM- » Bài trả lời: 0- » Lượt xem: 7 |
Làm Video hướng dẫn lập t... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: bazabkaki-27-03-24, 10:26 AM- » Bài trả lời: 4- » Lượt xem: 2,672 |
Biến 50GB từ Box.net thàn... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Seo-Ul-Vah-27-03-24, 03:38 AM- » Bài trả lời: 1- » Lượt xem: 2,101 |
Windows 10 ISO Full Direc... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SuperMan2543a-26-03-24, 11:55 PM- » Bài trả lời: 0- » Lượt xem: 9 |
Утепление фасадов в москв... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ppu-pr_dier-26-03-24, 11:35 PM- » Bài trả lời: 0- » Lượt xem: 4 |
Diễn đàn Thống kê |
» Thành viên: 4,344 » Thành viên mới nhất: LewisuhaNurgy » Các chủ đề diễn đàn: 9,859 » Các bài viết diễn: 48,399 Thống kê đầy đủ |