كيف تستطيع ان تتعلم لغة Visual Basic For Application

جزالك الله خيراً و يا ريت كتاب كمان للغه نستعين به بعد الله و عمجهودك الرائع

بوركتم اخواني الكرام علي هذا الموضوع

جاااااااااااااااااامد يا استاذ محمد والله من زمان كان نفسي ابعتلك رسالة واحكيلك تعمل هيك دروس من زمان وانا محتاج اتعلمها

بس اخوي محمد يا ريت لو تركز على كود العمليات الحسابية وقاعدة الشرطية if والرسائل التحذيرية بعد اذن حضرتك طبعا

قمت بتلخيصه اليوم و الحمد لله و مذاكرته

نسأل الله ان يجعله في ميزان حسناتك

محمد فؤاد تركي كتب:

الاخوة الزملاء

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

كل عام وأنتم بخير

لاحظت في الفترة الاخيرة بالمنتدي بعض الاعضاء الجدد الذين يحاولون فهم لغة VBA

أو Visual Basic For Application ولكهنم يفشلون نظراً لانهم يفتقرون لاساسيات اللغة وطريقة التعامل معها لذلك قررت من خلال هذه المشاركة ان اشرح للسادة الاعضاء بحكم خبرتي القليلة جدا جدا بعض الفاهيم الاساسية والبسيطة والتي قد تساعدهم علي فهم بعض الاساسيات البسيطة في لغة VBA عند تصميم برامجهم أو عند تصفح الاكواد البرمجية الموجوده في مشاركات الاعضاء والمشرفين الافاضل

لا أحب أن أطيل عليكم كثيراً ولنبدأ الان وعلي بركة الله شرح دروس شبة يوميه عن مفهموم جديد او داله جديده او اجراء يمكن ان يفيدنا واعلم ان الموضوع ليس بكم الدروس والامثلة التي سأقدمها بل بقدرتك علي فهم واستيعاب ما سيقال لان ذلك سيفيدك كثيرا فيما بعد في فهم الكثير من الامور

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

والصلاة والسلام علي اشرف المرسلين سيدنا محمد صلي الله علية وسلم

لنبدأ علي بركة الله

أولاً : - سنبدأ في شرح

 

مقدمة الي Access VBA

تعتبر مايكروسوفت أكسس شأنها شأن العديد من (نظم ادارة قواعد البيانات) RDBMS أو Relations Database management systems

ويأتي مع برنامج أكسس لغة برمجة خاصة بها تسمى VBA

وهي مجموعة فرعية من شركة ميكروسوفت شعبية

المشاريع بلغة البرمجه VBA

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

سنبدأ أولاً بــــ

أين يوضع الكود البرمجي

يوضع الكود في الوحدة النمطية( أنشاء وحدة نمطية جديدة ) أو من خلال الكائن ( مربع نص مثلا ) الذي تريد إضافة الكود له من خلال خصائص <-- إنشاء حدث <-- منشئ البرامج وكما هو موضح بالصورة المرفقة

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

3.jpg

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

في النموذج أما الكود قد يكون خاص بتقرير أو نموذج فقط فيوضع داخله.

1 - الكود الموجود في الموديل

أما يكون في روتين فرعي

sub routineلها أي اسم مثلSub mm()

و تنتهي ب

end sub

مثال

sub showamessage()msgbox "mm"end sub

و هذا في حالة مجموعة من التعليمات التي تكون جزء خاص و تنفذ بمفردها

أو تستدعي داخل روتين فرعي آخر

و إما أن تكون داخل دالة

function

function mm()end function

function showamessage(x)
msgbox "mm"
showamessage = x*x
end function

و هي تستخدم للعودة بقيم أو لتنفيذ الدالة علي المتغير الموجود بها

أما عن الكود الخاص بالكائنات:

objects

مثل الفورم أو التقرير فيكون مرتبط بأحداث معينة

تجدها فى الخصائص الخاصة بالكائن و اسمها أحداث

Events

انظر الصورة المرفقة أعلاة

وهذا مثال عن كيفية كتابة الحدث

Private Sub Form_Click()
اكتب كودك هنا لكي يستجيب نموذجك للامر عندما يضغط المستخدم كليك علي النموذج
End Sub

مثال آخر

Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
اكتب كودك هنا وذلك عندما يريد المستخدم اجراء الحدث بعد ترك المستخدم لزر الماوس
End Sub

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

2.jpg

والان دعنا نتعرف عن قائمة العناصر الموجودة داخل محرر الفجيوال بيسك وقائمة الاحداث

قم باختيار العنصر المطلوب عمل اجراء له كما في الصورة الموضحة ثم قم باختيار الحدث المناسب لهذا العنصر من خلال القائمة المنسدلة الموضحة بالصورة بعد تحديد العنصر المراد كتابة له والحدث الذي سيحدث عن كتابة الكود سيظهر لك مكان كتابة الكود ويكون بين private sub و end sub وتسمي منطقة البلوك والذي يكتب فيها الكود

فمثلا اذا كتبنا هذا الكود البسيط

me.Refresh

فكلمة me تعني أنا وانا هذه عائدة علي العنصر الموجود امامنا وهو form1

وكلمة Refresh

تعني تحديث وانعاش النموذج وقت التحميل أو وقت فتح النموذج

و دوت . تعني الاحداث التي سيفعلها النموذج بعد كلمة me ففي جميع الاحوال عندما تكتب كلمة me ثم دوت . تفتح لك قائمة منسدلة يتم اختيار منها الحدث المطلوب عملة

والصور التالية توضح الامور أكثر لما شرحناه سابقا

4.jpg

وسنناقش تفاصيل هذه الاجراءات في وقت قريب بما فيه الكفايه بخصوص هذه الاحداث

لكن الذي نريد ان نفهمة الان هو لماذا يلجأ المبرمج لكتابة كود VBA أعتقد ان الاجابة هي الرد علي تساؤلات المستخدم والذي يعجز الاكسس العادي الاجابة علي هذه التساؤلات

سنبدأ اليوم بعمل مثال بسيط نفتتح به دروسنا

نريد ان نقوم بعمل نموذج وبه ازرار عند الضغط عليها في حدث معين يقوم هذا الحدث بتلوين خلفية listbox كما في الشكل التالي

5.jpg

فلو نظرنا للكود المكتوب اعتقد اننا سنجده سهل جدا ومفهوم

فالكود الخاص بتلوين اللون الاحمر هو

Me.Listcolors.BackColor = vbRed

واذا اردنا تلوين الــ listbox باللون الاسود

Me.Listcolors.BackColor = vbBlack

واللون الازرق

Me.Listcolors.BackColor = vbBlue

واللون الماجينتا

Me.Listcolors.BackColor = vbMagenta

وهكذا بالنسبة لكثير من الالوان

مرفق أول مثال لنا هنا في هذه المشاركة والخاصة بتعليم لغة الفيجوال بيسك للتطبيقات

والي درس آخر غداً باذن الله

 

معلومة مفيده