اذهب الي المحتوي
أوفيسنا

مشكلة الفراغات في النموذج


Radwan0

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

السلام عليكم اخواني

 

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

هل بالامكان اخفاء هذا الفراغ وجعل الرقم 4 ملاصق للجدول

11.png

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

  • 3 weeks later...
4 ساعات مضت, RaDwAn00 said:

ما عندي القدرة اخي الكريم .. حجم البيانات كبير جدا .. لذلك قمت بارفاق صورة لمشكلتي

الصورة لا تكفي

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

انت تعتبر الامر مشكله لذا

الحل الاول اجعل هذا النموذج المستمر نموذج فرعي وحدد عدد السجلات التي تظهر عن طريق تحديد حجم الفورم الفرعي

مثلا عدد السجلات التي تظهر 5 او 6 سجلات و الحقل الظاهر اسفل النموذج ضعه في النموذج الرئيسي مباشرة اسفل النموذج الفرعي وهو الحل الاكثر عمليه في حالتك

 

 

فرعي.gif

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

الحقيقة اني نسيت الموضوع وصاحب المشاركة لم يضع رد لرفع الموضوع

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

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

 

Animation5.gif

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

منذ ساعه, kha9009lid said:

الحقيقة اني نسيت الموضوع وصاحب المشاركة لم يضع رد لرفع الموضوع

ويبدو أن صاحب الموضوع نسيه أيضا،  جزاكم الله خيرا وجعله الله بموازين حسناتكم لو تكرمتم بمرفق لتعم الفائدة أو نشر الأكود المستخدمة.

ليزود من مر من هنا من نهر علمكم. 

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

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

40 دقائق مضت, أبو عبدالله الحلوانى said:

لو تكرمتم بمرفق لتعم الفائدة أو نشر الأكود المستخدمة

احسن الله اليكم يا ابا عبد الله وجزاك الله خيرا على الدعاء الطيب وفي ليلة مباركة

النموذج من نوع مستمر مبني على استعلام يحتوى على معيار تصفية

وحقل معيار التصفية متغير بناء على الحقل الذي نود التصفية من خلاله لذا عملنا قائمة باسماء الحقول وقائمة اخرى نحددة مصدرها بناء على مايتم اختياره من القائمة الاولى

وفي حدث بعد التحديث وضعنا متغير يعد السجلات بعد الفلترة ثم استخدمنا Select Case لتحديد طول تذييل النموذج بناء على العدد

Me.Requery
Dim x As Integer
x = DCount("*", "q_1")
Select Case x
Case Is = 1
Me.FormFooter.Height = 5000
Case Is = 2
Me.FormFooter.Height = 4500
Case Is = 3
Me.FormFooter.Height = 4300
Case Is = 4
Me.FormFooter.Height = 4100
Case Is = 5
Me.FormFooter.Height = 3400
Case Is = 6
Me.FormFooter.Height = 3000
Case Is = 7
Me.FormFooter.Height = 2900
Case Is = 8
Me.FormFooter.Height = 2500
Case Is = 9
Me.FormFooter.Height = 2300
case else
Me.FormFooter.Height = 600
End Select

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

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

Me.FormFooter.Height = 5000

هكذا

Me.تذييل_النموذج.Height = 5000

للاسف اني حذفت المثال بعد تصويره لذا اعتذر عن ارفاق المثال 😤

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information