تصغير أو تكبير إطار قاعدة البيانات عند فتح نموذج أو تقرير

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

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

DoCmd.SelectObject acForm , "اسم النموذج الحالي" , True
DoCmd.Minimize

لتكبير إطار قاعدة البيانات عند إغلاق نموذج :

ضع الكود التالي في حدث عند الإغلاق للنموذج :

DoCmd.SelectObject acForm , "اسم النموذج الحالي" , True
DoCmd.Maximize

لتصغير نموذج وإطار قاعدة البيانات ضع في قبل إجراء فتح التقرير التالي :

DoCmd.SelectObject acForm , "اسم النموذج الحالي" , True
DoCmd.Minimize 
DoCmd.OpenReport "اسم التقرير", acViewPreview

لتكبير النموذج بعد غلق التقرير

ضع في حدث عند الإغلاق للتقرير التالي :

DoCmd.SelectObject acForm , "اسم النموذج الحالي" , False
DoCmd.Maximize

لتكبير إطار قاعدة البيانات بعد غلق التقرير

ضع في حدث عند الإغلاق للتقرير التالي :

DoCmd.SelectObject acForm , "اسم النموذج الحالي" , True
DoCmd.Maximize

وللجميع التحية