Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] thiết kế nút đăng nhập
#1
Mình làm 1 đề án, mình muốn lập trình nút đăng nhập, khi tên người đăng nhập là "admin" (đã đăng ký trước đó) thì sẽ mở form F_NQL ngược lại thì sẽ mở form F_CHINH, mình viết nhưng nó vẫn còn lỗi, mọi người sửa giúp mình nha.
Private Sub DN_Click()
If (Not IsNull(DLookup("[TenDN]", "DangKy", "[TenDN]=[Forms]![DangNhap]![ID]"))) And (Not IsNull(DLookup("[pass]", "DangKy", "[pass]=[forms]![DangNhap]![pas]"))) Then
MsgBox "Chuc mung " & ID & " dang nhap thanh cong", vbOKOnly, "Thanh cong"
If (ID = "Ad") And (PAS = "ad") Then
DoCmd.OpenForm "F_NQL"
DoCmd.Close "DANGNHAP"
Else
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "F_CHINH"
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Else
MsgBox "Ten dang nhap hoac tai khoan khong dung! Hay kiem tra lai!!", vbInformation, "Thong bao"
ID.SetFocus
DoCmd.CancelEvent
End If

End Sub
Chữ ký của cdtin_k35 Xin chào, mình là cdtin_k35, Tham gia http://thuthuataccess.com/forum từ ngày 24-10 -12.
Reply
Những người đã cảm ơn
#2
Bạn xem file mẫu ở đây nhé
Mã PHP:
http:/thuthuataccess.com/forum/thread-5656-post-14749.html#pid14749 
Chữ ký của nhannt4 Xin chào, mình là nhannt4, Tham gia http://thuthuataccess.com/forum từ ngày 22-07 -12.
Reply
Những người đã cảm ơn
#3
cam on ban nhung bai do k co cai minh mun hoi.
Chữ ký của cdtin_k35 Xin chào, mình là cdtin_k35, Tham gia http://thuthuataccess.com/forum từ ngày 24-10 -12.
Reply
Những người đã cảm ơn
#4
Minh sua duoc roi.

Private Sub DN_Click()
If (Not IsNull(DLookup("[TenDN]", "DangKy", "[TenDN]=[Forms]![DangNhap]![ID]"))) And (Not IsNull(DLookup("[pass]", "DangKy", "[pass]=[forms]![DangNhap]![pas]"))) Then
MsgBox "Chuc mung " & ID & " dang nhap thanh cong", vbOKOnly, "Thanh cong"
If (ID = "Admin") And (PAS = "admin") Then
DoCmd.Close acForm, "DANGNHAP"
DoCmd.OpenForm "F_NQL"

Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_CHINH"
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Else
'MsgBox "Ten dang nhap hoac tai khoan khong dung! Hay kiem tra lai!!", vbInformation, "Thong bao"
loi.Visible = True
'ID.SetFocus
'DoCmd.CancelEvent
End If

End Sub
007
Chữ ký của cdtin_k35 Xin chào, mình là cdtin_k35, Tham gia http://thuthuataccess.com/forum từ ngày 24-10 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,355 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82
Rainbow [Help] E tạo Form nhập liệu cho table ma không dc BUIHUUDIEN 11 550 24-08-16, 12:30 AM
Bài mới nhất: toancvp
  Không nhập liệu được bằng Form ChiMai 8 381 23-07-16, 11:01 PM
Bài mới nhất: hungefi
  Tạo form phiếu nhập kho Ranju 4 271 20-07-16, 12:02 AM
Bài mới nhất: ongke0711
  [Help] Tạo form nhập nhiều dữ liệu 1 lúc toidjtjmtoi 2 241 29-06-16, 10:37 PM
Bài mới nhất: zinzin8x

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