With CurrentProject.AllForms For I = (.Count - 1) To 0 Step -1 DoCmd.DeleteObject acForm, .Items(I).Name Next I End With P.S. От администрации. Мы не несем ответственности по примению данного кода в Ваших проектах.