Close All Open Forms & Open SwitchBoard From

[aamer]

I am using the following module is there a simple way that I dont have to mention each and every form to close the open forms and open SWITCHBOARD






Option Compare Database


'------------------------------------------------------------
' Close_All
'
'------------------------------------------------------------
Function Close_All()
On Error GoTo Close_All_Err


DoCmd.OpenForm "SWITCHBOARD", acNormal, "", "", acAdd, acNormal
DoCmd.Close acForm, "AcTitleFrm"
DoCmd.Close acForm, "PurchaseFRM"
DoCmd.Close acForm, "SalesFRM"
DoCmd.Close acForm, "Form For Purchase Dept Reports"
DoCmd.Close acForm, "Company Accounts"
DoCmd.Close acForm, "Challan"
DoCmd.Close acForm, "Invoice"
DoCmd.Close acForm, "Payments"
DoCmd.Close acForm, "Items Form"
DoCmd.Close acForm, "Stock Report Sales & Purchase"
DoCmd.Close acForm, "FORMS SWITCH"
DoCmd.Close acForm, "switch reprts"




Close_All_Exit:
Exit Function


Close_All_Err:
MsgBox Error$
Resume Close_All_Exit


End Function

[Welshgasman]

Google tells me there is. Close all forms, THEN open the required form last.
https://www.google.com/search?q=clos...hrome&ie=UTF-8

[aamer]

I used the following function, it works I added

DoCmd.OpenForm "SWITCHBOARD", acNormal, "", "", acAdd, acNormal

to the code, please tell me if its done correctly.




Function CloseFrms(Optional strExcept As String)

Dim I As Integer
With Application.Forms
For I = .Count - 1 To 0 Step -1
With .Item(I)
If .Name <> strExcept Then
DoCmd.Close acForm, .Name
End If
End With
Next I
End With
DoCmd.OpenForm "SWITCHBOARD", acNormal, "", "", acAdd, acNormal
End Function

[davegri]

DoCmd.OpenForm "SWITCHBOARD", acNormal, "", "", acAdd, acNormal

Keep it simple. Below is probably sufficient.

DoCmd.OpenForm "SWITCHBOARD"

[aamer]

I used the following function, it works I added

DoCmd.OpenForm "SWITCHBOARD", acNormal, "", "", acAdd, acNormal

to the code, please tell me if its done correctly.




Function CloseFrms(Optional strExcept As String)

Dim I As Integer
With Application.Forms
For I = .Count - 1 To 0 Step -1
With .Item(I)
If .Name <> strExcept Then
DoCmd.Close acForm, .Name
End If
End With
Next I
End With
DoCmd.OpenForm "SWITCHBOARD", acNormal, "", "", acAdd, acNormal
End Function

You Mean Like This



Function CloseFrms(Optional strExcept As String)

Dim I As Integer
With Application.Forms
For I = .Count - 1 To 0 Step -1
With .Item(I)
If .Name <> strExcept Then
DoCmd.Close acForm, .Name
End If
End With
Next I
End With
DoCmd.OpenForm "SWITCHBOARD"

End Function

[davegri]

Function CloseFrms(Optional strExcept As String)

Dim I As Integer
With Application.Forms
For I = .Count - 1 To 0 Step -1
With .Item(I)
If .Name <> strExcept Then
DoCmd.Close acForm, .Name
End If
End With
Next I
End With
DoCmd.OpenForm "SWITCHBOARD"

End Function

Well, yes. Have you tried it?

[Micron]

This can be simpler (i.e. don't have to worry about index)

Function CloseAllForms()
Dim obj As AccessObject

For Each obj In CurrentProject.AllForms
   If obj.IsLoaded Then DoCmd.Close acForm, obj.Name
Next
DoCmd.OpenForm "FormNameHere"

End Function

[aamer]

thank you worked like a charm