How to close all open forms

[mitchem1]

I have a button called Smart Search that is available on almost all forms in my db. Is there a way that when the button is clicked, it will not only open the Smart Search form, but will close all other forms currently open. Thank you.

 

[pono1]

M,

Something like this should get you close...

Docmd.openform "FrmSmartSearch"

Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentProject

    For Each obj In dbs.AllForms
        If obj.IsLoaded = True Then
            If obj.Name <> "FrmSmartSearch" Then
                DoCmd.Close acForm, obj.Name
            End If
        End If
    Next obj

Regards,
Tim

 

[mitchem1]

Thanks, I'll give it a shot.