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

[safaa salem5]

عندى  ريبورت جواه

SUB REPORT

مصدر الصب ريبورت متغير بناء على اكتر من قيمه من احد الجداول

سؤالى 

الصب ريبورت دا فى التصميم  هيكون العرض بتاعه صفر

عايزه عند فتح التقرير الرئيسى الصب ريبورت يفتح بالحجم الاصلى بتاعه  لانه لو فضل صفر مش هيبان فى التقرير 

دا مثال ممكن يوضح فكرتى

الصب ريبورت موجود فى

PAGE HEADER

New Microsoft Access Database.accdb

[kkhalifa1960]

الملف غير كامل كي نساعد !!!!!!!!!!!!!!!

[safaa salem5]

50 minutes ago, kkhalifa1960 said:

الملف غير كامل كي نساعد !!!!!!!!!!!!!!!

تم تعديل الملف

New Microsoft Access Database.accdb

[M.Abd Allah]

السلام عليكم 

هو حسب مافهمت كده من المرفق أن ده تقرير لمعمل تحاليل 

مش المفترض أن التقرير اللي زي hln اللي بيبين بيانات المريض  يبقى فى page header ولا أنا فاهم كده غلط 

[safaa salem5]

56 minutes ago, Abo-Abd Allah said:

السلام عليكم 

هو حسب مافهمت كده من المرفق أن ده تقرير لمعمل تحاليل 

مش المفترض أن التقرير اللي زي hln اللي بيبين بيانات المريض  يبقى فى page header ولا أنا فاهم كده غلط 

اه تمام. 

المفروض الصب ريبورت دا لبيانات المريض هعمل منه اشكال مختلفه  وكلهم مش نفس العرض

عايزه كود عند فتح التقرير يفتح الصب ريبورت بنفس العرض بتاعه 

تم تعديل يونيو 3, 2024 بواسطه safaa salem5

[M.Abd Allah]

طيب تمام حطي الكود ده فى on format بتاع ال page header

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

    Dim intDetailHeight As Integer

    Dim intRecordCount As Integer

    

    Me.A.Report.Visible = True

    

    intDetailHeight = Me.A.Report.Section(acDetail).Height

    

    intRecordCount = 2

    

    Me.A.Height = intDetailHeight * intRecordCount

    

    Me.PageHeaderSection.Height = Me.A.Height

End Sub

إن شاءالله هيظهر معاكي تقرير ال sub فى وضع الطباعه 

[safaa salem5]

7 hours ago, Abo-Abd Allah said:

طيب تمام حطي الكود ده فى on format بتاع ال page header

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

    Dim intDetailHeight As Integer

    Dim intRecordCount As Integer

    

    Me.A.Report.Visible = True

    

    intDetailHeight = Me.A.Report.Section(acDetail).Height

    

    intRecordCount = 2

    

    Me.A.Height = intDetailHeight * intRecordCount

    

    Me.PageHeaderSection.Height = Me.A.Height

End Sub

إن شاءالله هيظهر معاكي تقرير ال sub فى وضع الطباعه 

 

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

[M.Abd Allah]

شغال والله بس الكهرباء ساعتها فصلت قبل مكنت احاول اعدل فيه هعدل فيه وابعت الملف 

[M.Abd Allah]

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

اشتغل تمام بس بعد اغلاق التقرير قاعده البيانات كانت بتهنج

فتم تعديل الكود فى حدث التحميل 

والتقرير وان شاء الله كده مفيش مشكله 

اتمني مكونش قصرتتعديل التقرير ليظهر.accdb

[safaa salem5]

لما بفتح التقرير مباشرة بيفتح عادى

لكن لما بفتحه بزرار معاينه بيدينى لون اصفر عالجزأ دا من الكود

 Me.A.Report.Visible = True

[M.Abd Allah]

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

تم تعديل يونيو 4, 2024 بواسطه Abo-Abd Allah

[safaa salem5]

54 minutes ago, M.Abd Allah said:

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

معلش تعبتك معايا 

اعمل فورم وحط فيه زرار يعمل معاينه للتقرير

[M.Abd Allah]

الان, safaa salem5 said:

معلش تعبتك معايا 

اعمل فورم وحط فيه زرار يعمل معاينه للتقرير

مفيش اي تعب الموضوع بسيط تحت امرك 

تعديل التقرير فورم بزرار.accdb

[safaa salem5]

23 minutes ago, M.Abd Allah said:

مفيش اي تعب الموضوع بسيط تحت امرك 

تعديل التقرير فورم بزرار.accdb 692 kB · 1 download

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

[M.Abd Allah]

