بسم الله الرحمن الرحيم
السلام عليكم
تم وضع التعليمة FontSize من اجل التحكم بدرجة الخط عند حدث فتح النموذج
Private Sub Form_Open(Cancel As Integer)
Me.Customer.FontSize = 14
Me.Dafa.FontSize = 14
Me.Dafa.FontSize = 14
End Sub
ولكن لا جدوى، حيث يبقى حجم الخط كما هو
ارجو تعديل المثال المرفق برمجيا
المثال معمول على اكسس 2007
وشكرا
بالقياس على رد أبو يوسف على سؤالك في موضوع Font Bold فمقاس الخط هنا بنفس النظام ، استبدل هذه الاكواد بالكود التالي:
Me.DatasheetFontHeight = 14
شكرا اخي Superhot3000 على ما تفضلت به، وهذا ما كنت اريده
ولن ننسى ان نشكر الاخ Abo yossof فهو من وضع طريقة كشف الحل لمشاكل مماثلة وانت وجدتها في قياس الخط
شكرا لكما جيمعا
والسلام عليكم