خير الايمان قام بنشر سبتمبر 30, 2022 قام بنشر سبتمبر 30, 2022 اسلتذتي الكرام السلام عليكم ورحمة الله وبركاته برجاء من حضرتكم حل مشكلة حقل التخصص فقط دزن حقول باقي التقرير في التقرير المرسل بكود دون تغير حجم الحقل تقديري Database1601.accdbFetching info...
kanory قام بنشر سبتمبر 30, 2022 قام بنشر سبتمبر 30, 2022 في 30/9/2022 at 13:44, خير الايمان said: اسلتذتي الكرام السلام عليكم ورحمة الله وبركاته برجاء من حضرتكم حل مشكلة حقل التخصص فقط دزن حقول باقي التقرير في التقرير المرسل بكود دون تغير حجم الحقل تقديري Expand طيب ادخل على تفصيل النموذج ..... حدث عند الطباعة وادرج الكود التالي .... 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
خير الايمان قام بنشر سبتمبر 30, 2022 الكاتب قام بنشر سبتمبر 30, 2022 استاذي المحترم كل الشكر والتقدير لمجهود حضرتك لكن عند التنفيذ حدث كما بالصورة واعتقد ان الكود للتفصيل ككل وما اريد الا في التخصص فقط دون باقي الحقول دمت وادامك الله بالخير
kanory قام بنشر سبتمبر 30, 2022 قام بنشر سبتمبر 30, 2022 في 30/9/2022 at 19:20, خير الايمان said: واعتقد ان الكود للتفصيل ككل وما اريد الا في التخصص فقط دون باقي الحقول Expand الكود يعمل فقط على مربع النص الخاص بالتخصص انظر الصورة في الرد السابق لي ..... عموما تفضل ملفك بعد التعديل عليه ........ Database1601.accdbFetching info... 4
خير الايمان قام بنشر أكتوبر 1, 2022 الكاتب قام بنشر أكتوبر 1, 2022 استاتذي المحترم يعجز اللسان ان يوفي من شكر وتقدير على مجهود حضرتك تمام تم المطلوب على الوجه الاكمل اعزك الله وادامك بكل الخير 1
Barna قام بنشر أكتوبر 1, 2022 قام بنشر أكتوبر 1, 2022 في 1/10/2022 at 19:26, خير الايمان said: استاتذي المحترم يعجز اللسان ان يوفي من شكر وتقدير على مجهود حضرتك تمام تم المطلوب على الوجه الاكمل اعزك الله وادامك بكل الخير Expand اخي خير اخترها افضل اجابة حتى نعرف انه تم الاجابة على السؤال ..... 1 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.