طريقة تحديد عدد السجلات التى يتم عرضها فى صب ريبورت

[safaa salem5]

عندى ريبورت موجود بداخله صب ريبورت اريد تحديد عدد السجلات المعروضه فى الصب ريبورت بناء على قيمة حقل اسمه

 TH_no

فى جدول اسمه

 settings_general_tbl  

 

  يعنى لو القيمه 2 يعرض عددسجلات 2  لو 3 يعرض 3 وهكذا

No.of record.accdb

[عمر ضاحى]

منذ ساعه, safaa salem5 said:

عندى ريبورت موجود بداخله صب ريبورت اريد تحديد عدد السجلات المعروضه فى الصب ريبورت بناء على قيمة حقل اسمه

 TH_no

فى جدول اسمه

 settings_general_tbl  

 

  يعنى لو القيمه 2 يعرض عددسجلات 2  لو 3 يعرض 3 وهكذا

No.of record.accdb 1.78 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

بما اني مش عارف فين التقرير الاساسي من الفرعي عندك

وايضا مفيش بيانات

قمت بعمل جدول وتقرير جديد 

واضفت فيه بعض البيانات

وعملت ليكي الكود

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim x As Integer
    x = Nz(DLookup("TH_no", "settings_general_tbl"), 0)
    
    If [ID] Mod x = 0 Then
        Me.Detail.ForceNewPage = 2
    Else
        Me.Detail.ForceNewPage = 0
    End If
End Sub

تقدري تجرب الملف

No.of record.rar

 

[safaa salem5]

15 minutes ago, عمر ضاحى said:

بما اني مش عارف فين التقرير الاساسي من الفرعي عندك

وايضا مفيش بيانات

قمت بعمل جدول وتقرير جديد 

واضفت فيه بعض البيانات

وعملت ليكي الكود

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim x As Integer
    x = Nz(DLookup("TH_no", "settings_general_tbl"), 0)
    
    If [ID] Mod x = 0 Then
        Me.Detail.ForceNewPage = 2
    Else
        Me.Detail.ForceNewPage = 0
    End If
End Sub

تقدري تجرب الملف

No.of record.rar 63.84 kB · 0 downloads

 

CBC         Main report

CBCRH      subreport

[عمر ضاحى]

7 دقائق مضت, safaa salem5 said:

CBC         Main report

CBCRH      subreport

استبدلى ID بالمعرف او اسم رقم التسلسل فى الجدول

وباقى الكود كما هو 

الكود هيتم وضعه للتقرير الفرعي

راجعي ال عملته وحاولى تفهمي الفكره

 

[safaa salem5]

معلش انا مش فاهمه الكود مش هعرف اطبقه    الملف موجود ممكن تعمله    مع العلم الصب ريبورت مرتبط مع الريبورت بالكود اللى اللى هيكون فى الفورم 

[عمر ضاحى]

الملف ما فيه بيانات علشان اطبق عليه 

اعملى بيانات واضحه وخلى الملف يشتغل بشكل سليم وانا باطبق عليه ان شاء الله 
لكن افتح التقرير ويطلب مني بيانات انا ما اعرفها كيف بكمل؟

 

 

[safaa salem5]

24 minutes ago, عمر ضاحى said:

الملف ما فيه بيانات علشان اطبق عليه 

اعملى بيانات واضحه وخلى الملف يشتغل بشكل سليم وانا باطبق عليه ان شاء الله 
لكن افتح التقرير ويطلب مني بيانات انا ما اعرفها كيف بكمل؟

 

 

لما يطلب منك   

 

[Forms]![cbc_frm]!

                        1 فى الكود اكتب 

[Forms]![visit_frm]![ID]                        5004  اكتب                   

[Forms]![CBC_frm]![vdate]            01/10/2024

 

No.of record.accdb

تم تعديل بالامس في 12:07 بواسطه safaa salem5

[عمر ضاحى]

طيب

اول حاجه اعملى حقل جديد وسميه SN وخليه رقم تلقائى فى الجدول

وضيفى الحقل ده فى التقرير الفرعي

وممكن تخفيه لو مش عاوزاه

وبعد كده

ضعي الكود ده فى التقرير الفرعي

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim x As Integer
    x = Nz(DLookup("TH_no", "settings_general_tbl"), 0)
    If [SN] Mod x = 0 Then
        Me.Detail.ForceNewPage = 2
    Else
        Me.Detail.ForceNewPage = 0
    End If
End Sub

 

وان شاء الله هيشتغل معاكي

وخلى طريقة عرض التقرير Print Preview

 

وده مرفق ليكي

لو معرفتيش برضه 😁

انا حذفت الشروط من التقرير علشان اقد اتعامل معاه

وضفت حقل جديد فى الجدول

No.of record.rar

[safaa salem5]

20 minutes ago, عمر ضاحى said:

طيب

اول حاجه اعملى حقل جديد وسميه SN وخليه رقم تلقائى فى الجدول

وضيفى الحقل ده فى التقرير الفرعي

وممكن تخفيه لو مش عاوزاه

وبعد كده

ضعي الكود ده فى التقرير الفرعي

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim x As Integer
    x = Nz(DLookup("TH_no", "settings_general_tbl"), 0)
    If [SN] Mod x = 0 Then
        Me.Detail.ForceNewPage = 2
    Else
        Me.Detail.ForceNewPage = 0
    End If
End Sub

 

وان شاء الله هيشتغل معاكي

وخلى طريقة عرض التقرير Print Preview

 

وده مرفق ليكي

لو معرفتيش برضه 😁

انا حذفت الشروط من التقرير علشان اقد اتعامل معاه

وضفت حقل جديد فى الجدول

No.of record.rar 57.81 kB · 0 downloads

هو كدا مش شغال صح لان مكتوب فى الجدول 2 وهو بيظهر خمس سجلات

وبعدين مش عايزه حقل المفتاح الاساسى دا

تم تعديل منذ 21 ساعات بواسطه safaa salem5

[safaa salem5]

؟؟

[safaa salem5]

?????¿¿¿¿

[عمر ضاحى]

3 ساعات مضت, عمر ضاحى said:

وخلى طريقة عرض التقرير Print Preview

هل العرض هكذا؟

[safaa salem5]

3 hours ago, عمر ضاحى said:

هل العرض هكذا؟

اه

مش شغال معايا

[عمر ضاحى]

4 ساعات مضت, safaa salem5 said:

اه

مش شغال معايا

🤔

غريبه سبحان الله هو شغال معايا

حاولى تراجعي كل شى

وبتأني اتأكدي مره اخري من كل الملاحظات

وان الكود فى مكانه الصحيح

[safaa salem5]

9 hours ago, عمر ضاحى said:

🤔

غريبه سبحان الله هو شغال معايا

حاولى تراجعي كل شى

وبتأني اتأكدي مره اخري من كل الملاحظات

وان الكود فى مكانه الصحيح

طيب ممكن تعديل عالملف عشان مش ظابطت معايا