recent
مواضيع ساخنة

شرح دالة FOR...NEXT Statement في الاكسس مع الامثلة


يتم استخدام عبارة Microsoft Access FOR ... NEXT لإنشاء حلقة FOR بحيث يمكنك تنفيذ التعليمات البرمجية لـ VBA بعدد ثابت من المرات.

على سبيل المثال في حال كان لديك 100 منتج مثلا وتريد ان تعرض بيانات اول 10 منتجات فقط يمكنك استخدام هذه العبارة.

المثال المذكور اعلاه هو مثال بسيط على ما يمكن القيام به باستخدام هذه الدالة وفي الحقيقة يمكن استخدامها لتنفيذ اكواد معقدة تمكنك من تنفيذ اوامر بضغطة زر واحدة وتوفر الكثير من الوقت في حال تم تنفيذ هذه الاوامر على حدة.

في المثال ادناه ، يتم التحكم في حلقة FOR بواسطة متغير LCounter. سوف يتكرر 8 مرات ، بدءًا من 1 وينتهي عند 8. في كل مرة داخل الحلقة ، سيعرض مربع رسالة بقيمة متغير LCounter. سيعرض هذا الرمز 8 مربعات رسائل بالقيم التالية: 1 و 2 و 3 و 4 و 5 و 6 و 7 و 8.

Sub Single_Loop_Example

   Dim LCounter As Integer

   For LCounter = 1 To 8
      MsgBox (LCounter)
   Next LCounter

End Sub

google-playkhamsatmostaqltradent