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

[حمدى الظابط]

السلام عليكم

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

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

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

[عمر ضاحى]

نصيحه 

دائما ارفق ملف علشان نقدر نشوف السبب معك

[حمدى الظابط]

7 ساعات مضت, عمر ضاحى said:

نصيحه 

دائما ارفق ملف علشان نقدر نشوف السبب معك

 

رسائل.rar

[عمر ضاحى]

جرب كده

رسائل2.rar

[حمدى الظابط]

3 ساعات مضت, عمر ضاحى said:

جرب كده

رسائل2.rar 48.71 kB · 5 downloads

النموذج يعمل بكفاءة 100%

ولكن عند نحريك المسطرة السفلية يرجع كما كان

تم تعديل ديسمبر 6, 2022 بواسطه حمدى الظابط

[عمر ضاحى]

اين المسطره السفليه ؟

ممكن صوره 

[حمدى الظابط]

25 دقائق مضت, عمر ضاحى said:

اين المسطره السفليه ؟

ممكن صوره 

حرك حضرتك عمود المسطرة السفلى الى الاعلى بمقدار 1 سم ستجد النموذج يتقلص كما كان ولم يظهر فى النموذج غير سجل واحد فقط

[عمر ضاحى]

44 دقائق مضت, حمدى الظابط said:

حرك حضرتك عمود المسطرة السفلى الى الاعلى بمقدار 1 سم ستجد النموذج يتقلص كما كان ولم يظهر فى النموذج غير سجل واحد فقط

اين المسطره فى الصوره ؟

هل يظهر لك شئ لا يظهر عندي ؟

 

[حمدى الظابط]

58 دقائق مضت, عمر ضاحى said:

اين المسطره فى الصوره ؟

هل يظهر لك شئ لا يظهر عندي ؟

 

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

[متقاعد]

1 ساعه مضت, حمدى الظابط said:

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

جرب في حدث عند فتح النموذج ضع الامر التالي

Me.Form.InsideHeight = 6000

تقدر تغيير الرقم الي الطول الذي يناسبك

[حمدى الظابط]

2 ساعات مضت, مبرمج متقاعد said:

جرب في حدث عند فتح النموذج ضع الامر التالي

Me.Form.InsideHeight = 6000

تقدر تغيير الرقم الي الطول الذي يناسبك

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

Private Sub Form_Open(Cancel As Integer)
 On Error Resume Next
DoCmd.Requery
Me.txtMsg = Me.Message_text

End Sub

ازاى ادمج كود حضرتك مع هذا الكود

[متقاعد]

6 دقائق مضت, حمدى الظابط said:

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

ماله اي ضرر ممكن تحطه بعد السطر الاول اي بعد

⬇️

  On Error Resume Next

واذا ما ترغب في حدث عند الفتح ممكن تحطه في حدث عند التحميل

 

[حمدى الظابط]

30 دقائق مضت, مبرمج متقاعد said:

ماله اي ضرر ممكن تحطه بعد السطر الاول اي بعد

⬇️

  On Error Resume Next

واذا ما ترغب في حدث عند الفتح ممكن تحطه في حدث عند التحميل

 

تحياتى وتقديرى وتم الحل +1

تم تعديل ديسمبر 6, 2022 بواسطه حمدى الظابط