مداخلة بسيطة مع الأستاذ موسى ..
بما انك أخي أحمد متمسك بهذا الطريق ، فلم لا تمرر اسم الصف من خلال الوسيط OpenArgs عند فتح التقرير في الزر btnViewer !!
انشئ ليبل وسمه Lbl_Class في التقرير ، واضبط تنسيقه وموضعه كما تريد .
وفي حدث عند الفتح في التقرير يصبح :-
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
If Not IsNull(Me.OpenArgs) Then
Me.Lbl_Class.Caption = Me.OpenArgs
End If
End Sub
وفي حدث النقر في الزر btnViewer سنعدل إجراء بسيط على جملة فتح التقرير لتصبح مثلاً للصف الأول في النموذج frm_OnlyYou1 :-
DoCmd.OpenReport myrep, acPreview, , "onlyyou=true", , "الأول"
وهكذا لباقي نماذجك المنفصلة لكل صف .. وهذا ملفك بعد التطبيق
أما بخصوص استخدام تقرير واحد ، فالأمر بسيط .. حيث يمكن تمرير اسم الجدول كمتغير داخل استعلام ثابت لجميع الجداول ( على اعتبار ان الحقول لها أسماء ثابتة داخل الجداول كافة )
db.mdb