اكيد هيكون افضل وخصوصا لو حبيتي تعملي اكتر من صب ريبورت زي مكنتي بتقولي 

او لو هتغيري مثلا اكتر من صب فورم أو هتعملي داله معينه بعد كده يعني تقوليلها في حاله تحليل CBC يظهر تقرير كذا أو فى حاله pcr يظهر كذا 

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

 

[safaa salem5]

 

هو ممكن حضرتك تشرحلى الكود داM.Abd Allah

Private Sub Report_Load()
    Dim intRecordCount As Integer
    
    Me.A.Report.Visible = True
    
    intRecordCount = DCount("*", "settings_Report_tbl")
    
    Me.PageHeaderSection.Height = 0
    
    Me.A.Height = Me.A.Report.Section(acDetail).Height * intRecordCount
End Sub
 

[M.Abd Allah]

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

 

هو ممكن حضرتك تشرحلى الكود داM.Abd Allah

Private Sub Report_Load()
    Dim intRecordCount As Integer
    
    Me.A.Report.Visible = True
    
    intRecordCount = DCount("*", "settings_Report_tbl")
    
    Me.PageHeaderSection.Height = 0
    
    Me.A.Height = Me.A.Report.Section(acDetail).Height * intRecordCount
End Sub

 

بتعمل متغير لحساب عدد السجلاتج

بعدها نخلى  العنصر A بتاعك يظهر

بعدها نقوم بحساب عدد السجلات في جدول settings_Report_tbl

ثم نعين ارتفاع Header الصفحة إلى 0 ودي مهمه عشان الخطوه الأخيره

 اخيرا نضبط ارتفاع العنصر A ليكون متناسبًا مع عدد السجلات في الجدول

 

إذا كنت بحاجة إلى مزيد من التفاصيل حول جزء معين من الكود أو لديك أسئلة إضافية، فلا تتردد في طرحها.

[safaa salem5]

35 minutes ago, M.Abd Allah said:

 

بتعمل متغير لحساب عدد السجلاتج

بعدها نخلى  العنصر A بتاعك يظهر

بعدها نقوم بحساب عدد السجلات في جدول settings_Report_tbl

ثم نعين ارتفاع Header الصفحة إلى 0 ودي مهمه عشان الخطوه الأخيره

 اخيرا نضبط ارتفاع العنصر A ليكون متناسبًا مع عدد السجلات في الجدول

 

إذا كنت بحاجة إلى مزيد من التفاصيل حول جزء معين من الكود أو لديك أسئلة إضافية، فلا تتردد في طرحها.

طيب بص حضرتك هو الكود تمام بس الجزا الخاص ب الهيدر ااعتقد اصغر شويه من اصب ريبورت عشان كده مش بيظهر كله لازم احرك الماوس لتحت عشان باقى التقرير يظهر

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

[M.Abd Allah]

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

طيب بص حضرتك هو الكود تمام بس الجزا الخاص ب الهيدر ااعتقد اصغر شويه من اصب ريبورت عشان كده مش بيظهر كله لازم احرك الماوس لتحت عشان باقى التقرير يظهر

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

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

[safaa salem5]

10 minutes ago, M.Abd Allah said:

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

دا مش موضوع جديد دا نفس الموضوع عموما شكرا

[safaa salem5]

On 6/13/2024 at 6:14 PM, M.Abd Allah said:

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

ممكن حضرتك تشوف المشكله فين جزأ الهيدر حاسه انه اصغر من حجم التقرير الفرعى

 

New Microsoft Access Database (3).accdb

تم تعديل يوليو 6, 2024 بواسطه safaa salem5

[safaa salem5]

On 6/13/2024 at 4:38 PM, M.Abd Allah said:

 

بتعمل متغير لحساب عدد السجلاتج

بعدها نخلى  العنصر A بتاعك يظهر

بعدها نقوم بحساب عدد السجلات في جدول settings_Report_tbl

ثم نعين ارتفاع Header الصفحة إلى 0 ودي مهمه عشان الخطوه الأخيره

 اخيرا نضبط ارتفاع العنصر A ليكون متناسبًا مع عدد السجلات في الجدول

 

إذا كنت بحاجة إلى مزيد من التفاصيل حول جزء معين من الكود أو لديك أسئلة إضافية، فلا تتردد في طرحها.

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

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

@ M.Abd Allah

[M.Abd Allah]

هبص عالملف أن شاءالله انهارده احللك المشكله

[safaa salem5]

13 hours ago, M.Abd Allah said:

هبص عالملف أن شاءالله انهارده احللك المشكله

تمام تسلم

[M.Abd Allah]

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

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

تمام تسلم