التخطي إلى المحتوى الرئيسي

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











التسميات:

تعليقات

إرسال تعليق

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

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

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

انشاء الجداول في اكسس

انشاء الجداول في اكسس بعد انشاء ملف اكسس جديد فان الخطوة الاولى ستكون انشاء الجداول، ولانشاء الجداول نتبع ما يلي: 1- اختيار create  كما في الصورة 2- نقوم باختيار Table او Table Design والامر متروك للمستخدم، وانا بشكل شخصي افضل Table Design 3- بعد اختيار Table Design ستفتح لنا نافذة تصميم الجدول كما في الصورة 4- الحقل الاول Field Name يتم فية ادخال عناوين الاعمدة (الحقول) 5- الحقل الثاني Data Type يتم فية تحديد نوع المتغير (رقم ، نص ، تاريخ ...الخ) 6- الحقل الثالث Description وهو حقل اختياري ويتم فية ادخال وصف لهذا العمود 7- في كل جدول يجب تحديد المفتاح الاساسي ويجب ان يحتوي هذا الحقل على قيمة فريدة لا تتكرر مع اي حقل اخر. 8 - بعد الانتهاء نقوم باغلاق الجدول وعندها ستظهر نافذة لتحديد اسم الجدول وحفظة . 9- بعد فتح الجدول سيكون شكله كما في الصورة 10- نلاحظ ان عنوان العمود الاول ظهر كما تم كتابتة في التصميم اما العمود الثاني فقد ظهر اسمة باللغة العربية والسبب انه تم اضافة تسمية للعمود من خصائص الحقل اثناء تصميم الجدول كما في الصورة وبذلك يكو...
اعرف المزيد »

Combo Box & List Box القائمة المنسدلة / مربع التحرير والسرد / مربع قائمة في اكسس خطوة بخطوة

 القائمة المنسدلة /  مربع التحرير والسرد / مربع القائمة   في مايكروسوفت اكسس  Combo Box & List Box ملاحضة : ما ينطبق على القائمة المنسدلة (Combo Box) ينطبق على مربع القائمة (List Box) في هذا الموضوع القائمة المنسدلة اومربع التحرير والسرد هي احدى الكائنات التي تستخدم في نماذج الاكسس وتظهر فيها مجموعة من القيم يحددها المبرمج للتسهيل على المستخدم في عملية الاختيار او لاجبارة على مجموعة من الخيارات فقط توجد اكثر من طريقة لاضافة قائمة منسدلة الى النماذج ومنها: الطريقة الاولى: - من خلال خصائص الحقل في الجدول، فاذا تم تغيير نوع الحلقل الى Combo Box في الجدول فانه عند اضافة هذا الحقل الى النماذج  سيقوم الاكسس باضافة قائمة منسدلة الى النموذج وبشكل تلقائي ولها نفس الخصائص الموجودة في الجدول.   الطريقة الثانية :- من خلال اضافة قائمة منسدلة من خلال تصميم النموذج ،ويتم ذلك من خلال اضافة القائمة المنسدلة من القائمة Design  ومن ثم ادراج القائمة في النموذج  1- بعد ادراج القائمة المنسدلة سيفتح المعالج وذلك للتحكم بخصائص...
16 تعليقًا
اعرف المزيد »