اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ماجدجلال

الردود الموصى بها

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

وبالتوفيق

تم تعديل بواسطه التقني
رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

Set RstClone = Me.RecordsetClone

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

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

_____________.zip

رابط هذا التعليق
شارك

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

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

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

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

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

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

وبالتوفيق

FormRecHigh.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

145.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information