Do في امايكروسوفت اكسس - استخدام الدالة

-
استخدام دالة DO…Loop  في مايكروسوفت اكسس VBA

تستخدم الدالة Do  لتنفيذ امر معين او مجموعة من الاوامر الى ان يتحقق شرط معين .

الصيغة:
VBA
Do until i=10
  i=i+1
  msgbox i
Loop

مثال:
في هذا المثال يوجد مربع نص في النموذج اسمه ReoderLevel  وسيتم البحث في جميع السجلات من السجل الاول الى السج اذا ما ترك هذا الحقل فارغ وسيتم وضع القيمة 0 بدلا من تركه فارغا 
VBA
i = 0
ReoderLevel.SetFocus
DoCmd.GoToRecord , , acFirst


Do Until i = Me.Recordset.RecordCount
    If IsNull(ReoderLevel) Then ReoderLevel = 0
    DoCmd.GoToRecord , , acNext
    i = i + 1
Loop


ان Until تستخدم لتحديد الشرط الذي سيتوقف الدوران عنده ويمكن الاستغناء عنه في الكود على ان يتم اضافة الشرط داخل الجملة لان تركه مفتوح سيؤدي الى تنفيذ الكود وعدم التوقغف نهائيا لاننا لم نحدد له مكان ووقت التوقف عن التنفيذ، وممكن ان تتم اعادة صياغة الكود في المثال السابق كما يلي:
VBA
i = 0
ReoderLevel.SetFocus
DoCmd.GoToRecord , , acFirst

Do
    If IsNull(ReoderLevel) Then ReoderLevel = 0
    DoCmd.GoToRecord , , acNext
    If i >= Me.Recordset.RecordCount Then Exit Do 'شرط التوقف
    i = i + 1
Loop











تعليقات

إرسال تعليق

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

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

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

اخفاء اطار/ شاشة مايكروسوفت اكسس

-
صورة
اخفاء اطار/ شاشة مايكروسوفت اكسس لاخفاء اطار الاكسس يتطلب ذلك مجموعة من الاجراءات البسيطة ولكنها ضرورية جدا بنفس الوقت وكما يلي: 1.        انشاء دالة خاصة بهذا الغرض VBA Option Compare Database Option Explicit Global Const SW_HIDE = 0     Private Declare Function apiShowWindow Lib "user32" _         Alias "ShowWindow" (ByVal hwnd As Long, _               ByVal nCmdShow As Long) As Long            Function fSetAccessWindow(nCmdShow As Long) Dim loX  As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function 2.       يجب ان تكون جميع النماذج والتقارير منبثقة وتحتفظ بالتركيز 3.       يجب ان يتم انشاء نموذج للبدء ويتم تشغيلة بشكل تلقائي عند فتح الاكسس ويتم استدعاء كود اخفاء الشاشة عند فتح هذا النموذج  VBA Private Sub Form_O...
اعرف المزيد »

انواع الاستعلامات في اكسس

-
صورة
(Access Queries) الاستعلامات في اكسس انواع الاستعلامات  يتيح مايكروسوفت اكسس للمستخدم اختيار نوع الاستعلام حسب حاجة المستخدم وتعتمد الاستعلامات في اكسس على SQL  في بناء وتصميم الاستعلام. استعلام تحديد (Select) يساعد هذا النوع من الاستعلامات على انشاء جدول بسجلات محددة، مثلا في جدول الاصناف ممكن ان ننشئ استعلام للاصناف التي لونها احمر، او ممكن ان ننشئ استعلام مبني على جدول الاصناف وجدول الموردين لانشاء جدول يحتوي على اسم المورد (من جدول الموردين) واسم الصنف الذي تم شراؤه من هذا المورد (من جدول الاصناف) استعلام انشاء جدول (Make Table) يقوم هذا النوع من الاستعلامات بانشاء جدول جديد اي اننا ننشئ الاستعلام من جدول او اكثر ثم يتحول هذا الاستعلام الى جدول جديد سواء في قاعدة البيانات الحالية او في قاعدة بيانات اخرى. استعلام الحاق (Append) ويستخدم لالحاق بيانات من جدول او اكثر ليتم اضافتها الى جدول اخر استعلام تحديث  (Update) وهذا النوع من الاستعلامات يستخدم لتحديث قيمة موجودة في جدول بقيمة اخرى موجودة في جدول اخر استعلام انشاء الجدا...
اعرف المزيد »