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

[safaa salem5]

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

SUB REPORT

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

سؤالى 

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

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

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

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

PAGE HEADER

New Microsoft Access Database.accdbFetching info...

[kkhalifa1960]

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

[safaa salem5]

  في 3‏/6‏/2024 at 06:17, kkhalifa1960 said:

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

Expand  

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

New Microsoft Access Database.accdbFetching info...

[M.Abd Allah]

السلام عليكم 

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

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

[safaa salem5]

  في 3‏/6‏/2024 at 11:15, Abo-Abd Allah said:

السلام عليكم 

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

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

Expand  

اه تمام. 

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

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

تم تعديل يونيو 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]

  في 3‏/6‏/2024 at 12:38, 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 فى وضع الطباعه 

 

Expand  

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

[M.Abd Allah]

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

[M.Abd Allah]

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

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

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

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

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

[safaa salem5]

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

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

 Me.A.Report.Visible = True

[M.Abd Allah]

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

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

[safaa salem5]

  في 4‏/6‏/2024 at 08:16, M.Abd Allah said:

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

Expand  

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

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

[M.Abd Allah]

  في 4‏/6‏/2024 at 09:11, safaa salem5 said:

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

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

Expand  

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

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

[safaa salem5]

  في 4‏/6‏/2024 at 09:28, M.Abd Allah said:

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

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

Expand  

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

[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]

  في 13‏/6‏/2024 at 09:10, 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

Expand  

 

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

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

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

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

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

 

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

[safaa salem5]

  في 13‏/6‏/2024 at 13:38, M.Abd Allah said:

 

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

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

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

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

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

 

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

Expand  

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

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

[M.Abd Allah]

  في 13‏/6‏/2024 at 14:15, safaa salem5 said:

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

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

Expand  

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

[safaa salem5]

  في 13‏/6‏/2024 at 15:14, M.Abd Allah said:

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

Expand  

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

[safaa salem5]

  في 13‏/6‏/2024 at 15:14, M.Abd Allah said:

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

Expand  

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

 

New Microsoft Access Database (3).accdbFetching info...

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

[safaa salem5]

  في 13‏/6‏/2024 at 13:38, M.Abd Allah said:

 

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

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

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

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

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

 

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

Expand  

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

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

@ M.Abd Allah

[M.Abd Allah]

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

[safaa salem5]

  في 7‏/7‏/2024 at 03:26, M.Abd Allah said:

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

Expand  

تمام تسلم

[M.Abd Allah]

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

  في 7‏/7‏/2024 at 17:24, safaa salem5 said:

تمام تسلم

Expand