مثالين لوضع كلمة المرور ( في الريجستري وداخل الوحده النمطية ) وسؤال في تغييرها

أخي الكريم

السلام عليكم

تغيير كلمة المرور في الوحدة النمطية برمجياً ممكن ولكن ضع في حسابك أنه لن يكون ممكناً عند تحويل البرنامج إلى صيغة mde لأن الوحدات النمطية لن يمكن التغيير فيها في ذلك الحين

تحياتي

بعد إذن أستاذنا أبو هاجر

لاستبدال سطر في الوحدة النمطية بسطر جديد :

Dim mdl As Module

Set mdl = Application.Modules("ModuleName")

mdl.ReplaceLine LineToRepLace, NewString

استبدل ModuleName باسم الوحدة النمطية لديك

استبدل LineToRepLace برقم السطر المطلوب استبداله

استبدل NewString بنص السطر البديل بين علامتي ""

أخي الكريم

السلام عليكم

أشكرك على المشاركة وقد كنت عدلت في مثال الأخ ولكنني أحببت التريث في وضع المثال بعد التعديل في المنتدى حتى أتأكد مما يريد

في مثالك السابق أظن أنه يجب فتح الوحدة النمطية ثم إجراء التغيير ثم إغلاقها بخيار الحفظ أليس كذلك ؟

تحياتي

نعم نسيت الحفظ :

Dim mdl As Module

Set mdl = Application.Modules("ModuleName")

mdl.ReplaceLine LineToRepLace, NewString

DoCmd.Save acModule, "ModuleName"

أما الفتح فعمل الكود بدونه

وفي انتظار ملاحظاتك وتصحيحك

أخي الكريم حارث

السلام عليكم

الحقيقة أنني جربت الكود مع أمر الفتح وإمكانية التغيير بدون أمر الفتح فائدة واحدة من فوائد جمة استفدتها منك عبر هذا المنتدى

ولا زلت أدعو لك في كل حين أستخدم فيه مثالك الذي وضعته في التقارير المرنة القابلة للتمدد

تحياتي لك في كل حين

أخوك / أبو هاجر

للرفع

وانتظار المثال المعدل [[ من فضلكم ]] لاني طبقت الاكواد التي طرحها الاخ حارث ولم تضبط معي

وذلك بسبب ان >>>>>>(( الفهم على قدنا شويه ))

أخي الكريم

السلام عليكم

مرفق مثالك بعد التعديل عليه وأعتذر عن التأخر فقد كنت أتوقع رد الأخ حارث عليك

تحياتي

changepass.zip