شرح اين يوضع هذا الكود

[hussein arby]

السلام عليكم ورحمة الله وبركاته 

اخواني اعضاء ومشرفي المنتدي الكرام - هذا الكود وجدته في بعض المنتديات  وظيفته تحديد عدد معين من السجلات في الصفحة  وعند الزيادة يكون في صفحة اخري

لاكن لاستطيع تطبيقه علي تقرير عندي

المهم انا اريد تحديد عدد السجلات في كل صفحة تقرير 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    If [txtcounter] Mod 2 = 0 Then    
    Me.Detail.ForceNewPage = 2
Else
    Me.Detail.ForceNewPage = 0
End If    
End Sub

مرفق لكم التقرير االذي اريد التطبيق عليه (بصيغة /2007 /2003

shsh.rar

sa.rar

تم تعديل يناير 7, 2015 بواسطه حسين العربي

[علي المصري]

افتح التقرير في وضع التصميم

في الدزء الخاص ب Details   ـو  تفصيل  باللغة العربية

حدث عند التنسيق  on format

 

ضع الكود

    If [txtcounter] Mod 2 = 0 Then    
     Me.Detail.ForceNewPage = 2 
Else
    Me.Detail.ForceNewPage = 0 
End If    

shsh.rar

[hussein arby]

اخي الفاضل علي شكرا علي مرورك  وجزاك الله خير الجزاء وزادك الله من علمه

تم تعديل يناير 7, 2015 بواسطه حسين العربي

[yms12]

بارك الله فيك وجزاك الله الجنة

[hussein arby]

شكرا لك اخي الفاضل علي وجزاك الله الجنه وزادكك الله من علمه