تعديل فى شكل التقرير

غير أسماء مربعات التسمية و مربعات النص بحيث تكون مرتبة

مثل

labl01 labl02 .....................................labl17

txt01 txt02 ....................................txt17

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

Dim r As Integer
Dim ctl As Control
r = DCount("*", "1")
For Each ctl In Me.Controls
If Val(Right(ctl.Name, 2)) > r Then ctl.Visible = False
Next ctl

أبو يوسف ألف شكر على سرعة ردكم .. بارك الله فيكم

ولكن لو أمكن إرفاق ملف .. مشكور

للرفع

أخى الكريم

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

Abo_Yossof كتب:

أخى الكريم

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

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

لكن على مايبدو أن فى شئ خاطى معى أرجو تعديله

Test00.rar

أخى الكريم

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

لان الكود وظيفته هى اخفاء مربعات النص الزائدة عن عدد سجلات الجدول

المثال تم التعديل عليه

افتح التقرير و لا حظه ثم أغلقه

اضف سجل فى الجدول ثم اغلقه

افتح التقرير مرة ثانية

Test00.rar

أخى أبو يوسف

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

وهو أن بيانات الجدول لا توجد بالتقرير

فهل من كود لتساوى بيانات الجدول ببيانات التقرير أى بيان X 1= Text01 و X2 = Text02 و ...إلخ

فى حين عند حذف صف من الجدول لا يؤثر على فتح التقرير كما أوضحت عزيزى سابقاً

أرجو أن ينال هذا الموضوع اهتمامكم

نعم أخى

استبدل الكود الموجود بالتقرير بهذا الكود

Private Sub Report_Open(Cancel As Integer)
Dim r As Integer, fldno As Integer, fldname As String
Dim ctl As Control
r = DCount("Text01" = "QCross.nam", "1")

For Each ctl In Me.Controls
 fldno = Val(Right(ctl.Name, 2))
 If fldno > r Then
   ctl.Visible = False
 Else
   If ctl.ControlType = acTextBox And ctl.ControlName Like "Text" & "*" Then
     fldname = CurrentDb.QueryDefs(Me.RecordSource).Fields(fldno).Name
     ctl.ControlSource = fldname
   End If
 End If
Next ctl

End Sub

Abo_Yossof كتب:

نعم أخى

استبدل الكود الموجود بالتقرير بهذا الكود

Private Sub Report_Open(Cancel As Integer)
Dim r As Integer, fldno As Integer, fldname As String
Dim ctl As Control
r = DCount("Text01" = "QCross.nam", "1")

For Each ctl In Me.Controls
 fldno = Val(Right(ctl.Name, 2))
 If fldno > r Then
   ctl.Visible = False
 Else
   If ctl.ControlType = acTextBox And ctl.ControlName Like "Text" & "*" Then
     fldname = CurrentDb.QueryDefs(Me.RecordSource).Fields(fldno).Name
     ctl.ControlSource = fldname
   End If
 End If
Next ctl

End Sub

ألف ألف شكر أستاذنا الكبير أبو يوسف فعلاً هو ده المطلوب