ابو رسول

اقوم الان بالتجربة وسأخبرك بالنتائج بإذن الله

جزاك الله خيرا

متابع بعد الثناء والشكر الجزيل

في ٨‏/٧‏/٢٠٢١ at 11:06, jjafferr said:

الحمدلله 🙂

 

طريقة التخطيط والتنفيذ :

1. اجعل الحقل/مربع النص كاملا للرقم ، واحذف الهوامش الاضافية لجميع الحقول:

.

2. كان واضح ان المطلوب هو ان عرض مربع النص يجب ان يتماشى مع عدد الارقام فيه ، وعرض الارقام بالنسبة للارقام الانجليزية ثابت لجميع الارقام ،

وبعد تحليل النتيجة في الصورة ، كعدد ارقام ، وعرض مربع النص :  ، اتضح ان كل حرف محتاج الى 145.5 تويب Twip (وحدة قياس الاكسس) ، وبتقنين الرقم وبعد عدة تجارب توصلت الى الرقم 140 ، لذلك ، اذا استعملت خط Font آخر ، او الخط بحجم اكبر/اصغر ، فيجب عليك تغيير هذه القيمة ، بالتجارب 😁

اذن ، عرض كل حقل يحتاج الى معرفة عدد الارقام ف الحقل ضرب 140 ،

للحصول على هذا الرقم لكل حقل (هذه معادلتك) ، جعلنا القيمة في المتغير fld_value

عليه يصبح عرض كل مربع (وعلشان نعرف عدد الارقام في الحقل ، نستخدم الدالة Len ، ويجب تحويل الرقم الى نص CStr ، للحول على النتيجة الصحيحة للدالة) :

.

وفي آخر سطر من المعادلات اعلاه ، جمعنا محموع عرض هذه المربعات في المتغير width_Added ،

.

3. العرض المتوفر هو width_Avail : عرض التقرير - هامش اليمين لبكرة الطابعة  - هامش اليسار لبكرة الطابعة :

.

4. اذن في عملنا اعلاه ، عرض جميع مربعات النص يكون صحيح ، ويحتوي على الرقم كاملا فيه ، بالعرض (الضيق) الذي يناسب الرقم ،

ولكنه لا علاقة له بالعرض الحقيقي الموجود في التقرير ، لذا ، سنلاحظ انه ترك مسافة فارغة زائدة عن حاجة المربعات ،

5. هنا قمت انت بحساب عدد الحقول التي سيتم عرضها في التقرير ، الحقول التي مجموعها اكبر من صفر ، وفي المتغير fICnt :

.

6. المعادلة التالية تقوم باخذ عرض التقرير ، ناقصا مجموع عرص المربعات ، فيعطينا المسافة الفارغة الزائدة عن حاجة المربعات :

فنقوم بتوزيعها بالتساوي بعدد الحقول ، فيصبح نصيب كل مربع :

.

7. اذن عرض المربع النهائي سيصبح:

