hussein arby قام بنشر نوفمبر 9, 2014 مشاركة قام بنشر نوفمبر 9, 2014 (معدل) اخي ابو خليل ارجو ان يتسع صدرك لي انا اريد تحديد عدد النسخ في الطباعة بدون فتح التقرير هذا هو ما اريده واكون شاكر لك تم تعديل نوفمبر 9, 2014 بواسطه حسين العربي رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر نوفمبر 10, 2014 مشاركة قام بنشر نوفمبر 10, 2014 تم فصل الموضوع تفضل هذا لتحديد عدد مرات الطباعة ، حيث سيتم طباعة 5 نسخ يمكنك استبدال الرقم 5 بحقل في النموذج Dim i As Integer Do Until i = 5 i = i + 1 DoCmd.OpenReport "rep1", acViewNormal Loop رابط هذا التعليق شارك More sharing options...
hussein arby قام بنشر نوفمبر 10, 2014 الكاتب مشاركة قام بنشر نوفمبر 10, 2014 شكرا اخي الفاضل ابو خليل علي الاستحابه هذا هو المطلوب والف شكر لك علي تعاونك معنا رابط هذا التعليق شارك More sharing options...
hussein arby قام بنشر نوفمبر 10, 2014 الكاتب مشاركة قام بنشر نوفمبر 10, 2014 اخي ابو خليل ممكن شرح لهذا الكود لو تكرمت اريد ان افهم معناه حتي تعم الفائده وشكرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر نوفمبر 11, 2014 مشاركة قام بنشر نوفمبر 11, 2014 Do Until Loop هذه من جمل التكرار نستخدمها للدوران وتكرار حدث ما عند عدم تحقق شرط معين Dim i As Integer ' اعلان عن متغير رقمي والذي هو حرف الآي Do Until i = 5 ' اعمل ما دامت الآي لا تساوي خمسة i = i + 1 ' تصاعد قيمة الآي في كل دورة بمقدار واحد DoCmd.OpenReport "rep1", acViewNormal ' امر الطباعة Loop ' دوران او رجوع من البداية عند دو رابط هذا التعليق شارك More sharing options...
hussein arby قام بنشر نوفمبر 11, 2014 الكاتب مشاركة قام بنشر نوفمبر 11, 2014 شكرا اخي الفاضل ابو خليل علي استجابتك وربنا يجعله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.