اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

اخي ابو خليل ارجو ان يتسع صدرك لي  انا اريد تحديد عدد النسخ في الطباعة بدون فتح التقرير هذا هو ما اريده  واكون شاكر لك

تم تعديل بواسطه حسين العربي
قام بنشر

تم فصل الموضوع

تفضل هذا لتحديد عدد مرات الطباعة ، حيث سيتم طباعة 5 نسخ

يمكنك  استبدال الرقم 5 بحقل في النموذج

Dim i As Integer
Do Until i = 5
   i = i + 1
    DoCmd.OpenReport "rep1", acViewNormal
Loop
قام بنشر
Do Until    Loop
هذه من جمل التكرار نستخدمها للدوران وتكرار حدث ما عند عدم تحقق شرط معين

Dim i As Integer '   اعلان عن متغير رقمي والذي هو حرف الآي 
Do Until i = 5  ' اعمل ما دامت الآي لا تساوي خمسة 
   i = i + 1 '  تصاعد قيمة الآي في كل دورة بمقدار واحد
    DoCmd.OpenReport "rep1", acViewNormal  '  امر الطباعة
Loop ' دوران او رجوع من البداية عند دو

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information