تعديل كود ارتفاع مربع النص في منطقة التفصيل

[abdul_algalal]

السلام عليكم ورحمة الله اخواني ارجو المساعدة في هذا الكود التالي

الذي ينفذه زر command0 من النموذج form1 واسم التقرير من combobox لفتح التقرير في وضع التصميم

لدي مايقارب 50 تقرير المشكله في تغيير ارتفاع مربع النص وتباعد مربع النص انو اكتب كل اسم التقارير كما في الكود ادناه

والمطلوب اريد ان يأخذ اسم التقرير من ال combobox كما يأخذه لعرض التصميم

بدلاّ من هذا التالي

Report_Report1.Name.Height = Text2
Report_Report1.Detailing.Height = 0

Report_Report2.Name.Height = Text2
Report_Report2.Detailing.Height = 0

الى اخره

الكود لدي

Private Sub Command0_Click()

 Dim stDocName As String

    stDocName = Me!ComboBox
   DoCmd.OpenReport stDocName, acViewDesign

Report_Report1.Name.Height = Text2
Report_Report1.Detailing.Height = 0

ولكم جزيل الشكر