Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
MsgBox "Current form is " & frmCurrentForm.Name
يعطى اسم النموذج لا أعرف كيفية ظبط مع كود الاخفاء لعل أحد من أساتذتى يساعدك
Forms!FA1!m.Visible = False
مرحبا أستاذ @ابا جودى
أستاذى @Khalf
مازال حتى الان يضيف الاسم التى بها ابسرف
مع ان العادى مثلا عند اضافة خالد و هو متكرر يفتح النموذج الذى يفيد التكرار