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

تاخرت علينا اخ محمد عسى ان يكون المانع خير ودمتم

اين انت يا اخ محمد

بارك الله فيك أخي وخبيرنا الأستاذ محمد فؤاد

شرح رائع وفقك الله - ياغالي ( ياليت تعرج على دوال النصوص والتاريخ والمجال )

لأن الكثير يسأل عن كيف استخدامها في الكود ...... موفق أخي الكريم دوما وأبدا

EKSEER

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

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

أود ان اعتذر لكم جميعاً عن تأخري في تقديم الدروس واعرف ان الكثير منكم منتظر المزيد لكن اعذروني لانشغالي الشديد

واليوم سنبدأ في شرح جزئية مهمة وهي جزئية الدوال وسنبدأ اليوم بشرح

تعتبر دالة IF من الدوال الاكثر اهمية واكثر شيوعا واستخداماً في لغة فيجوال بيسك بصفة عامة

وتسمي IF الشرطية

وتعتير دالة IF من الدوال المرتبطة بتحقق شرط معين في حالة وقوع الشرط يتحقق حدث معين او تنفيذ امر

طيب تعالي ناخد مثال كده بالبلدي علي دالة IF

لو احنا قلنا

اقتباس

اذا حضرت الشياطين ذهبت الملائكة

وهذا معنا اذا كان الشرط صحيح وهو حضور الشياطين تحقق المطلوب وهو ذهاب الملائكة وده كان مثال لطريقة عمل قاعد IF

طيب تعالي معايا ونحاول ان احنا نطبق الكلام ده برمجياً

IF Condition Then
Command
End IF

شرح الكود

اذا كان الشرط صحيح

يتم تنفيذ الامر

اعتقد ان الكود سهل جداً

طيب تعالي ناخد مثال تاني بسيط وهو

IF[txt1]>700Then
MsgBox"اطبع المرتبات"
End IF

فكلمة txt1 هو مربع النص الموجود علي النموذج

وعلامة > وتعني اكبر من

ثم نص الرسالة

والجملة معناها ان لو المرتبات اكبر من 700 جنية اطبع المرتبات

طيب هنالك صيغة اخري لدالة IF وهي في حالة عدم تحقق الشرط يفعل البرنامج شيء آخر

مثال علي المثال السابق

If [txt1] > 700 Then
MsgBox "اطبع المرتبات"
Else
MsgBox "المرتبات المعروضة تساوي 700 جنية أوأقل"
DoCmd.CancelEvent
End If

كما نلاحظ تم تزويد كلمة Else

وهي معناها في حالة عدم تحقق الشرط سيظهر لنا رسالة اخري وهي ان المرتبات تساوي 700 او اقل

وتحتها جملة الغاء الحدث

DoCmd.CancelEvent

وبكدة نكون خلصنا شرح دالة IF

مرفق مثال

IF_Function.rar

بارك الله فيك وياريت ما تطول غيبتك اخي محمد

بنمشي معاك خطوة خطوة اخ محمد فؤاد

نتمنى مزيدا من الدروس

انا اول المحتاجين لهذه الدروس يااستاذ محمد

اشكرك ونحن معك حتى نهاية الدروس جزاك الله خيرا

لاسلام عليكم

نشكرك على الموضوع

اريد المساعده

هل لديك كود لفتح صنوق الكاشير من ببرنامج الاكسيس وايضا اريد كود لاظهار السعر على لوحة عرض الزبون

مع خالص الشكر

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

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

أولاً احب ان اشكر جميع الزملاء الذين قامو بشكر هذا الموضوع بارك الله فيكم جميعا

ثانياً بخصوص الاخ romanseslove

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

بسم الله نبدأ أخواني في درس جديد ودالة جديدة من ضمن دوال VBA

تعتبر الدالة Select Case من الدوال الشقيقة لدالة IF لكنها اكثر شمولاً وقدرة علي تنفيذ اوامر طويلة ومعقدة بعض الشيء

المهم

