ابومصطفى عصو سوبر
عدد الرسائل : 251 العمر : 49 البلد : عمان الوظيفة : مهندس علم الدولة : نقاط : 264 تاريخ التسجيل : 22/12/2008
| موضوع: الدرس السادس فى اكسس ( المايكرو ) الأحد يناير 04, 2009 8:57 pm | |
| بسم الله الرحمن الرحيم الاخوة الكرامالسلام عليكم ورحمة الله وبركاتهالدرس السادسالماكروالماكرو عبارة عن برنامج صغير يشتمل على مجموعة إجراءات تقوم تلقائياً بأداء بعض الأعمال التي تتكرر باستمرار ويتم تنفيذ الإجراءات بترتيب سردهاولإنشاء الماكرو فى شاشة الاكسيس الرئيسية نختار كائن وحدات ماكرو
نختار جديد
يظهر لنا بهذا الشكل
لإنشاء ماكرو ليفتح نموذج بيانات الاعضاءمن عمود اجراء اختر (( openform ))
فى الجزء السفلى سنجد (( وسائط الاجراء ))امام اسم النموذج اختر (( بيانات الاعضاء ))أسفل عمود (( تعليق )) نكتب (( لفتح نموذج بيانات الاعضاء ))
نقوم بحفظ الماكرو باسم (( فتح نموذج بيانات الاعضاء ))إنشاء مجموعة ماكرولإنشاء مجموعة ماكرو لفتح أكثر من نموذج افتح ماكرو جديد واختر من شريط الادوات اسماء وحدات الماكرو
يكون بهذا الشكل
في عمود (( أسم الماكرو )) أكتب أسم أول ماكرو (( الاعضاء ))في عمود (( الإجراءات )) أختر (( Beep ))في عمود التعليق أكتب (( اصدار صوت صفاره ))ثم فى الصف الثانى في عمود (( الإجراءات )) ختر الإجراء وأمام خانة (( OpenForm)) فى الجزء السفلى (( وسائط الاجراء ))امام اسم النموذج اختر (( بيانات الاعضاء ))أسفل عمود (( تعليق )) نكتب (( فتح نموذج بيانات الاعضاء ))ثم فى الصف الثالث في عمود (( الإجراءات )) اختر الإجراء وأمام خانة (( OpenForm)) فى الجزء السفلى (( وسائط الاجراء ))امام اسم النموذج اختر (( قائمة البلدان ))أسفل عمود (( تعليق )) نكتب (( فتح نموذج قائمة البلدان ))نقوم بحفظ الماكرو باسم (( فتح نماذج ))
إجراءات الماكرمرفق جدول لوصف إجراءات ماكرو إضافة أزرار أوامر ماكرو داخل النموذجافتح نموذج جديد فى وضع التصميم[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ثم نقوم بادراج زر امر على النموذج يظهر لنا معالج زر الامرويسالك : ما هو الاجراء الذى تريد حدوثه عند الضغط على الزر ؟نختار من الفئات (( متنوع )) ونختار من الاجراءات (( تنفيذ الماكرو ))
يسالك المعالج : ما الماكرو الذى تريد ان يشغله زر الامر ؟نلاحظ هنا وجود مجموعة الماكرو التى قمنا بعملها سابقانختار (( فتح نماذج.بيانات الاعضاء ))
يسالك المعالج : هل تريد كتابة نص او وضع صورة على زر الامر ؟نكتب فى النص : بيانات الاعضاء
يسالك المعالج : ما هو اسم الزر الذى تريده ؟نكتب على سبيل المثال Group ونضغط انهاء
يكون النموذج فى النهاية بهذا الشكل
| |
|
ابومصطفى عصو سوبر
عدد الرسائل : 251 العمر : 49 البلد : عمان الوظيفة : مهندس علم الدولة : نقاط : 264 تاريخ التسجيل : 22/12/2008
| موضوع: رد: الدرس السادس فى اكسس ( المايكرو ) الأحد يناير 04, 2009 8:59 pm | |
| تابع المايكرو بتكرار العملية السابقة ندرج زر امر وتحديد اسم الماكرو فتح نماذج.قائمة البلدان
بهذا قد منا بعمل نموذج رئيسى لفتح النماذج منه وذلك عن طريق مجموعة الماكرو
ويكون شكل النوذج بعد اضافة الزر الجديد بهذا الشكل
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
استخدام الشروط في الماكرو
لإنشاء ماكرو لإظهار رسالة في حالة كتابة العضو لاكثر من 100 مشاركة
نفتح ماكرو جديد ومن شريط الادوات نختار (( شروط ))
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
في عمود (( اسم الماكرو ) نكتب (( رسالة تحذيرية ))
فى عمود شرط نضغط بزر الفأرة الايمن تظهر قائمة مختصرة نختار إنشاء
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نختار من العمود الاول نموذج بيانات الاعضاء ومن العمود الثانى عدد المشاركات ونكتب بجوارهم >100
بهذا الشكل
Forms![بيانات الاعضاء]![عدد المشاركات] > 100
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
انقر موافق
نكتب فى عمود الاجراء (( MsgBox ))
فى الجزء السفلى (( وسائط الاجراء )) نكتب فى رسالة : هذا العضو سجل اكثر من 100 مشاركة يراعى متابعته وتشجيعه اذا لزم الامر
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نحفظ الماكرو باسم عضو فعال
تحويل الماكرو الى Visual Basic
ننقر بزر الفأرة الايمن على ماكرو (( عضو فعال )) تظهر قائمة مختصر نختار منها حفظ باسم
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نختار حفظ ك وحدة نمطية
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ثم نختار تحويل
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
تظهر رسالة بنجاح التحويل
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
فى كائن (( وحدات نمطية )) نجد وحدة نمطية باسم (( الماكرو المحوّل- عضو فعال )) بالنقر المزدوج عليه نجد هذه التعليمات البرمجية
Option Compare Data@@@@
'------------------------------------------------------------ ' عضو_فعال_رسالة_تحذيرية ' '------------------------------------------------------------ Function عضو_فعال_رسالة_تحذيرية() On Error GoTo عضو_فعال_رسالة_تحذيرية_Err
If (Forms![بيانات الاعضاء]![عدد المشاركات] > 100) Then Beep MsgBox "هذا العضو سجل اكثر من 100 مشاركة يراعى متابعته وتشجيعه اذا لزم الامر", vbInformation, "عضو فعال" End If
عضو_فعال_رسالة_تحذيرية_Exit: Exit Function
عضو_فعال_رسالة_تحذيرية_Err: MsgBox Error$ Resume عضو_فعال_رسالة_تحذيرية_Exit
End Function
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نقوم بفتح نموذج بيانات الاعضاء فى وضع التصميم وبالضغط على زر (( F4 )) لاظهار نافذة الخصائص نختار من تبويب حدث [ فى الحالى ] ـــــ [ إنشاء حدث ]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ثم نكتب التالى
Call عضو_فعال_رسالة_تحذيرية
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
عند تشغيل النموذج واستعراض بيانات الاعضاء وعند المرور على العضو التى تزيد مشاركاته عن 100 مشاركة تظهر هذه الرسالة التى قمنا بتصميمها مسبقا
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
تم بحمد الله وفضله الانتهاء من هذا الدرس
درسنا القادم عن الوحدات النمطية
والسلام عليكم ورحمة الله وبركاته .
| |
|
ابو وليد
عدد الرسائل : 2 العمر : 64 البلد : الفيوم الوظيفة : ادارى ادارة اطسا التعليمية علم الدولة : نقاط : 2 تاريخ التسجيل : 10/01/2014
| موضوع: رد: الدرس السادس فى اكسس ( المايكرو ) الجمعة يناير 10, 2014 2:35 pm | |
| مجهود جميل وتشكر عليه والى الامام عزيزى وبارك الله فيك | |
|