تغيير عدد الطلاب في التقرير من 20 الى 10 في كل صفحة

[ahmed helmy draz]

السلام عليكم ورحمة الله.. ارجو المساعدة في تغيير عدد الطلاب في التقرير من 20 الى 10 فقط في كل صفحة

New Microsoft Access Database.accdb

[منتصر الانسي]

يوجد لطلبك حلين 

الأول حل بسيط وهو مجرد مضاعفة إرتفاع الصف ليشغل كل صف مكان صفين

الحل الثاني برمجي ويعتمد على قيمة مربع النص (م) أي المسلسل بحيث يتم فرض صفحة جديدة عندما تكون قيمة المسلسل يقبل القسمة على 10 بدون باقي

ملاحظة إضافية الحل الذي كان موجود في مثالك فيه مشكلتين الأولى أنه يقوم بإخفاء السجلات التي بعد السجل العاشر ولا يقوم بنقلها إلى الصفخات التالية والمشكلة الثانية تخص اللغة فيبدو أنك نسخت الكود من مثال من نسخة اوفيس انجليزية والملف المرفق تم إنشاؤه في أوفيس نسخة عربية لذلك فالكود التالي مثلاً

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    ' زيادة العداد بمقدار 1 لكل سجل
    intRecordCount = intRecordCount + 1
    
    ' تغيير الرقم 10 إلى أي عدد تريده (20، 50، 100...)
    If intRecordCount > 10 Then  ' ?? غير هذا الرقم حسب حاجتك
        ' إلغاء طباعة هذا السجل وما بعده
        Cancel = True
    End If
End Sub

يجب أن يكون بهذا الشكل

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
    ' زيادة العداد بمقدار 1 لكل سجل
    intRecordCount = intRecordCount + 1
    
    ' تغيير الرقم 10 إلى أي عدد تريده (20، 50، 100...)
    If intRecordCount > 10 Then  ' ?? غير هذا الرقم حسب حاجتك
        ' إلغاء طباعة هذا السجل وما بعده
        Cancel = True
    End If
End Sub

لاحظ إسم المقطع (Detail سيصبح تفصيل)

وهذه الملاحظة جانبية حبيت أضيفها لتنبيهك فقد تقوم بالإستفادة من أكواد أخرى مشابهة لهذا وعند تجربتها تجدها لا تعمل فتظن أن الكود غير صحيح والسبب لايكون منه

تحياتي

 

New Microsoft Access Database.accdb

[ahmed helmy draz]

شكرا جزيلا لسرعة الرد .. الحل البرمجي اجمل شكلا.  

تم تعديل مايو 10 بواسطه ahmed helmy draz