سيبك من الكلام النظري وتعالي ناخد مثال لان الامثلة بيكون فيها التطبيق اوقع من الكلام النظري

لو افترضنا انه يوجد عدد من الالون نريد ظهورها في النموذج داخل Listbox بناء علي اختيارات من Option Group في هذه الحالة سنحتاج لعمل التالي علي النموذج

1 - انشاء listbox علي النموذج ونسمية مثلا list1

2 - من قائمة Toolbox نختار الاداه Option Group كما هو موضح بالصورة

ثم من خلال المعالج الذي سيظهر امامنا نكتب هذه الالوان

أحمر

أسود

أصفر

أزرق

وامام كل لون سيضع لك المعالج قيمة امام كل لون كما هو موضح بالصورة وخلي بالك من القيم دي لان احنا سنستخدمها في جملة Select Case

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

نضغط علي Option Group كليك يمين ثم خصائص ثم ندخل علي محررنا الغالي VBA في حدث Click لكي نكتب الكود الخاص بهذه العملية

خلي بالك اسم الــ Option Group اللي احنا هنتعامل معاه داخل محرر الفيجوال بيسك في مثالنا Frm1

والان نكتب الكود

rivate Sub Frm1_Click()
Select Case Frm1
Case 1
Me.list1.BackColor = vbRed
Case 2
Me.list1.BackColor = vbBlack
Case 3
Me.list1.BackColor = vbYellow
Case 4
Me.list1.BackColor = vbBlue
End Select
End Sub

تبدأ جملة Select بجملتها الافتتاحية وهي Select Case

وبعد ذلك نبدأ في كتابة كلمة Case1

ثم نكتب الشرط الاول

بعد ذلك Case2

ثم نكتب الشرط الثاني

بعد ذلك Case3

ثم نكتب الشرط الثالث

بعد ذلك Case4

ثم نكتب الشرط الرابع

طبعا هذه الارقام اللي احنا اتكلمنا عنها في اول المشاركة وهي القيم التي ظهرت بجانب الالوان في شاشة المعالج استخدمناها كما تري في بناء جملتنا

بعد ذلك ننهي جملة Select Case بـــــ End Select

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

مثال لو افترضنا اننا نريد تصميم شاشة لتصدير تقارير البرنامج بعده صيغ مثل Ecxel أو Word أو PDF طبعا في هذه الحالة نختار مربع Option Group

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

وهذا مثال الذي تم شرحه للافادة

مرفق المثال

Select_Case.rar

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

رائع والي الأمام دائما.

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

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

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

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

[T2] = DLookup("[Emp_name]", "Emp", "ID=[T1]")

شرح الكود

T2 وتعني الحقل الموجود علي النموذج والذي سيظهر بداخلة نتائج البحث

ثم Dlookup وهي اسم الدالة

ثم اكتب في مكان [Emp_name] مكان الحقل الذي تريد البحث فية بداخل الجدول

ثم اكتب بداخل "Emp" اسم الجدول المراد البحث بداخلة وذلك بدلالة حقل "ID" ليتم ظهور والذي سيتم كتابتة في حقل T1 بالنموذج

انشيء نموذج جديد وبداخلة ثلاث حقول والتي سيتم جلبها من الجدول من خلال هذه الدالة

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

[T2] = DLookup("[Emp_name]", "Emp", "ID=[T1]")
[T3] = DLookup("[remarks]", "Emp", "ID=[T1]")

بعد الانتهاء من كتابة الكود اذهب للحقل T1 واكتب الرقم 1 أو 2 أو 3 أو 4 أو 5 ثم انظر الدالة ستجد كالنتائج كالصورة التالية

مرفق مثال

DLook_up.rar

مرحبا اخ محمد فؤاد

مشكور جدا على ما تقدمه من جهد عظيم

وأود ان افيدك وأذكرك بملف يحتوي على جميع دوال الاكسس وقد سبق ان حملته من منتدانا الغالي

