http://snippets.dzone.com/posts Fri, 29 Aug 2008 12:55:58 GMT DZone Snippets: close code http://snippets.dzone.com/posts/show/3911 Sometimes, it's necessary to close all forms in a single procedure: <br /> <br /><code> <br />Function CloseAllForms() <br /> <br />'It will close all forms before opening the new form (if required) <br /> <br />Dim obj As Object <br />Dim strName As String <br /> <br />For Each obj In Application.CurrentProject.AllForms <br />DoCmd.Close acForm, obj.name, acSaveYes <br />Next obj <br /> <br />End Function <br /></code> <br /> <br />Close all forms - except one particular screen: <br /> <br /> <br /><code> <br />Function CloseAllForms() <br /> <br /> <br />Dim obj As Object <br />Dim strName As String <br /> <br />For Each obj In Application.CurrentProject.AllForms <br /> <br />If obj.Name <> "Your Form" Then <br /> <br />DoCmd.Close acForm, obj.name, acSaveYes <br /> <br />End if <br />Next obj <br /> <br />End Function <br /> <br /></code> Thu, 26 Apr 2007 17:56:19 GMT http://snippets.dzone.com/posts/show/3911 melissa68 (Melissa )