منتديات | شات | العاب | العاب بنات | العاب باربي | العاب اكشن | العاب طبخ | العاب سيارات | العاب تلبيس | العاب فلاش

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

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

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

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

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

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

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

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

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

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 البرمجية قد اتضحت تماماً لك أيها القارئ الكريم،

1 2

الاقسام الرئيسية

القائمة البريدية