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

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

انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس

انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس عندما يكون البرنامج متاح لاكثر من شخص للعمل علية فلا بد من حماية البرنامج من المستخدمين غير المصرح لهم من خلال اضافة نموذج للدخول الى قاعدة الببيانات، ولانشاء نموذج الدخول الى البرنامج نتبع الخطوات التالية: انشاء جدول للمستخدمين يتم فيه تخزين اسماء المستخدمين وكلمات مرورهم ويحتوي على حقل لاسم المستخدم وحقل لكلمة المرور انشاء نموذج للدخول ويحتوي على مربعي نص غير مستندة الى مصدر بيانات، وزري امر واحد للالغاء والثاني للدخول  اضافة الكود التالي في حدث عند النقر في زر موافق   VBA   If pas = DLookup("userpass", "tusers", "usernam='" & [usr] & "'") Then DoCmd.OpenForm "Form1" Else MsgBox "يوجد خطأ في اسم المستخدم او كلمة المرور" End If
8 تعليقات
اعرف المزيد »

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

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