omarahmed1424 قام بنشر مايو 2, 2017 مشاركة قام بنشر مايو 2, 2017 لسلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام حفظكم الله أستخدم الكود التالي لطلب كلمة مرور لفتح النموذج وحاولت أن أستخدم معه الوحدة النمطية المعروضة في هذا الموضوعhttps://www.officena.net/ib/topic/37919-تمت-الاجابة-اريد-وضع-كلمة-مرور-لفتح-النماذج/ لتظهر كلمة المرور على شكل نجوم فلم أستطيع التعديل على الوحدة النمطية وعدد النماذج التي أستخدم لها كلمة مرور كبير جدا يصعب التعديل على كودها فهل من معين بعد الله يعدل لي الوحدة النمطية مع بقاء الكود للنماذج كما هو في التالي Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim intinput As Integer intinput = InputBox("فضلاً ادخل الرقم السري", "دخول") If intinput = 12011 Then Cancel = False Else MsgBox "عفواً كلمة المرور غير صحيحة", vbOKOnly + vbMsgBoxRight, "تنبيه" Cancel = True End If End Sub 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 2, 2017 مشاركة قام بنشر مايو 2, 2017 أخاف ارد عليك ، وذكرياتك تذكرك بذكرى تريد ان تذكرني فيها حياالله أخوي عمر الموضوع سهل ، 1. انسخ الوحدة النمطية الى برنامجك (وهاي شغل مرة واحدة) ، 2. في الكود ، اعمل استبدال للكلمة Inputbox الى inputboxDK ، لجميع صفحات الكود ، وصلى الله وبارك بس رجاء ، اعمل Backup قبل اي عمل جعفر 1 رابط هذا التعليق شارك More sharing options...
omarahmed1424 قام بنشر مايو 2, 2017 الكاتب مشاركة قام بنشر مايو 2, 2017 5 ساعات مضت, jjafferr said: أخاف ارد عليك ، وذكرياتك تذكرك بذكرى تريد ان تذكرني فيها حياالله أخوي عمر الموضوع سهل ، 1. انسخ الوحدة النمطية الى برنامجك (وهاي شغل مرة واحدة) ، 2. في الكود ، اعمل استبدال للكلمة Inputbox الى inputboxDK ، لجميع صفحات الكود ، وصلى الله وبارك بس رجاء ، اعمل Backup قبل اي عمل جعفر السلام عليكم ورحمة الله وبركاته وبعد والله إني أحبك فيه . وبصدق القول أوحشتني كثيرا . لا أسكت الله لك حسا ولن أذكرك ما دمت ذاكرا ولكنه إثقال تلميذكم عليكم . وبالنسبة للتعديل هل يمكن التعديل بالوحة النمطية وليس الكود لأنه مكرر كثيرا جدا في القاعدة على عدد كبير جدا من النماذج . 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 2, 2017 مشاركة قام بنشر مايو 2, 2017 هلا والله أخوي عمر 1. سهلة ، 2. اسهل من 1 ، خطوة واحدة لصفحات الكود كلها جميعا ، هكذا: . جعفر 2 رابط هذا التعليق شارك More sharing options...
omarahmed1424 قام بنشر مايو 2, 2017 الكاتب مشاركة قام بنشر مايو 2, 2017 تمت وجزاكم الله ألف خير أخي ومعلمي وأستاذي جعفر 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 2, 2017 مشاركة قام بنشر مايو 2, 2017 يا أخي يا أخي ، لما المرة الجاية اقول لك سهلة ، صدقني الحمدلله جعفر 5 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان