نعم يمكن
اضف هذا السطر
DoCmd.Save acForm, "frm1"
لتصبح الجملة كاملة :
On Error Resume Next
DoCmd.OpenForm "frm1", acDesign, , , acFormPropertySettings, acHidden
Forms!frm1.PopUp = True
Forms!frm1.Modal = True
DoCmd.Save acForm, "frm1"
DoCmd.OpenForm "frm1", acNormal