looodi قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 (معدل) السلام عليكم ورحمة الله وبركاتة ارجو مساعدتي في حل الخطاء في الكود شاكرة لكم مقدما 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 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 (معدل) منذ ساعه, 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 بواسطه محمدنجار رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 مازالت المشكلة اخي رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 ارجو افادتي رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 2 دقائق مضت, looodi said: ارجو افادتي هل عندكي مربع نصي بذلك الاسم ؟ ارفق نسخة مصغرة من قاعدة بياناتك 1 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 Database9.zip رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 تم وضع المرفق في الاعلى رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 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 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 مازالت المشكلة رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 اليك قاعدة بياناتك بعد اضافة الكود الاعلاه Database9.zip 1 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 2 minutes ago, Shivan Rekany said: اليك قاعدة بياناتك بعد اضافة الكود الاعلاه Database9.zip اشكررررررررك من كل قلبي اخي ضبط هل بأمكانك ان تقول لي ماهو الخطاء الذي كان في الكود مع العلم انني قمت بعمل كوبي بيست ولم يضبط معي افيدني بالخطاء لكي اتعلم رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 27, 2017 مشاركة قام بنشر أبريل 27, 2017 7 دقائق مضت, looodi said: اشكررررررررك من كل قلبي اخي ضبط هل بأمكانك ان تقول لي ماهو الخطاء الذي كان في الكود مع العلم انني قمت بعمل كوبي بيست ولم يضبط معي افيدني بالخطاء لكي اتعلم فقط افتح قاعدة بياناتك السابقة و اعدل اسم مربع نصي اللي تكتب فيها باسورد 1 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أبريل 27, 2017 الكاتب مشاركة قام بنشر أبريل 27, 2017 2 minutes ago, Shivan Rekany said: فقط افتح قاعدة بياناتك السابقة و اعدل اسم مربع نصي اللي تكتب فيها باسورد لك كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
looodi قام بنشر مايو 11, 2017 الكاتب مشاركة قام بنشر مايو 11, 2017 On 4/27/2017 at 3:36 PM, Shivan Rekany said: فقط افتح قاعدة بياناتك السابقة و اعدل اسم مربع نصي اللي تكتب فيها باسورد اخي واجهت نفس المشكله لقد قمت بالعمل من جديد ولكن واجهني الخطاء ومن ثلاث ايام احاولو اكتشف ولم استطع ارجو المساعده رابط هذا التعليق شارك More sharing options...
محمد ايمن قام بنشر مايو 11, 2017 مشاركة قام بنشر مايو 11, 2017 الخطا في اسم الجدول اي انك كتبت اسم جدول خاطئ تاكد من اسم الجدول و اعد المحاولة او ارفع مرفقا للتعديل رابط هذا التعليق شارك More sharing options...
حمال سعيد مولود قام بنشر سبتمبر 17, 2023 مشاركة قام بنشر سبتمبر 17, 2023 شكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان