تغير ارتفاع النموذج تلقائيا بحسب عدد السجلات

[ماجدجلال]

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

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

فمثلا , اذا كان عدد السجلات ( سجلين ) يصبح قصير , واذا كان عدد السجلات مثلا ( ستة ) يصبح اطول ,,

يعني في كل عملية فتح للنموذج يتغير ارتفاعة بحسب عدد السجلات المعروضة فية ,,,

والف شكرا لكم ,,,

[التقني]

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

استخدم هذا الكود في حدث الحالي للنموذج :

Private Sub Form_Current()
Dim RstClone As Recordset
     Set RstClone = Me.RecordsetClone
    If RstClone.RecordCount >= 5 Then
     DoCmd.MoveSize , , , 3000
    If RstClone.RecordCount >= 10 Then
     DoCmd.MoveSize , , , 6000
    End If
End If
End Sub

علماً بأن الكود أعلاه قابل للتعديل حسب رغبتك وكذلك وضعت افتراضين للسجلات هما 5 و 10 سجلات وضع هذا الكود عند حدث الفتح للنموذج نفسه

Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize , , , 2000
End Sub

وبالتوفيق

تم تعديل أكتوبر 24, 2006 بواسطه التقني

[ماجدجلال]

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

اولا انا اسف في التاخير في الرد بسبب ظروف صحية ,

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

Set RstClone = Me.RecordsetClone

حاولت التعديل ولم استطع لذا ارجو منكم المساعدة وشكرا

الملف المرفق الذي بة الخطاء ,

_____________.zip

[ماجدجلال]

للرفع

[التقني]

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

حياك الله أخي ماجد

ولا بأس طهور إن شاء الله

وآسف على التأخير

بالنسبة لمثالك المرفق فلأسباب أجهلها لم يعمل عندي !

عموماً أرفقت لك مثال من عندي اطلع عليه .

وبالتوفيق

FormRecHigh.rar

[يوسف أحمد]

استاذنا التقني

يعطيك الف عافية على هذا المثال الرائع

بخصوص مثال الاخ ماجد فهو مضغوط ببرنامج Winzip والذي لا يبدو موجود بجهازك

لقد قمت بضغطه ببرنامج Winrar حتى تتمكن من التعامل معه .

اخي ماجد طهور ان شاء الله

تقبلوا اجمل تحية

145.rar

[شاهر]

الاخ الكريم التقني

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

هذا الخلل

مع خالص تحياتي

[ماجدجلال]

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

والله انني لا اعرف كيف اشكركم , ولكن الدعاء افضل علامات الشكر و الامتنان ,,,

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

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

وصدقني لو يسمح لي المنتدي كل يوم اضع لك دعاء و للاستاذ التقني , ولكن الدعاء من القلب بظهر الغيب ,,,

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