DoCmd.OpenForm "frm_msgboxBitteWarten", acNormal, "", "", acReadOnly, acNormal DoCmd.RepaintObject acForm, "frm_msgboxBitteWarten" 'Hier kommt die Aktion DoCmd.Close acForm, "frm_msgboxBitteWarten"