الدوال functions واستخدامتها مع vba access

تكلمنا فى درس سابق عن الاجراءات واستخدامها مع VBA access وفى هذا الدرس سنتكلم عن استخدام الدوال Functions واستخدامتها مع VBA access 
والدوال تشبه الاجراءات فى استخدامها وتختلف عنها بشيء وحيد وهو  ان الدوال ترجع قيمة معينة بينما الاجراءات لا ترجع قيمة معينة

طريقة كتابة الدالة function

يتم انشاء الدالة بكتابة الكلمة المحجوزة function ثم نقوم بكتابة اسم الدالة وليكن اسم الدالة في هذا المثال هو first   ويتم انهاء الدالة بالكلمة المحجوزة End function

نقوم بانشاء دالة بسيطة من النوع النصي ولهذا قمنا بتعريف الدالة function first() as string لكون الدالة ستعيد نصاً

 وهذه الدالة أعطينا لها قيمة وهو نص معين " welcome in my application” وسيتم إعادة الدالة من خلال رسالة نصية     msgbox 

في النموذج قمنا بانشاء زر اسمه function ومن الاحداث اخترنا الحدث On click ثم ضغطنا علي الثلاث نقاط لنفتح محرر الأكواد

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

نلاحظ انه بمجرد الضغط على الزر function يتم تنفيذ الدالة كما هو موضح بالمثال

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

نقوم بتسمية المربع النصى الثاني باسم lname  وهو الذى سنكتب فيه اسم الأب

نقوم بتسمية المربع النصي الثالث باسم fullname حيث سيظهر فيه الاسم بالكامل

نقوم بكتابة الدالة ونسمى الدالة هنا fulln وهى ستأخذ متغيرين من النوع النصي المتغير الأول اسميناه x1 والمتغير الثاني اسميناه x2 وهذه الدالة ستقوم بارجاع قيم نصية  وهذه الدالة ستقوم بجمع اسم الشخص والذى سيكون x1 مع اسم الاب والذى سيكون X2 مع وضع مسافة بينهما كما هو موضح .

نضغط على الزر اظهر الاسم بالكامل ومن الاحداث نختر الحدث onclick ومنه نفتح محرر الأكواد.

مربع الاسم بالكامل وهو fullname يساوى  اسم الدالة وهو fulln ثم نقوم بتمرير الوسائط للدالة حيث ان هذه الدالة تستخدم وسيطين وهما fname,lname

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

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

me.fullname=fulln(me.lname,me.fname)

نلاحظ انه عند الضغط على زر اظهر الاسم مقلوبا سيتم اظهار اسم الأب اولاً ثم اسم الشخص بعد ذلك كما هو موضح بالمثال.