عرض المربع الحقيقي (رقم#2 اعلاه) + القيمة المضافة / الاضافية (رقم #6 اعلاه)  :

.

.

 

جعفر

شكراااا جزيلااا على هذا المجهود اسأل الله ان يجعله في ميزان حسناتك ويجعلك تنعم بالصحة والعافية 

اقدر لك ذلك 

وطمعا بكرمك لدي طلب اخر

وهو اني عملت تقرير سنوي للبيانات وظهرت لدي مشكلة في التقرير السنوي وهي بسبب ادراج بيانات عدة اشهر لنفس المحطة تكررت بياناتها وظهر اسم المحطة في التقرير يتكرر حسب عدد الاشهر

مااطلبه منك ايها الكريم هو ان تجعل جمع البيانات في هذا التقرير حسب السنة فقط على اساس جمع كل بيانات الاشهر لتلك المحطة سنويا دون تكرارها

وهذا مرفق للتوضيح اكثر

وطلب اخر ان امكن وهو هل استطيع طباعة التقرير على ورقتين A3  بالتساوي لكل ورقة اقصد كل ورقة تحتوي على نصف عدد الحقول الظاهرة عند الطباعة لكي تتسع الحقول ونستطيع كبر حجم الخط اكثر؟

واسال الله لك التوفيق والنجاح

وهذا مرفق يوضح التقرير السنوي

1396.مطابقة موجودات2.rar

احسنتم وجعل الله هذا المجهود في ميزان حسناتكم

7 ساعات مضت, jjafferr said:

جرب الآن 🙂

1396.مطابقة موجودات 264.26 kB · 1 download

من القلب دعوة صادقة

اسأل الله بأحب الخلق اليه محمد واله ومن والاه يكتب لك التوفيق والنجاح والعمر المديد والصحة والعافية لك ولجميع من تود 

احسنت اجابة موفقه 100% بارك الله فيك

17 ساعات مضت, jjafferr said:

' حساب عرض كل حقل
'For i = 1 To 74
'Me("fld" & i & "").Width = Me.Name1.Left / flCnt
'Me("LBL" & i & "").Width = Me.Name1.Left / flCnt
'Me("s" & i & "").Width = Me.Name1.Left / flCnt
'Next i

السلام عليكم استاذ جعفر 

حساب عرض الحقول كان مبنيا على هذا الجزء من الكود حيث يتم توزيع الحقول على عرض الصفحة حتى وان كان التقرير يحتوي على اربع او خمس حقول او اكثر 

عندما الغيت هذا الجزء اختلف التقرير فاذا تلاحظ عندما نجعل بعض القيم صفرا في عدد من الحقول فان التقرير يظهر فراغا كلما نقصت الحقول واعتقد السبب هو الغاء هذا الجزء من الكود حيث name1 i هو حقل موجود في جزء التفصيل ومكانه قرب حقل اسم المنفذ 

ارجو الاطلاع وعلاج ذلك ....مع فاق الاحترام والتقدير

شكراااا جزيلا استاذ jjafferr نسأل الله لك التوفيق هذا ماكنا نبحث عنه احسنتم يا استاذ 

شكرااا جزيلا استاذ جعفر على مرورك الكريم

الحقيقة ان تقريري يحتوي على اكثر من 70 حقل استطعت من خلال مساعدة الاساتذه احتواءها في صفحة واحدة 

وذلك بعد اخفاء الحقول التي لاتحتوي على قيمة واظهار توزيع الحقول التي تحتوي على قيمة اكبر من صفر بالتتالي 

كل مااريده هو اتساع الحقل الذي يحتوي على عدد اكثر من ستة ارقام لتكون الارقام مقرؤءه بحجم خط واضح وكبير اي لا اريد تصغير الخط انما اريد توسيع الحقل بحيث يبقى بالحجم

الذي نقرره 

اما الحقول التي تحتوي على عدد اقل من ستة ارقام نريدها تتقلص لكي تفسح المجال للحقول التي فيها ارقام كبيره

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

54 دقائق مضت, د.كاف يار said:

تستطيع التحكم بحجم العنصر برمجيا بكل سهولة من خلال الكود التالي

Me.TextBox1.Move(Left,Top,Widh,Height)

 

اقترح عليك ان يتم تضمينها بشرط

If Len([TextBox1]) >10 then 
	Me.TextBox1.Move "", "" , 10 * 200 ,""
End if

مع ملاحظة أن سوف تتعامل مع العمود و ليس السطر

شكراا جزيلا دكتور على الاجابة ولكن هل اضع هذا الكود في تنسيق كل عمود ام اين اضعه مع العلم اني لدي 74 حقل

اتمنى تطبيقه من حضرتك على المرفق 

مطابقة موجودات.rar

هذا لايفي بالغرض لان التقرير مبني على كود يخفي الحقول التي لاتحتوي على قيم وكذلك الحقول ابعادها مفروضه من قبل الكود لذلك انا احتاج الى حل برمجي

شكراااا على العموم

السلام عليكم في هذا المرفق قاعدة بيانات مصغره

ماا طلبه هو جعل حقول التقرير تحتوي عدد الارقام التي في داخل كل حقل بحيث يتمدد الحقل في حال وجود ارقام كبيره ويتقلص في حال تكون الارقام قليلة 

مع فائق الاحترام

مطابقة موجودات.rar

السلام عليكم ورحمة الله

بارك الله فيكم  هل من جواب؟ 

السلام عليكم 

عذرا للمداخلة

هل يمكن تراصف الحقول الظاهرة بعد اخفاء الحقول الفارغة او التي قيمتها صفر ليتسنى لي طباعة التقرير بصفحة واحدة ؟ علما ان حقول التقرير افقية وكثيرة جدا . 

مع فائق الاحترام

اليكم المرفق

حقول فارغة.rar

اللهم بحق هذا شهرك المبارك  احفظ خبيرنا ومحاسبنا القدير جمال والاخت الخبيره ام عبد الله على هذه الاجوبه الشافيه

ياريت شرح المعادلة حتى استطيع تطبيقها على ملفاتي واذا كانت لدي اكثر من اثنين كيف اعمل ( اي لدي ملفات على عدد الاشهر )للتوضيح لدي ملف باسم مايس واخر حزيران واخر تموز واريد جمع  كما في مثالك بارك الله فيكي

شكرا لكي خبيرتنا العزيزة وشكرا للخبير الاستاذ جمال وشكرا لكل عنصر بهذا المنتدى الجميل اللهم ربي يحفضك

ياريت الرد اللهم ربي يحفظك

شكرا جعلها الله في ميزان حسناتك .. طمعا بكرمك اسأل مرة اخرى كيف جمع e11 مع e11 من ملفات اكسل لاتنتمي لبعظها اي كل ملف مستقل باوراقه عن الاخر

شكررررررررررررررررررررراااااااااااااااااااجزيلا ولكن هل اذا كانت ورقة العمل مسماة اسما عربيا فهل تعمل هذه الداله وشكرا مره اخرى

السلام عليكم كيف استطيع جمع حقل e11 من ورقة عمل 1 مع حقل e11 من ورقة عمل  2

هذا سؤالي ومنكم الجواب

عجزت في كل المنتديات للبحث عن هذا البرنامج ولم اجد سوى الاخت زهرة وللاسف لم يعمل معي اي برنامج مرفق للاخت