محمد احمد لطفى

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

أستاذى @ابو عارف فى هذا التقرير تم حساب عدد السجلات من خلال التقرير نفسه ( ابتعدنا عن الاستعلام وعن النموذج ) هل يمكن الان تنفيذ ملئ الصفحة الان بطريقة الية و أسف على الازعاج test.mdb

تفضل كما طلبت Between Date() And Date()-40 Between Date() And Date()-50

أستاذى العزيز @ابو عارف الفكرة فكرتك وجزاك الله خيراً و لكن هل يمكن الابتعاد عن النموذج بمعنى ان يعمل الكود بين التقرير و الاستعلام مثل هذا المثال المرفق بحيث يعمل الكود فى كلا الاستعلامين بعيدا عن النموذج و اذا لم يكن هناك استطاعه فجزاك الله كل خير test120 (4).mdb

أستاذى @ابو عارف هل هناك جديد بالنسبة للموضوع

جزاك الله خيراً أستاذى

شكراً يأستاذى @ابو عارف

جزاك الله خيرا أستاذى @ابو ياسين المشولي

أستاذ @ابو عارف أقصد أن لا يقتصر الامر على النموذج يكون من خلال الاستعلام فهناك تقرير يعتمد على استعلام تاريخ و هناك تقرير يعتمد على استعلام id وهناك تقرير يعتمد على هذا النموذج مربوط id بالنموذج مع id الاستعلام نحتاج الى كود مرن يعمل على كافة التقاير وجزاك الله خير If Rcount > 37 And Rcount < 100 Then هذا الكود سوف اعمل به مؤقتا وهو يدوى يعنى كل مجموعة ارقام يتم اختيار ارتفاع معين وجزاك الله خيرا على سعة صدرك

شكراً أستاذ @ابو عارف If Rcount > 37 And Rcount < 100 Then

السلام عليكم ورحمة الله وبركاته فى هذا التقربر يحدد اذا كان الرقم الرقم اكبر من 37 بهذا الكود Dim Rcount As Integer Rcount = DCount("*", "Q1") If Rcount > 37 Then تفصيل.Height = تفصيل.Height * 1.8 كف اجعل هذا التحديد بين رقمين مثلا من 37 الى 45 test1201.mdb

بارك الله فيك أستاذى @ابو عارف لى استفسار صغير عندما نفذت على الملف المرفق الاصلى لم تظهر الخطوط كما فى فى الصورة و ملف واريد أن أعرف كيف اجعل هذا الكود بين رقمين للمعرفة If Rcount > 37 Then و أستأذن حضرتك ألا يمكن التنفيذ بعيدا عن ربطها بالنموذج لأن هناك بعد التقارير انفذها بدون نموذج باستعلام التاريخ أو باستعلام بتحديد Id هل يمكن تنفيذها لتعمل على كل انواع التقارير test120 (3).mdb

+ و تلاحظ عند وضع حدود لمربع أن هناك فراغ بين كل سجل بالبحث فى الانترنت هذا الكود مخصص لارتفاع مربع النص Me.serial.Height = "500" Me.الحالة.Height = "500" Me.no.Height = "500" Me.date1.Height = "500" فى المثال الاول كيف اغير القيمة لتصبح بين رقمين If Rcount > 37 Then

أستاذى @ابو عارف جزاك الله خيراً كنت اريد أن اجربها على تقرير عندى و لكن حدث خطأ بعض ان أضفت معيار للتاريخ فى الاستعلام test120 (1) (4).mdb

الله عليك استاذى @ابو عارف طب لو عاوز اعمل الكود بين رقمين If Rcount > 37 Then تفصيل.Height = تفصيل.Height * 1.8

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

شكراً أستاذى @ابا جودى هناك حل أخر أن اعمل تقرير ارتفع مربع النص كبير و لكن سيؤدى هذا الى كثرة التقارير

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

صحيح و يجب عن طريق كود حيث لا يتوقف الامر عن 37 سجل فقط يعنى اذا كان عدد السجلات 10 وارتفاع مربع النص العادى 0.556سم مثلا و اذا كان عدد السجلات 37 يرتفع مربع النص الى 0.956سم وجزاكم الله خيرا

أستاذى @ابا جودى سوف يتبقى فراغ كذلك فى كل صفحة ما أريده هو اذا كان عدد السجلات 37 يتم زيادة ارتفاع مربع النص بقدر معين حتى يتم ملئ الصفحة الثانية عن طريق الكود

للرفع

للرفع

ما اقصده استاذى @ابو عارف هو اذا كان عدد السجلات 37 يتم زيادة ارتفاع مربع النص بقدر معين حتى يتم ملئ الصفحة الثانية عن طريق الكود

شكراً أستاذى @ابو عارف ولكن ستصبح كذلك الصفحة الثانية فارغة كيف يمكن التحكم فى طول السجل بعدد معين من السجلات يعنى لو عدد السجلات مثلا 37 كيف اتحكم فى طول السجل الواحد بحيث يتم ملىء الصفحتين

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