Bassam-1992

السلام عليكم ورحمة الله وبركاته اريد ان اعمل برنامج يوجد به بعض الاسئلة ولا يمكن الدخول الى البرنامج الى بصلاحيات معينة هذا الكود هل يوجد به خطأ ؟ 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