خير الايمان قام بنشر سبتمبر 30, 2022 مشاركة قام بنشر سبتمبر 30, 2022 اسلتذتي الكرام السلام عليكم ورحمة الله وبركاته برجاء من حضرتكم حل مشكلة حقل التخصص فقط دزن حقول باقي التقرير في التقرير المرسل بكود دون تغير حجم الحقل تقديري Database1601.accdb رابط هذا التعليق شارك More sharing options...
kanory قام بنشر سبتمبر 30, 2022 مشاركة قام بنشر سبتمبر 30, 2022 4 ساعات مضت, خير الايمان said: اسلتذتي الكرام السلام عليكم ورحمة الله وبركاته برجاء من حضرتكم حل مشكلة حقل التخصص فقط دزن حقول باقي التقرير في التقرير المرسل بكود دون تغير حجم الحقل تقديري طيب ادخل على تفصيل النموذج ..... حدث عند الطباعة وادرج الكود التالي .... Dim ctl As Control, strText As Variant, strName As String Me.ScaleMode = 1 For Each ctl In Me.Detail.Controls If ctl.ControlType = acTextBox And ctl.name = "Text4" Then strName = ctl.name If Nz(ctl.Tag, "") = "" Then ctl.Tag = ctl.FontSize End If ctl.FontSize = ctl.Tag Me.FontSize = ctl.FontSize strText = ctl.Value If Len(strText) > 0 Then Do Until TextWidth(strText) < ctl.Width ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26) ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop End If End If Next ctl ثم انظر النتيجة ...................... 3 رابط هذا التعليق شارك More sharing options...
خير الايمان قام بنشر سبتمبر 30, 2022 الكاتب مشاركة قام بنشر سبتمبر 30, 2022 استاذي المحترم كل الشكر والتقدير لمجهود حضرتك لكن عند التنفيذ حدث كما بالصورة واعتقد ان الكود للتفصيل ككل وما اريد الا في التخصص فقط دون باقي الحقول دمت وادامك الله بالخير رابط هذا التعليق شارك More sharing options...
kanory قام بنشر سبتمبر 30, 2022 مشاركة قام بنشر سبتمبر 30, 2022 37 دقائق مضت, خير الايمان said: واعتقد ان الكود للتفصيل ككل وما اريد الا في التخصص فقط دون باقي الحقول الكود يعمل فقط على مربع النص الخاص بالتخصص انظر الصورة في الرد السابق لي ..... عموما تفضل ملفك بعد التعديل عليه ........ Database1601.accdb 4 رابط هذا التعليق شارك More sharing options...
خير الايمان قام بنشر أكتوبر 1, 2022 الكاتب مشاركة قام بنشر أكتوبر 1, 2022 استاتذي المحترم يعجز اللسان ان يوفي من شكر وتقدير على مجهود حضرتك تمام تم المطلوب على الوجه الاكمل اعزك الله وادامك بكل الخير 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر أكتوبر 1, 2022 مشاركة قام بنشر أكتوبر 1, 2022 38 دقائق مضت, خير الايمان said: استاتذي المحترم يعجز اللسان ان يوفي من شكر وتقدير على مجهود حضرتك تمام تم المطلوب على الوجه الاكمل اعزك الله وادامك بكل الخير اخي خير اخترها افضل اجابة حتى نعرف انه تم الاجابة على السؤال ..... 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.