أستاذى @أبو إبراهيم الغامدي
جزاك الله كل خير خيراً
تم التعديل على المرفق وهو يعمل
و لكن عنده نقله الى برنامجى عند الضغط على الزار لا يعمل نهائى
وعند وقفت عمل الأمر التالى
XReport.Auto_Header0.Caption = Me.All1F.Form.RecordSource
يعمل فارغ ويختفى
فهل هناك مقترحات لحضرتك و ما فائدة هذا الكود
6000 (4).rar