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

أمثلة استخدام إجراء الحدث كإستجابة لحدوث هذا الحدث

بعد أن تعرفنا على أنواع الإجراءات في الـAccess في الجزء الأول من هذا الدرس، نطبق معاً في الجزء الثاني جميع الأمثلة التي شرحناها في الجزء الأول

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

والآن إلى التطبيق العملي

المثال الأول: الإجراء الفرعي Sub Procedure:

والآن، لنطبق المثال الأول الذي شرحناه بالصور في الجزء الأول، ولنطبقه على قاعدة البيانات Member التي أنشأتموها في الدروس السابقة في هذا القسم:
افترض أننا نريد فتح نموذج "بيانات الأعضاء" عندما يُفتح موذج "إجمالي الأعضاء من كل دولة" - حيث أن كلا النموذجين قمنا ببناءهما في قاعدة بياناتنا في الدروس السابقة-، لعمل ذلك اتبع الخطوات التالية:

 



1. 
   
   من خصائص نموذج "إجمالي الأعضاء من كل دولة" اختر تبويب Event.




 



2. 
   
   عند الحدث On Load قف بالماوس، ستظهر لك قائمة منسدلة بها خيار واحد فقط ألا وهو: Event Procedure، قم بتحديده.




 



3. 
   
   اضغط المربع الذي يحوي على ثلاث نقاط، كما توضح الصورة:
   
   
   

   
   





 



4. 
   
   ستفتح لك نافذة VBA وهي نافذة الوحدة النمطية التي يخصصها الـAccess لكل نموذج، وستجد أنها تحوي على تعريف لبداية الحدث ونهايته على النحو التالي:
   
   
   
   

   Private Sub Form_Load( )
   
   End Sub





 



5. 
   
   
    
   
   

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

   
   

   
   





 



6. 
   
   الآن، اغلق نافذة VBA وقن بحفظ التغييرات التي أجريناها على نموذج "إجمالي الأعضاء من كل دولة" ثم جرب عمل الإجراء الذي كتبناه، افتح النموذج، ستجد أنه بمجرد حدوث Load له سيتم تنفيذ إجراءنا وسيظهر لك نموذج "بيانات الأعضاء"، كما توضح الصورة:

المثال الثاني: إجراء الدالة Function Procedure:

هذا المثال يمكنك تطبيقه على أي قاعدة بيانات موجودة لديك، أو حتى قاعدة بيانات جديدة لأننا هنا سنعرف دالة في الـAccess ومن ثم سنستخدمها في نموذج.
نعم بالضبط، سنستخدم الدالة FirstOfNextMonth التي تطرقنا لها في الجزء الأول كي تقوم بكتابة تاريخ اليوم الأول من الشهر التالي للتاريخ الحالي كقيمة في مربع نص داخل فورم جديد سننشأه سوياً. النتيجة النهائية ستظهر لنا كما توضح الصورة:

سؤال: أين يتم تعريف أو كتابة الدالة؟
أجبنا على هذا السؤال في آخر الجزء الأول، وسنعيد الإجابة هنا: يمكنك تعريف الدالة بصورة عامة في في الوحدة النمطية القياسية العامة Standard Module، أو يمكنك تعريفها في الوحدة النمطية الخاصة للنموذج Form Module أو للتقرير Report Module. تذكر أنه لا يمكنك استخدام دالة عامة غير معرفة في فئة الوحدة النمطية Class Module كإعداد لخاصية في نموذج أو تقرير.

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

أولا: تعريف الدالة:

 



1. 
   
   افتح أي قاعدة بيانات موجودة لديك، ثم حدد أي Form موجود فيها، ثم إذهب إلى قائمة عرض View ثم إلى code كما توضح الصورة:
   
   
   
   

   

   
   
   
    
   
   

   أو يمكنك أن تقوم مباشرة بالضغط على رمز code على شريط الأدوات Database كما توضح الصورة:

   
   
   
    
   
   

   

   
   
   
    
   
   

   ملاحظة: لا تقلق حول اختيار أي Form للوقوف عليه، لأن الدالة ستعرف بشكل عام.
   





 



2. 
   
   
    
   
   

   ستفتح لك نافذة VBA قم بكتابة الدالة التالية فيها:
   

   
   

   Function FirstOfNextMonth( )
FirstOfNextMonth = DateSerial(Year(Now), Month(Now) + 1, 1)
End Function





 



3. 
   
   
    
   
   

   أغلق نافذة VBA.

ثانياً: ربط الدالة بالنموذج:

 



1. 
   
   
    
   
   

   قم بإنشاء نموذج جديد في عرض التصميم Design View.





 



2. 
   
   
    
   
   

   قم بإضافة أداة مربع نص Text Box إليه.





 



3. 
   
   
    
   
   

   غيّر عنوان مربع النص إلى "التاريخ المفترض للتخرج من الجامعة" أو أي عنوان آخر كما يحلو لك.





 



4. 
   
   
    
   
   

   من خصائص مربع النص إذهب إلى تبويب Data ثم أضف الكود التالي إلى خاصية "قيمة افتراضية Default Value" كما توضح الصورة:
   

   
   

   =FirstOfNextMonth( )
   

   
   

   

   
   
   
    
   
   

   ملاحظة: يمكنك وضع الكود في خاصية Control Source كذلك.
   





 



5. 
   
   
    
   
   

   احفظ النموذج بأي اسم وليكن Form1 مثلاً.





 



6. 
   
   
    
   
   

   اعرض النموذج، ستجد أنه يضيف القيمة المرجعة من الدالة إلى الـText Box تلقائياً كقيمة افتراضية

ملاحظات:

 



• 
  
  
   
  
  

  صحيح أننا لم نتحدث بالتفصيل عن الدوال المبنية مسبقاً في الـVBA والتي استخدمناها في مثالنا مثل DateSerial وYear وNow وMonthولكن لا تقلق يمكنك تعلمها بسهولة.





 



• 
  
  
   
  
  

  لاختبار التعبيرات البرمجية التي تكتبها في أي إجراء مباشرة في نافذة Microsoft Visual Basic أو VBA، يمكنك إظهار نافذة الترجمة الفورية Immediate window من قائمة عرض View أو بالضغط على Ctrl+G. وإليك طريقة التعامل معها:
  1- اكتب فيها علامة الاستفهام (؟) ثم اكتب التعبير الذي تريد اختبار صحته، ثم اضغط Enter.
  2- ستعيد لك قيمة التعبير أو الدوال التي استخدمتها، انظر للصورة التالية كي تشاهد كيف تعاملنا معها في مثالنا الحالي:

-=-=-=-=-=-=-=-=-=-

في نهاية هذا الدرس بجزأيه أرجو أن تكون بيئة الـAccess البرمجية قد اتضحت تماماً لك أيها القارئ الكريم، فهذا هو الهدف من الدرس.

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

مقدمة للبرمجة باستخدام VBA في Access [الجزء الثاني: الأمثلة]