ملء آلي ديناميكى للسجلات فى التقربر

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته 

فى هذا النموذج يتم ملئ آلي فى التقرير لكى يمتلئ التقرير بالسجلات حتى لا يكون به فراغ 

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

يجب تغيير الارقام فى كل تقرير 
 

Allrecords = 16000

فهل هناك طريقة ليعمل على كل التقارير 

وجزاكم الله خيراً

طريقة النموذج (1).mdb

[أبو إبراهيم الغامدي]

وعليكم السلام ورحمة الله و بركاته

في 13‏/8‏/2022 at 13:27, محمد احمد لطفى said:

فهل هناك طريقة ليعمل على كل التقارير 

يمكن وضع هذه القيمة في المحدد الأخير لتابع فتح التقرير

Dim stDocName As String

stDocName = "Q1"
DoCmd.OpenReport stDocName, acViewPreview, , , , 16000  '** يمكن أخذ القيمة من مربع نص

وفي التقرير في خدث عند الفتح أضف النص التالي في الأعلى

Private Sub Report_Open(Cancel As Integer)
   Dim Allrecords As Integer
   
   If Not IsNull(Me.OpenArgs) Then
      Allrecords = Me.OpenArgs
   End If

[محمد احمد لطفى]

جزاك الله خيراً أستاذى @أبو إبراهيم الغامدي

[محمد احمد لطفى]

بعد اذن حضراتكم 
هل يمكن عمل 

اذا كان التقرير افقى = 16000
اذا كان التقرير عمودى = 11000