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

[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

[محمدنجار]

  في 27‏/4‏/2017 at 08:36, 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
 

Expand  

::: تفضلي

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]

  في 27‏/4‏/2017 at 11:36, looodi said:

ارجو افادتي

Expand  

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

[looodi]

Database9.zip

[looodi]

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

[Shivan Rekany]

  في 27‏/4‏/2017 at 11:53, looodi said:

Database9.zipFetching info...

Expand  

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

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

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]

  في 27‏/4‏/2017 at 12:24, Shivan Rekany said:

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

 

Database9.zipFetching info...

Expand  

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

 

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

[Shivan Rekany]

  في 27‏/4‏/2017 at 12:27, looodi said:

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

 

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

Expand  

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

[looodi]

  في 27‏/4‏/2017 at 12:36, Shivan Rekany said:

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

Expand  

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

[looodi]

  في 27‏/4‏/2017 at 12:36, Shivan Rekany said:

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

Expand  

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

[محمد ايمن]

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

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

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

شكرا