looodi قام بنشر مايو 15, 2017 مشاركة قام بنشر مايو 15, 2017 (معدل) السلام عليكم ورحمة الله وبركاتة لدي كود دخول اريد تحديد الاسم والرقم السري للدخول ثابتاً في هذا الكود بحيث لو ادخل المستخدم اسم مخالفاً لما موجود في الكود لايدخل الاسم admin الرقم السري 1010 Private Sub login_Click() Dim MyPass As String MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'") If Me.psswrd = "1010" Then MsgBox "successfully registered" DoCmd.OpenForm "tblnew" Else MsgBox "Make Sure that username and password are correct" End If End Sub تم تعديل مايو 15, 2017 بواسطه jjafferr تم وضع الكود في وضعه الحالي بإستخدام <> من قائمة التنسيق رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 15, 2017 مشاركة قام بنشر مايو 15, 2017 وعليكم السلام أختي من الكود عندك: DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'") If Me.psswrd = "1010" Then هذا معناه ان حقل الاسم وحقل الرقم السري ، هم نص ، واذا كان الامر كذلك ، فما في مشكلة في الكود جعفر رابط هذا التعليق شارك More sharing options...
looodi قام بنشر مايو 16, 2017 الكاتب مشاركة قام بنشر مايو 16, 2017 20 hours ago, jjafferr said: وعليكم السلام أختي من الكود عندك: DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'") If Me.psswrd = "1010" Then هذا معناه ان حقل الاسم وحقل الرقم السري ، هم نص ، واذا كان الامر كذلك ، فما في مشكلة في الكود جعفر نعم اعرف ان الكود صحيح ولكن اريد تحديد الاسم لان يوجد لدي نموذجين وكل نموذج له رقم سري واسم مستخدم فا لو قمت بكتابه اسم المستخدم الخاص بالنموذج الاول في النموذج الثاني والرقم السري الخاص بالنموذج الثاني سوف يقوم بالدخول لانني قمت بكتابه نص في اسم المستخدم لذالك اريد تحديد اسم مستخدم للنموذج الثاني اريد ان اقوم بكتابه الاسم بالكود رابط هذا التعليق شارك More sharing options...
looodi قام بنشر مايو 16, 2017 الكاتب مشاركة قام بنشر مايو 16, 2017 up رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 16, 2017 مشاركة قام بنشر مايو 16, 2017 اذن يجب تطابق الاسم والرقم MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'") If Me.psswrd = "1010" and MyPass = "Admin" Then جعفر رابط هذا التعليق شارك More sharing options...
looodi قام بنشر مايو 16, 2017 الكاتب مشاركة قام بنشر مايو 16, 2017 1 hour ago, jjafferr said: اذن يجب تطابق الاسم والرقم MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'") If Me.psswrd = "1010" and MyPass = "Admin" Then جعفر يطهر لي خطا هنا باللون الاصفر If Me.psswrd = "1010" and MyPass = "Admin" Then رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 16, 2017 مشاركة قام بنشر مايو 16, 2017 اذا ممكن اشوف الحدث بالكامل لوسمحتي رابط هذا التعليق شارك More sharing options...
looodi قام بنشر مايو 16, 2017 الكاتب مشاركة قام بنشر مايو 16, 2017 21 minutes ago, jjafferr said: اذا ممكن اشوف الحدث بالكامل لوسمحتي Private Sub login_Click() Dim MyPass As String MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'") If Me.psswrd = "1010" Then MsgBox "successfully registered" DoCmd.OpenForm "tbl_new" Else MsgBox "Make Sure that username and password are correct" End If End Sub رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 16, 2017 مشاركة قام بنشر مايو 16, 2017 وين الكود اللي انا اقترحته انا !! رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر مايو 16, 2017 مشاركة قام بنشر مايو 16, 2017 40 دقائق مضت, jjafferr said: وين الكود اللي انا اقترحته انا !! ::: أكله الذئب 1 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر مايو 16, 2017 الكاتب مشاركة قام بنشر مايو 16, 2017 انا قمت باضافة فقط الكود الذي كتبته رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 16, 2017 مشاركة قام بنشر مايو 16, 2017 2 دقائق مضت, looodi said: انا قمت باضافة فقط الكود الذي كتبته لوسمحتي ترفقين شيء ممكن اساعدك فيه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان