جزاك الله خير اخي العزيز محمد على دعواتك ... و لك بمثل ما دعوت به و زيادة
لعمل ذلك قم بوضع الكود التالي بحدث عند التنسيق لمنطقة تفصيل التقرير
Select Case Forms!frm1.Form!Cmd.Tag
Case 0
Me.aa = DLookup("aa", "tbl1", "id= " & Me.ID)
Me.aaa = DLookup("aaa", "tbl1", "id= " & Me.ID)
Case 1
Me.aa = DLookup("bb", "tbl1", "id= " & Me.ID)
Me.aaa = DLookup("bbb", "tbl1", "id= " & Me.ID)
Case 2
Me.aa = DLookup("cc", "tbl1", "id= " & Me.ID)
Me.aaa = DLookup("ccc", "tbl1", "id= " & Me.ID)
End Select
مع ضرورة حذف مصدر البيانات لمربعات النص على التقرير ( aa و aaa ) لأنه يتم التحكم بمحتواهما بالكود اعلاه
ثم تضع سطر الكود التالي لفتح التقرير بحدث عند النقر لزر الامر
DoCmd.OpenReport "Rpt1a", acViewPreview
تفضل ملفك بعد التعديل
بالتوفيق
Tapages2.rar