كيف يمكن تصغير الخط لحقل يزيد حروفة عن 50 في التقرير

[youuuu]

السلام عليكم

ارجو من سيادتكم المساعدة في تقرير حيث احياناً يوجد مخرجات تزيد عن 50 حرف في الحقل ولا يكون مناسب لحجم الحقل في التقرير لذا ارجو انه عندما يكون الحقل بة ازيد من 50 حرف مثلاً يصغر حجم الخط لحجم معين فهل يوجد حل لهذة المشكلة وذلك في التقرير

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

[ابو ياسر]

وعليكم السلام

هذا الكود يفي بالغرض

Private Sub Command1_Click()

If Len(Text1) < 10 Then

Me.Text1.FontSize = 10

End If

If Len(Text1) > 10 Then

Me.Text1.FontSize = 8

End If

If Len(Text1) > 15 Then

Me.Text1.FontSize = 7

End If

End Sub

على ان الخط الافتراضي = 10

عدل في عدد الاحرف حسب حاجتك

[youuuu]

شكرا اخي علي الرد وعلي التفاعل الجميل

ارجو منك فقط ان تبين لي اين اضع الحدث فان لا اريدة ان يكون كزر اساسي لكن اريدة اين يكون في معاينة التقرير والطباعة

والف شكر ك مرة اخري علي الرد

[ابو ياسر]

ضعه في حدث تنسيق التفصيل او في حدث طباعة التفصيل في التقرير