-
thiết kế nút đăng nhập
cdtin_k35 > 25-10-12, 12:14 AM
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 -
RE: thiết kế nút đăng nhập
nhannt4 > 25-10-12, 12:00 PM
Bạn xem file mẫu ở đây nhé
Mã PHP:http:/thuthuataccess.com/forum/thread-5656-post-14749.html#pid14749 -
RE: thiết kế nút đăng nhập
cdtin_k35 > 25-10-12, 10:52 PM
cam on ban nhung bai do k co cai minh mun hoi. -
RE: thiết kế nút đăng nhập
cdtin_k35 > 25-10-12, 11:17 PM
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
