السلام عليكم ورحمة الله وبركاته
اريد ان اعمل برنامج يوجد به بعض الاسئلة ولا يمكن الدخول الى البرنامج الى بصلاحيات معينة
هذا الكود هل يوجد به خطأ ؟
Private Sub Command1_Click()
If IsNull(Me.txtUsername) Then
MsgBox "Please enter Username", vbInformation, "Username Required"
ElseIf IsNull(Me.txtPassword) Then
MsgBox "Please enter Password", vbInformation, "Password Required"
Else
If Nz(DLookup("Password", "UserT", "Username = ' " & Me.txtUsername & " ' "), "Password") = Me.txtPassword Then
MsgBox "Welcome to KEP", vbInformation, "Access Allowed"
DoCmd.OpenForm "Form1"
DoCmd.Close
Else
MsgBox " Sorry .. wrong Username or Password", vbExclamation, "Access Denied"
End If
End If
End Sub
