الاجراءات فى VBA واستخدامها مع برنامج الاكسس

الاجراء

عبارة عن مجموعة من الأكواد تقوم بأداء وظيفة معينة ولكن لا ترجع نتيجة

خطوات انشاء اجراء معين

• نكتب الكلمة المفتاحية sub ثم نكتب اسم الاجراء وليكن مثلا test
• بمجرد الضغط على مفتاح enter من لوحة المفاتيح يتم انشاء قوسي الفتح والإغلاق للاجراء ويتم وضع الكلمة المحجوزة end sub
• نقوم بكتابة الأكواد بين sub وend sub

يتم انشاء الاجراء بكتابة الكلمة المحجوزة sub ويتم انهاء الاجراء بالكلمة المحجوزة end sub

يتم كتابة الكود بين كلمة sub وend sub ونلاحظ هنا أن الناتج سيتم اخراجة عن طريق رسالة بكتابة الأمر msgbox

يتم انشاء الاجراء بكتابة الكلمة المحجوزة sub ويتم انهاء الاجراء بالكلمة المحجوزة end sub

لتنفيذ الاجراء على نموذج معين نقوم بانشاء نموذج في وضع التصميم design view ثم ننشئ زر أمر ومن event نختار On click ثم نضغط على الثلاث نقاط ...ونضغط على code builder

ونكتب اسم الاجراء وهو main وبذلك يتم استدعاء الاجراء main وتنفيذه بمجرد الضغط على زر الأمر ناتج العملية

 نلاحظ انه بمجرد الضغط على زر الأمر ناتج العملية تظهر الرسالة بها ناتج العملية التي تم استدعائها من الاجراء main

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

يمكن استخدام parameter او الوسائط في الإجراءات وذلك بكتابة المتغيرات بين اقواس الاجراء كما هو موضح بالمثال .

في حالة استخدام parameter يلزم عند استدعاء الاجراء استخدام الأمر call قبل اسم الاجراء

 call+اسم الاجراء

نلاحظ هنا اننا قمنا بتمرير الرقم 16 إلى الاجراء وحيث أن

X=x+1

X=16+1

X=17

نلاحظ ظهور رسالة تظهر الناتج عند الضغط على زر أمر ناتج العملية

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

نقوم بتغيير اسم مربع النص الأول إلىnum1  ومربع النص الثاني إلى num2 ومربع النص الثالث إلى  num3

نقوم بتعريف المتغيرات x1 as double – x2 as double- x3 as textbox حيث أن x3  هو مربع النص الذى سيظهر فيه الناتج

x3=x1+x2

ونقف على زر الأمر "ناتج العملية"ومن الأحداث نضغط على on click ومنها نضغط على الثلاث نقاط لنفتح code builder

نقوم باستدعاء الاجراء call main كما هو موضح بالمثال

Call main (me.num1,me.num2,me.num3)

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