• 0
الظل الغامض

كيف أضيف كود معين الى نماذج في البرنامج من خلال زر؟

سؤال

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

 

حيا الله أحبتي ,,

 

لدي سؤال من فترة وأبحث عن حل له ولكن لم أجد ؟

 

كيف أضيف كود مثلاً ( تكبير النماذج بحجم الشاشة ) لكل النماذج التي في البرنامج

ولكن من خلال أمر بمعنى ( زر ) بمعنى نحتاج لطريقة تمكنا من اضافة كود لحدث عند الفتح لكل نموذج

ولكن من خلال امر كما ذكرنا سابقاًَ ,,

 

وضعت مرفق للتوضيح ,,

 

اللهم إني أسألك أن تُسعد قلب من يُجيبني وأن تصلح ذريته

وأن تجعل منه صالحاً مُصلحاً لدينه وأخوته ,,

cood511.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

12 إجابة على هذا السؤال .

  • 0

أستاذة أم عهود هل يمكن اختيار نماذج محددة من بين النماذج ؟

لانه لن أحتاج مثلاً لاضع كود التكبير لكل النماذج ؟

 

أعتذر كثيراً  دائماَ أأخذ من وقتك , لكن الكريم بطبعه لاعدمنا تألقك 

 

 

تفضل اخي الكريم

 

في حالة لم يتم اختيار اي نموذج من القائمة وتم ضغط زر الأمر بطريق الخطأ سوف تحصل على رسالة تنبيه بذلك ويتم انهاء الإجراء

 

post-15367-0-95111400-1369716284_thumb.g

 

 

في حالة تم اختيار النماذج المطلوبه والضغط على زر الأمر سيتم تنفيذ المطلوب مع رساله بنجاح العملية

 

post-15367-0-75901600-1369716327_thumb.g

 

 

 

za-CodeAddToForms-END.rar

 

 

 

بالتوفيق

3

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل اخي الكريم

 

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

 

post-15367-0-29113800-1369674953_thumb.g

 

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

 

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

 

بإمكانك التأكد قبل الضغط على زر الأمر ان جميع النماذج خالية من الأكواد البرمجية وايضا تأكد بعد اتمام عملية اضافة الأكواد البرمجية من كافة النماذج انها تمت اضافة الأكواد لها في حدث عند الفتح

 

 

 

za-CodeAddToForms-UP.rar

 

 

بالتوفيق

تم تعديل بواسطه zahrah
3

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي :الظل الغامض شكرا لطرحك لمثل هذه المواضيع المميزة


والشكر الاكبر


 


لإختنا الفاضلة:زهرة


لقد استفدنا كثيرا من مشاركتك


جزاك الله عنا كل خير


اخوكم


OFFLINE

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك دكتورة زهرة , أسعدكِ الله في الدارين  وسهل لك خير الطريقين

وجنبك وحماك من كل شر , ويسر امرك وسهل عليك ,,

 

أبشرك بطريقتك هذه انجزت عمل طيب لعلي أضعه هنا بعد الانتهاء بحول الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أستاذة أم عهود هل يمكن اختيار نماذج محددة من بين النماذج ؟

لانه لن أحتاج مثلاً لاضع كود التكبير لكل النماذج ؟

 

أعتذر كثيراً  دائماَ أأخذ من وقتك , لكن الكريم بطبعه لاعدمنا تألقك 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الله يرفع قدرك ويعلي شأنك وييسر أمرك ويشرح قلبك ,,

حليت الموضوع ولكن بطريقة معقدة لكن ساعود لحلك هذا ليُسره وسهولته لاعدمناك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أستاذتنا الفاضلة أم عهود أكثرنا عليكِ السؤال : 

ماحيلتنا فيمن بسطت يدها ( لا تؤاخذونا )

 

- حاولت جاهداً استعراض التقارير ونجحت في استعراضها ولكن فشلت بعد محاولات ومحاولات في إضافة الكود الى التقرير 

بنفس طريقة إضافة الكود الى النموذج عدلت المسميات والأوامر دون جدوى !! هل من طريقة لاعدمناك

تم تعديل بواسطه الظل الغامض
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل اخي الكريم

 

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

 

لقد اضفت 6 تقارير فارغة ليتم التجربة عليها بهذه الطريقة

 

post-15367-0-44256900-1371904603_thumb.g

 

 

الآن من مربع القائمة اختر التقارير المطلوبه ثم اضغط زر الأمر وسيتم ادارج الأكواد البرمجية في التقارير المختارة مباشرة

 

وبإمكانك الإطلاع عليها والتأكد من ذلك 

 

الموضوع سهل وبسيط ولا يحتاج له اي تفكير  .... يعني تعمله وانت مغمض عيونك

 

 

za-CodeAddToFormsAndReports-END.rar

 

 

بالتوفيق

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

وكل التعديلات بالتمام نفس مافعلتِ الا خطأ واحد فقط : 

Set mdl1 = Report(List2.ItemData(varReport)).Module

حاولت تشغيل البطيخة كما سميتها سابقاً لكن جميل أن نحاول ونفشل حتى نصل لنتيجة شبه جيدة 

شاكر لك أستاذتنا القديرة لاعدمناك , وفقها يارب وأسعدها في الدارين 

تم تعديل بواسطه الظل الغامض
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ماشاء الله الاخت ام عهود لا يسال الاعضاء في منتدانا سؤالا الا وكان له جواب شاف عندك

هذا الكود في غاية الاهمية حيث يمكن استغلاله في الحماية 

طبعا ليس لدي حاليا فكرة محددة في ذهني لكن سافكر في شي

تحياتي

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله اختي ام عهود+

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اللهم علمنا ماينفعنا وانفعنا بما علمتنا

خيركم من تعلم العلم وعلمه

اللهم من علمنا من علمه فزده علما

بارك الله لنا فى زهراء العرب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .