الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

وداعا للماكرو مع هذة الهدية المتواضعة

بدأه Enjoy في 9 أكتوبر 2008 · 22 رد · 3,269 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مع سبق الاصرار والترصد قل للماكرو وداعاً

كانت هناك مشكلة تزعجني وكنت على وشك طرح موضوع لغرض الوصول الى حلها

لقد كنت حتى هذا اليوم لا اطيق العمل بالازرار داخل النماذج بطريقة الاكواد لاسباب كثيرة منها وباختصار

1- جرب تغيير تسمية الزر - فستلاحظ انك ستحتاج الى الدخول الى الكود ايضا لتعديلة حسب التسمية الجديدة

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

3- اثناء الخول الى اكواد النموذج ستلاحظ وجود العديد من الاكواد المتناثرة هنا وهناك اغلبها مكررة في اغلب النماذج وكثرتها تسبب لك الدوران في الرأس (بل سأزيدك من الشعر بيت) ستجد بعض الاكواد مكررة مثل كود اغلاق النموذج مثلا وذلك قد يكون بسبب انك غيرت تسمية الزر واضطريت الى عمل الكود مرة اخرى (تصدقون دخلت على بعض النماذج عندي لقيت فيه سبع اكواد متناثرة للاغلاق)

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

اذا ستجد مطلوبك هنا وستكون نماذجك نظيفه جدا من الان وصاعدا من كثرة الاكواد

مع Enjoy وحدة نمطية واحده تجمع جميع هذة الاوامر وتستطيع استخدامها على جميع ازرارك مع الاستفادة من الملاحظات السابقة (نسخ ولصق وكذلك الابتعاد عن زحمة الاكواد داخل النماذج)

جرب وعطني رايك اتمنى ردود بنفس عدد نسخ الملف (ست سبع صفحات عادي المنتدى يستحمل)

اخوكم ابو عبدالله

Enjoy_All_buttons.rar

#2

بسم الله الرحمن الرحيم

أخي الكريم ابو عبدالله - ما أقول الا الله يعطيك الف عافية

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

شكرا وجزاك الله خير

تم تعديل هذه المشاركة بواسطة ekseer في 9 أكتوبر 2008 في 20:25

#3

مثال ممتاز وافكار رائعة بالتوفيق

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#4

حبيبي ابو عبدالله ekseer

وصديق الكل محمد فؤاد تركي

شرف كبير حصولي على شكر منكما الاثنان

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

في حال ان يكون هذا المثال يستحق ذلك

تم تعديل هذه المشاركة بواسطة Enjoy في 9 أكتوبر 2008 في 23:34

#5

بارك الله فيك وجزاك الله خير

الله يعطيك العافيه

مثال اكثر من رائع

وفقك الله والى الامام

اتق الله حيث ماكنت

#6

:salam:

:clapping:

:ty:

اقتباس
[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.

اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.

اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.

اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب

[/وسط]

545050692.gif

#7

أخي الغالي

مثال رائع .. الفكرة وصلت بارك الله فيك اللهم آميييييييييييييييين

[يمين]

إذا كـان تـرك الـدين يعــنــي تقــدمــاً

فـيا نفــس مـوتــي قبــل أن تتقـدمــي

[/يمين]

#8

at_aziz

hema212006

kamal alnahhal

اشكركم جميعا على هذا الاطراء الجميل

#9

اخي الفاضل ابو عبدالله

وبقية الأخوة الكرام

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

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

ولكن لي وجهة نظر شخصية في الموضوع واتمنى ان تتقبلها

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

Public Function Exit1()
	DoCmd.Quit
End Function

ونجد انه في حدث النموذج تم استدعاء هذه الوظيفة

=Exit1()

حسنا ماذا لو اردنا اضافة رسالة بها زرين أمر ( نعم - لا )

فأين سنضعها ؟؟؟

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

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

اذا يجب ادارج كل شيء في الوحدة النمطية العامه .

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

ورأت هذه المشاركه واستحسنت الطريقة وقامت بإستخدامها

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

post-15367-1223646046_thumb.gif

يعني فقط انسخ زر الأمر المطلوب والصقه في نموذجي وتنتهي المشكله

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

لأنني مبتدأه ولا اعرف لا وحده نمطية ولا وظيفه عامه ولا اعرف كيف استخدمها اصلا .

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

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

وسوف اسألك كيف اقوم بإستيراد هذه الوحده النمطية ؟؟

ووووو

ووووو

ووووو

ونستمر عشرة ايام على هذا الحال في السؤال والإجابه حتى اعرف الطريقة لأنني مبتدأه وليس عندي اي خلفيه عن الموضوع ولأنك لم تذكر ان ازرار الأمر هذه معتمده على وحده نمطية ووظيفة عامه .

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

اتمنى ان تكون الصوره اتضحت لما اقصده

وختاما بارك الله بك وجزاك الله كل خير

#10

سلام

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

وهذا رائي أيضا...

زهرة كتب:
ولكن لي وجهة نظر شخصية في الموضوع واتمنى ان تتقبلها

في رائي أن هذا هو ما يتمناه أبو عبدالله

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

صدقتي، إلا أني أعتقد أن أبا عبد الله يتحدث عن الشفرة الشايعة الاستخدام، وعلى هذا الحد تكون الفكرة جيدة جدا

زهرة كتب:
حسنا ماذا لو اردنا اضافة رسالة بها زرين أمر ( نعم - لا )

فأين سنضعها ؟؟؟

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

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

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

ورأت هذه المشاركه واستحسنت الطريقة وقامت بإستخدامها

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

أعتقد أن الفكرة موجة لمن هو فوق المبتدئ بلاشك

زهرة كتب:
يعني فقط انسخ زر الأمر المطلوب والصقه في نموذجي وتنتهي المشكله

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

لأنني مبتدأه ولا اعرف لا وحده نمطية ولا وظيفه عامه ولا اعرف كيف استخدمها اصلا .

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

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

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

زهرة كتب:
وسوف اسألك كيف اقوم بإستيراد هذه الوحده النمطية ؟؟

ووووو

ووووو

ووووو

ونستمر عشرة ايام على هذا الحال في السؤال والإجابه حتى اعرف الطريقة لأنني مبتدأه وليس عندي اي خلفيه عن الموضوع ولأنك لم تذكر ان ازرار المر هذه معتمده على وحده نمطية ووظيفة عامه .

وهل البرمجة تكتسب في يوم وليلة!!

لا زلنا نتعلم كل يوم... ومن مشاركت أبي عبد الله إكتسبنا شيئا جديدا

زهرة كتب:
ولكن لو تم تضمين الأكواد مباشرة في نفس النموذج وبدون لا وحدات نمطية ولا غيرها لأستغنينا عن كل هذه الأسئلة .

مع هذه الحال استخدام المعالج أسرع وأسهل وأكمل!!!

أبو عبد الله كتب:
اشكركم جميعا على هذا الاطراء الجميل

تستاهل أكثر... أسأل الله يفتح عليك، وأن يبارك فيك وفي علمك وعملك

كمال كتب:
مثال رائع .. الفكرة وصلت بارك الله فيك اللهم آميييييييييييييييين

في ظني هذا مايتمناه أبو عبد الله.. وليس ذات الشفرة

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

في حال ان يكون هذا المثال يستحق ذلك

وأنا أيضا أصوت على دخول هذه المشاركة للمجلة

#11

اختي الغالية زهره

تشرفت بقراءة ملاحظاتك الساخنه

اولا هدئي السرعه شوي (على هونك) فأنا واحد من تلاميذك

ثانياً ستجدين الرد على جميع ماورد في وجهة نظرك - مختصر هنا

اقتباس
ekseer

تصلح للأزارير الافتراضية الكثيرة التكرار

يبدوا ان الفكرة لم تصلك بالشكل المطلوب

فلقد ذكرت في بداية الموضوع كما وضحت في الصورة التي ارفقتيها ايضا بان هذة مجموعة من الازرار الافتراضية الشائعة والكثيرة الاستعمال في كل النماذج تقريبا

واقصد بالازرار التي يتكرر استعمالها في كل النماذج بصورة متشابهة وتتسبب في ازدحام النموذج بالوحدات النمطية المكررة

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

الى نسخها ثم العودة الى لنسخ الاكواد مرة اخرى

او ان اقوم بانشائها من جديد في النموذج الاخر وتخيلي باني سوف اعمل نفس الازرار الى خمس او ست نماذج (نفس الازرار) وكل نموذج سوف اعمل فيه اربع ازرار مثلا

زر للاضافة وزر للحذف وزر للتراجع وزر للخروج مثلا على اقل تقدير

فهل ترين بانه من الطبيعي عمل هذة المجموعة من الازرار (اربع ازرار في خمس نماذج كمثال بسيط جدا) سيكون سريع وسهل - ام سيكون الامر ممل

اما للرد على ملاحظتك التي اذا صح التعبير باني فهمت بانك تقصدين

ماذا لو انك احتجت الى اضافة امر الى هذا احد الازرار

كما ذكرت في زر الخروج

اقتباس
حسنا ماذا لو اردنا اضافة رسالة بها زرين أمر ( نعم - لا )

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

ارجوا ان اكون فهمت ملاحظتك بالشكل الصحيح - لاني وانا اكتب الرد حتى اخر لحظة كنت متردد بعض الشيء خوفا من اني لم افهم ملاحظتك

او انك تقصدين شيء اكبر من الذي انا فهمته

في انتظارك

اخوك ابو عبدالله

سبقتني اخي القحم

بمجرد اني اضفت مشاركتي لقيت نفسي في الصفحة الثانية

تم تعديل هذه المشاركة بواسطة Enjoy في 11 أكتوبر 2008 في 01:01

#12

اخي الفاضل عبدالعزيز القحم

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

شكرا لك على هذه المداخله الجميله

لأن بعض العبارات كنت ارأها واضحك منها كثيرا لأنها كانت بعفوية تامه

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

ختاما لك منا كل الشكر على المشاركه

واحب ان اسأل لم ارك منذ فتره طويله سواء في المنتدى او في قسم الفوكس برو ؟؟

#13

حياك الله اخي ابو عبدالله

وبارك الله بك على هذا التوضيح

قد أكون انني فهمت الموضوع بطريقة مغايره لما ترمي اليه في سياق حديثك الأصلي للمشاركه

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

ولكن طالما تم الشرح والعقيب بهذه الطريقة من قبلكم فلا نقول إلا جزاك الله كل خير .

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

وبالتوفيق دائما وابدا

#14
اقتباس
ولا تعتقد انني انتقصك من حقك او اوجه لك لوم على هذه المشاركه
تكونين غلطانه اذا تعتقدين اني من هذا النوع

فانت محبوبه من قبل الجميع بلا استثناء وانا احسدك على هذا الشيء (لا تخافين ماسك الخشب)

اخوك ابو عبدالله

تم تعديل هذه المشاركة بواسطة Enjoy في 11 أكتوبر 2008 في 05:35

#15
زهرة كتب:
اخي الفاضل عبدالعزيز القحم

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

شكرا لك على هذه المداخله الجميله

لأن بعض العبارات كنت ارأها واضحك منها كثيرا لأنها كانت بعفوية تامه

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

ختاما لك منا كل الشكر على المشاركه

واحب ان اسأل لم ارك منذ فتره طويله سواء في المنتدى او في قسم الفوكس برو ؟؟

أستاذة زهرة

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

أهلا بكِ وسهلا

طيب الله خاطركِ، وشكر الله لك مروركِ وسؤالكِ

هي أشغال الحياة.. أتمنى أن أكون متواجدا بإنتظام حتى أنهل من هذا المعين وأستقي

بارك الله وفيك وزادكِ توفيقا

أبو إبراهيم القحم

#16

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني واخواتي

لقد استمتعت حقيقة بالمثال وبالتعليق وبالتعقيب

والاكثر استمتعت بالجو الجميل في المنتدى

#17

فعلاً حركة ممتازة للأزرار الافتراضية

وفقك الله

#18
اقتباس
sx1

لقد استمتعت حقيقة بالمثال وبالتعليق وبالتعقيب

والاكثر استمتعت بالجو الجميل في المنتدى

بوجود زهره الموضوع يكون احلى
اقتباس
هاني عوض

فعلاً حركة ممتازة للأزرار الافتراضية

اسعدني مرورك اولا واسعدني اضافة شكر على هذا الموضوع فشكرا لك
#19
Enjoy كتب:
بوجود زهره الموضوع يكون احلى

اسعدني مرورك اولا واسعدني اضافة شكر على هذا الموضوع فشكرا لك

شكر الله لكم اسلوب حواركم الراقى وزادكم علما مع حسن خلق

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

طبعا مش هى زهرة

والسلام

أختكم سوزى

#20

بارك الله فيك وفكرة حلوة

كنت ابحث عن مثل هذا الكود لكن في visual basic

#21

برافووووووووووووووووووووووووووووووووووووووووو

الصحيح فكرة ممتازة..... جهنمية

احييك على هذه الفكرة

ويا استاذه زهرة اضن ان الفكرة بحاجة للتشجيع واذا كان بها نواقص فلا شيء كامل لماذا لانتبناها ونقوم بتطويرها ؟؟؟

zahrah كتب:
حسنا ماذا لو اردنا اضافة رسالة بها زرين أمر ( نعم - لا )

انا استعمل وحدة نمطية ثابته لكا الرسائل التي تحتوي على الازرار (نعم و لا)

ويختلف النص باختلاف الموضوع ولو ان المسألة بحاجة الى مثال لارفقته

باختصار .... الفكرة ممتازه وارى انها مفتاح لعمل عظيم واشجعك على الاستمرار

ناصر المصاروة

تم تعديل هذه المشاركة بواسطة Naser Al Masarwa في 20 أكتوبر 2008 في 17:06

شبكة سوارقريباً

Sewar

#22
اقتباس
شكر الله لكم اسلوب حواركم الراقى وزادكم علما مع حسن خلق

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

طبعا مش هى زهرة

والسلام

أختكم سوزى

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

كنت ابحث عن مثل هذا الكود لكن في visual BASIC

اخي Rafi معلوماتي في الفيجول بيسك على قدي لكن اذا كان الموضوع يهمك سابذل جهدي ولا يوجد مستحيل
اقتباس
باختصار .... الفكرة ممتازه وارى انها مفتاح لعمل عظيم واشجعك على الاستمرار

ناصر المصاروة

شكرا لك لانك رفعت من معنوياتي

تم تعديل هذه المشاركة بواسطة Enjoy في 30 أكتوبر 2008 في 00:50

#23

شكرا لك اخى وبارك الله فكرة مختصرة رائعة .

مواضيع مشابهة