اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

ارجو من سيادتكم المساعدة في تقرير حيث احياناً يوجد مخرجات تزيد عن 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

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

  • Like 1
قام بنشر

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information