Tip: Leave Me Open

You often want to give your users the ability to close all of the open forms in an application. Here’s a version of the code that closes all of the forms—except the form that routine is called from:

Function CloseAllButMeForms(frm As Form) As Boolean

On Error Goto AtEnd 
Dim i As Integer 

For i = Forms.Count - 1 To 0 Step -1     

  If frm.Name <> Forms(i).Name Then         
    DoCmd.Close acForm, Forms(i).Name     
  End If 

Next i


  CloseAllButMeForms = (Forms.Count <= 1) 

End Function



This entry was posted in Forms. Bookmark the permalink.

Leave a Reply

Your email address will not be published. Required fields are marked *


This site uses Akismet to reduce spam. Learn how your comment data is processed.