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