وهو عبارة عن ترجمة لل HELP الموجود في الاكسس .

لعلك تستفيد منه في شرحك للدوال

ولا اذكر من قام بهذا الانجاز الرائع ، جزاه الله وجزاكم خير الجزاء

_____________________________.rar

الاخ محمد فؤاد شاكرين جهودك الطيبه ولي سؤال

الوحده النمطيه في مثال dlook تكون جاهزه ام انت تنشئها ام كيف وشكرا

اســتــاذ رائــــع

إن شاء الله اتعلم كتابة الاكواد

الاستاذ الفاضل /محمد التركي بعد سلام الله عليك ورحمته وبركاته لقد تابعت شروحاتك في برنامج المخازن وها انا اسير خلفك في تعلم الاكسيس ولكن لي ملحوظه في هذا المنتدي وياريت تشوفوا لها حل وهي مشكلة عدم ظهور بعض صور الشروحات وكذلك تكرر عدم ظهور بعض الصور في برنامج المخازن وانت وعدتنا في برنامج المخازن سابقا بانك سوف تضع الشروحات في كتاب وحتي الان لم يتم ذلك برجاء اما ان يتم اظهار الصور او تجميعها علي كتاب pdf

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

الأخ العزيز محمد

متابع لك ، وافتخر انك من مدينتي - بنها

والي الامام - نفعك الله بعلمه وجعله في ميزان حسناتك

عبدالله

a_badwi@yahoo.com

نعم أخي العزيز محمد شرحك جداً رائع ، لكن كما ذكر الأخ الكريم المشكلة في عدم ظهور بعض الصور في الشرح.

اخى العزيز محمد ولا صوره ظاهره عندى ايه العمل

الاستاذ الفاضل /محمد التركي بعد سلام الله عليك ورحمته وبركاته لقد تابعت شروحاتك في برنامج المخازن وها انا اسير خلفك في تعلم الاكسيس ولكن لي ملحوظه في هذا المنتدي وياريت تشوفوا لها حل وهي مشكلة عدم ظهور بعض صور الشروحات وكذلك تكرر عدم ظهور بعض الصور في برنامج المخازن وانت وعدتنا في برنامج المخازن سابقا بانك سوف تضع الشروحات في كتاب وحتي الان لم يتم ذلك برجاء اما ان يتم اظهار الصور او تجميعها علي كتاب pdf

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

استاذنا العزيز

جزاك الله عنا كل خير و وفقك و سدد خطاك.

لكن رجائي ان نعرف ما هو فهرس درةسك و ترتيبها ربما اني لدي سوء فهم و لكن هل ستكون الدروس عامة ام لها ترتيب معين ؟

ارجو لو تكرمتم توضيح ترتيب سياق الدروس .

و لكم جزيل الشكر و العرفان لفضلكم و جهكم البناء.

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

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

ملحوظة : - الموضوع متاح لا ي عضو او مشرف او خبير لتكملتة ان استطاع او اضافة جديد كل كلمة تكتب فائده للجميع

وجزاكم الله خيرا

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

هذه مشاركه مني , ملف بي دي أف ممتاز تعلمت منه الكثير بس بالانجليزي :S

وهو مفيد في تدرجه في المستويات وتوجد به بعض الاخطاء وقمت بالتنويه عليه حتى الفصل الخامس

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

كلمة السر للملف: الله أكبر

Microsoft_Access_VBA_Programming_For_The_Absolute_Beginner_Second_Edition.part1.rar

Microsoft_Access_VBA_Programming_For_The_Absolute_Beginner_Second_Edition.part2.rar

تكملة المرفقات

Microsoft_Access_VBA_Programming_For_The_Absolute_Beginner_Second_Edition.part3.rar

Microsoft_Access_VBA_Programming_For_The_Absolute_Beginner_Second_Edition.part4.rar

السلام عليكم

شكرا اخي محمد فؤاد على هذا الشرح ونطلب المزيد وبارك الله فيك

أخي الغالي / محمد فؤاد

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