كود شاشه دخول لصلاحية المستخدمين

[looodi]

السلام عليكم ورحمة الله وبركاتة

 

 

ارجو مساعدتي في حل الخطاء في الكود

شاكرة لكم مقدما

 

Private Sub login_Click()
If Me.psswrd = DLookup( "psswrd" , "useres" , "user_name"='" & Me.user_name & "'") Then
MsgBox "successfully registered"
DoCmd.Close acForm, "login"
Else
MsgBox "Make Sure that username and password are correct"
End If
End Sub
 

تم تعديل أبريل 27, 2017 بواسطه looodi

[محمدنجار]

منذ ساعه, looodi said:

Private Sub login_Click()
If Me.psswrd = DLookup( "psswrd" , "useres" , "user_name"='" & Me.user_name & "'") Then
MsgBox "successfully registered"
DoCmd.Close acForm, "login"
Else
MsgBox "Make Sure that username and password are correct"
End If
End Sub
 

::: تفضلي

Private Sub login_Click()
If Me.psswrd = DLookup("psswrd", "useres", "user_name='" & Me.user_name & "'") Then
MsgBox "successfully registered"
DoCmd.Close acForm, "login"
Else
MsgBox "Make Sure that username and password are correct"
End If
End Sub

 

تم تعديل أبريل 27, 2017 بواسطه محمدنجار

[looodi]

مازالت المشكلة اخي

[looodi]

ارجو افادتي

[Shivan Rekany]

2 دقائق مضت, looodi said:

ارجو افادتي

هل عندكي مربع نصي بذلك الاسم ؟
ارفق نسخة مصغرة من قاعدة بياناتك

[looodi]

Database9.zip

[looodi]

تم وضع المرفق في الاعلى

[Shivan Rekany]

23 دقائق مضت, looodi said:

Database9.zip

اتفضل اليك هذا

اعمل كوبى باست للكود

Private Sub login_Click()
    Dim MyPass As String
        MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.user_namee & "'")
    If Me.psswrd = MyPass Then
            MsgBox "successfully registered"
            DoCmd.Close acForm, "log_in"
        Else
            MsgBox "Make Sure that username and password are correct"
    End If
End Sub

 

[looodi]

مازالت المشكلة

[Shivan Rekany]

اليك قاعدة بياناتك بعد اضافة الكود الاعلاه

 

Database9.zip

[looodi]

2 minutes ago, Shivan Rekany said:

اليك قاعدة بياناتك بعد اضافة الكود الاعلاه

 

Database9.zip

اشكررررررررك من كل قلبي اخي ضبط   

 

هل بأمكانك ان تقول لي ماهو الخطاء الذي كان في الكود مع العلم انني قمت بعمل كوبي بيست ولم يضبط معي افيدني بالخطاء لكي اتعلم

[Shivan Rekany]

7 دقائق مضت, looodi said:

اشكررررررررك من كل قلبي اخي ضبط   

 

هل بأمكانك ان تقول لي ماهو الخطاء الذي كان في الكود مع العلم انني قمت بعمل كوبي بيست ولم يضبط معي افيدني بالخطاء لكي اتعلم

فقط افتح قاعدة بياناتك السابقة و اعدل اسم مربع نصي اللي تكتب فيها باسورد 

[looodi]

2 minutes ago, Shivan Rekany said:

فقط افتح قاعدة بياناتك السابقة و اعدل اسم مربع نصي اللي تكتب فيها باسورد 

لك كل الشكر والتقدير

[looodi]

On ‎4‎/‎27‎/‎2017 at 3:36 PM, Shivan Rekany said:

فقط افتح قاعدة بياناتك السابقة و اعدل اسم مربع نصي اللي تكتب فيها باسورد 

اخي واجهت نفس المشكله لقد قمت بالعمل من جديد ولكن واجهني الخطاء ومن ثلاث ايام احاولو اكتشف ولم استطع ارجو المساعده

[محمد ايمن]

الخطا في اسم الجدول اي انك كتبت اسم جدول خاطئ

تاكد من اسم الجدول و اعد المحاولة او ارفع مرفقا للتعديل

[حمال سعيد مولود]

شكرا