While /Wend مايكروسوفت اكسس : استخدام الدالة

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

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

الصيغة:
VBA
While تحقق شرط معين
  الكود الذي سيتم تنفيذة
Wend

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

 While i < Me.Recordset.RecordCount
    If IsNull(ReoderLevel) Then ReoderLevel = 0
    DoCmd.GoToRecord , , acNext
    i = i + 1
Wend










تعليقات

إرسال تعليق

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

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

-
صورة
الشروط في الاستعلامات يمكن اضافة الشروط في تصميم الاستعلام وعند اضافة الشرط فان الاستعلام سيقوم باظهار السجلات التي ينطبق عليها الشرط فقط، ويجب الانتباه الى انواع الحقول في الجدول قبل و ض ع الشرط لان صيغة الشرط في النص يختلف عنة اذا كنا نتعامل مع ارقام او تاريخ وسنتطرق الى هذة الانواع في هذا الموضوع. الصورة ادناة تخص تصميم الجدول الذي سنتعامل معه حيث يحتوي على اربع حقول من ظمنها اسم الطالب ونوعه نص قصير، وتاريخ الميلاد ونوعه تاريخ ووالنتيجة ونوعه رقم تم انشاء المثال اعلاة وتم تسميه الحقول باللغة العربية لتسهيل فهم الموضوع ، مع التاكيد على استخدام اللغة الانجليزية لكتابة المسميات يمكنك مشاهدة الفيديو للحصول على ايضاحات اكثر او الاستمرار بقراءة الموضوع 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) وهذا النوع من الاستعلامات يستخدم لتحديث قيمة موجودة في جدول بقيمة اخرى موجودة في جدول اخر استعلام انشاء الجدا...
اعرف المزيد »