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

[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

تم تعديل أكتوبر 30 بواسطه 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 وهو بيظهر خمس سجلات

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

تم تعديل أكتوبر 30 بواسطه 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:

🤔

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

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

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

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

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

[عمر ضاحى]

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

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

اتفضلى

 

 

No.of record.rar

[safaa salem5]

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

اتفضلى

 

 

No.of record.rar 57.23 kB · 5 downloads

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

[عمر ضاحى]

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

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

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

ثانيا ممكن فى حدث عند الفتح ضعى هذا الكود

 

Private Sub Report_Open(Cancel As Integer)
    If Me.اسم_التقرير_الفرعي.Form.RecordCount = 0 Then
        Me.اسم_التقرير_الفرعي.Visible = False
    Else
        Me.اسم_التقرير_الفرعي.Visible = True
    End If
End Sub

 

[safaa salem5]

1 hour ago, عمر ضاحى said:

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

طريقتك ناجحه جدا بس انا مكنتش حابه اضيف حقول جديده ولقيت حل تانى  

[safaa salem5]

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

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

ثانيا ممكن فى حدث عند الفتح ضعى هذا الكود

 

Private Sub Report_Open(Cancel As Integer)
    If Me.اسم_التقرير_الفرعي.Form.RecordCount = 0 Then
        Me.اسم_التقرير_الفرعي.Visible = False
    Else
        Me.اسم_التقرير_الفرعي.Visible = True
    End If
End Sub

 

بيدينى ايرور   لو ممكن تعديل عالملف يبقى كتر خيرك

[عمر ضاحى]

1 ساعه مضت, safaa salem5 said:

بيدينى ايرور   لو ممكن تعديل عالملف يبقى كتر خيرك

معلش كنت بعت لكي الكود من غير ما اجربه لاني مكنتش على الكمبيوتر

فى النموذج الرئيسي عندك
فى Detail

فى حدث On Format

قومي بوضع هذا الكود
 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.H.Report.HasData Then
        Me.H.Visible = True
    Else
        Me.H.Visible = False
    End If
End Sub

 

تم تعديل نوفمبر 1 بواسطه عمر ضاحى