اخفاء شاشة الاكسس

اخي محمد التقارير لا تضهر الا اذا كانت ملىء الشاشة لذا لابد من وضع كود ( docmd.Maximize ) عند الفتح او عند التحميل

وكذلك لابد ان يكون التقرير منبثق

اتمنى ان اكون وفقت في حل لمشكلتك وتقبل تحياتي

الطريقة تعتمد :

نفتح التقرير في وضع التصميم ونذهب لخصائص التقرير ونجعل

1 - منبثق= نعم

2- شكلي أو مشروط = نعم

ننشئ حدث عند الفتح:

DoCmd.Maximize

نحفظ ثم نغلق التقرير

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

On Error GoTo Err_Command3_Click

Dim stDocName As String

stDocName = "التقرير"
DoCmd.OpenReport stDocName, acPreview, , , acDialog

Exit_Command3_Click:
Exit Sub

Err_Command3_Click:
MsgBox Err.Description
Resume Exit_Command3_Click

وبعد ذلك نحفظ

و نجرب