التخطي إلى المحتوى الرئيسي

مقدمة الى البرمجة باستخدام VBA


مقدمة الى البرمجة باستخدام VBA  (للمبتدئين)

ان كتابة الكود في VBA ليست من الامور الصعبة وخصوصا اذا كان الكود مقتصرا على تشغيل الوظائف الاساسية وبالتالي ليس من الصعب تعلم الكود

لتعلم كتابة الكود لا بد من التمييز بين اشياء اساسية ومن اهمها:

1- كيفية تسمية المتغيرات
بشكل عام عند اعطاء المتغير اسم يجب ان لا يكون رقم او رمز ويجب ان يبدأ بحرف وان لا يكون في الاسم مسافات

2- يجب التعرف على الكلمات المحجوزة في لغة البرمجة VBA
توجد بعض الكلمات المحجوزة للغة البرمجة نفسها فمثلا لا يجوز ان نسمي المتغير باسم Double لانها كلمة محجوزة ولا يجوز تسمية المتغير باسم Date لانها ايضا محجوزة ( قائمة بالكلمات المحجوزة)

3- يجب التعرف على مجموعة الاوامر التي يجب كتابتها لتنفيذ شيء معين
مثلا لكتابة الشرط نستخدم IF ولفتح نموذج نستخدم Docmd ..... الخ.

4- يجب التعرف على المكان الذي نضع في الكود ( الحدث)
يختلف وقت تنفيذ الكود حسب الغرض، فمثلا قد نضع كود ونريد ان يتم تنفيذه عند فتح النموذج ، وقد نضع كود اخر يتم تنفيذة كل 1 ثانية، وربما نستخدم كود يتم تنفيذة عند اغلاق النموذج

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

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



2. اذا اردنا ان ننشئ رسالة تظهر عند فتح النموذج، ندخل الى خصائص النموذج ومن القائمة Event فسنقوم بالضغط على النقاط الموجودة امام On Open لنفتح نافذة محرر الكود


3. ستفتح نافذة محرر الكود وكما يلي:




4.سيتم كتابة الكود وكما يلي:










تعليقات

المشاركات الشائعة من هذه المدونة

انشاء الجداول في اكسس

انشاء الجداول في اكسس بعد انشاء ملف اكسس جديد فان الخطوة الاولى ستكون انشاء الجداول، ولانشاء الجداول نتبع ما يلي: 1- اختيار create  كما في الصورة 2- نقوم باختيار Table او Table Design والامر متروك للمستخدم، وانا بشكل شخصي افضل Table Design 3- بعد اختيار Table Design ستفتح لنا نافذة تصميم الجدول كما في الصورة 4- الحقل الاول Field Name يتم فية ادخال عناوين الاعمدة (الحقول) 5- الحقل الثاني Data Type يتم فية تحديد نوع المتغير (رقم ، نص ، تاريخ ...الخ) 6- الحقل الثالث Description وهو حقل اختياري ويتم فية ادخال وصف لهذا العمود 7- في كل جدول يجب تحديد المفتاح الاساسي ويجب ان يحتوي هذا الحقل على قيمة فريدة لا تتكرر مع اي حقل اخر. 8 - بعد الانتهاء نقوم باغلاق الجدول وعندها ستظهر نافذة لتحديد اسم الجدول وحفظة . 9- بعد فتح الجدول سيكون شكله كما في الصورة 10- نلاحظ ان عنوان العمود الاول ظهر كما تم كتابتة في التصميم اما العمود الثاني فقد ظهر اسمة باللغة العربية والسبب انه تم اضافة تسمية للعمود من خصائص الحقل اثناء تصميم الجدول كما في الصورة وبذلك يكو...

الشروط في الاستعلامات

الشروط في الاستعلامات يمكن اضافة الشروط في تصميم الاستعلام وعند اضافة الشرط فان الاستعلام سيقوم باظهار السجلات التي ينطبق عليها الشرط فقط، ويجب الانتباه الى انواع الحقول في الجدول قبل و ض ع الشرط لان صيغة الشرط في النص يختلف عنة اذا كنا نتعامل مع ارقام او تاريخ وسنتطرق الى هذة الانواع في هذا الموضوع. الصورة ادناة تخص تصميم الجدول الذي سنتعامل معه حيث يحتوي على اربع حقول من ظمنها اسم الطالب ونوعه نص قصير، وتاريخ الميلاد ونوعه تاريخ ووالنتيجة ونوعه رقم تم انشاء المثال اعلاة وتم تسميه الحقول باللغة العربية لتسهيل فهم الموضوع ، مع التاكيد على استخدام اللغة الانجليزية لكتابة المسميات يمكنك مشاهدة الفيديو للحصول على ايضاحات اكثر او الاستمرار بقراءة الموضوع 1-     الشروط في الحقل الذي يحتوي على نص او ارتباط تشعيبي: حسب الصورة اعلاة  لتصميم الجدول الخاص بنتائج الطلاب نلاحظ ان نوع البيانات في الحقل الثاني (اسم الطالب)    هو نص " Short Text "  وللتعامل مع هذا الحقل في الاستعلامات ،   في تصميم الاستعلام يمكننا ان نظع الشروط وكم...

انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس

انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس عندما يكون البرنامج متاح لاكثر من شخص للعمل علية فلا بد من حماية البرنامج من المستخدمين غير المصرح لهم من خلال اضافة نموذج للدخول الى قاعدة الببيانات، ولانشاء نموذج الدخول الى البرنامج نتبع الخطوات التالية: انشاء جدول للمستخدمين يتم فيه تخزين اسماء المستخدمين وكلمات مرورهم ويحتوي على حقل لاسم المستخدم وحقل لكلمة المرور انشاء نموذج للدخول ويحتوي على مربعي نص غير مستندة الى مصدر بيانات، وزري امر واحد للالغاء والثاني للدخول  اضافة الكود التالي في حدث عند النقر في زر موافق   VBA   If pas = DLookup("userpass", "tusers", "usernam='" & [usr] & "'") Then DoCmd.OpenForm "Form1" Else MsgBox "يوجد خطأ في اسم المستخدم او كلمة المرور" End If