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

**safaa salem5** · أكتوبر 30

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

TH_no

فى جدول اسمه

settings_general_tbl

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

**عمر ضاحى** · أكتوبر 30

منذ ساعه, 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** · أكتوبر 30

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

**عمر ضاحى** · أكتوبر 30

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

CBC Main report

CBCRH subreport

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

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

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

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

**safaa salem5** · أكتوبر 30

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

**عمر ضاحى** · أكتوبر 30

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

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

**safaa salem5** · أكتوبر 30

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

**عمر ضاحى** · أكتوبر 30

طيب

اول حاجه اعملى حقل جديد وسميه 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** · أكتوبر 30

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** · أكتوبر 30

؟؟

**safaa salem5** · أكتوبر 30

?????¿¿¿¿

**عمر ضاحى** · أكتوبر 30

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

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

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

**safaa salem5** · أكتوبر 30

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

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

اه

مش شغال معايا

**عمر ضاحى** · أكتوبر 31

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

اه

مش شغال معايا

🤔

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

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

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

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

**safaa salem5** · أكتوبر 31

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

🤔

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

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

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

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

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

**عمر ضاحى** · أكتوبر 31

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

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

اتفضلى

No.of record.rar

**safaa salem5** · نوفمبر 1

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

اتفضلى

No.of record.rar 57.23 kB · 5 downloads

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

**عمر ضاحى** · نوفمبر 1

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

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

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

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

**safaa salem5** · نوفمبر 1

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

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 بواسطه عمر ضاحى

تسجيل الدخول

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

الردود الموصى بها

safaa salem5

عمر ضاحى

safaa salem5

عمر ضاحى

safaa salem5

عمر ضاحى

safaa salem5

عمر ضاحى

safaa salem5

safaa salem5

safaa salem5

عمر ضاحى

safaa salem5

عمر ضاحى

safaa salem5

عمر ضاحى

safaa salem5

عمر ضاحى

safaa salem5

safaa salem5

عمر ضاحى

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information