تعديل على وحدة نمطية

[omarahmed1424]

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

أعضاء المنتدى الكرام حفظكم الله 

أستخدم الكود التالي لطلب كلمة مرور لفتح النموذج وحاولت أن أستخدم معه الوحدة النمطية المعروضة في هذا الموضوع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

[jjafferr]

أخاف ارد عليك ، وذكرياتك تذكرك بذكرى تريد ان تذكرني فيها

 

حياالله أخوي عمر

 

الموضوع سهل ،

1. انسخ الوحدة النمطية الى برنامجك (وهاي شغل مرة واحدة) ،

2. في الكود ، اعمل استبدال للكلمة Inputbox الى inputboxDK ، لجميع صفحات الكود ،

وصلى الله وبارك

 

بس رجاء ، اعمل Backup قبل اي عمل

 

جعفر

[omarahmed1424]

5 ساعات مضت, jjafferr said:

أخاف ارد عليك ، وذكرياتك تذكرك بذكرى تريد ان تذكرني فيها

 

حياالله أخوي عمر

 

الموضوع سهل ،

1. انسخ الوحدة النمطية الى برنامجك (وهاي شغل مرة واحدة) ،

2. في الكود ، اعمل استبدال للكلمة Inputbox الى inputboxDK ، لجميع صفحات الكود ،

وصلى الله وبارك

 

بس رجاء ، اعمل Backup قبل اي عمل

 

جعفر

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

والله إني أحبك فيه . وبصدق القول أوحشتني كثيرا . لا أسكت الله لك حسا ولن أذكرك ما دمت ذاكرا ولكنه إثقال تلميذكم عليكم .

وبالنسبة للتعديل هل يمكن التعديل بالوحة النمطية وليس الكود لأنه مكرر كثيرا جدا في القاعدة على عدد كبير جدا من النماذج .

 

[jjafferr]

هلا والله أخوي عمر

 

1. سهلة ،

2. اسهل من 1 ، خطوة واحدة لصفحات الكود كلها جميعا ، هكذا:

.

جعفر

[omarahmed1424]

تمت وجزاكم الله ألف خير أخي ومعلمي وأستاذي جعفر 

[jjafferr]

يا أخي يا أخي ، لما المرة الجاية اقول لك سهلة ، صدقني

 

الحمدلله

 

جعفر