[Resolvido]Fechar Formulários menos Um

Minha necessidade é fechar todos os formulários abertos, menos um, o Menu

Tenho tentado adaptar o código do JPaulo, mas não consegui:

Public Sub FechaTodosOsFormularios()
'By JPaulo ® Maximo Access
On Error Resume Next
Do While Forms.Count
DoCmd.Close acForm, Forms(0).Name
Loop
End Sub

Acho que pode facilitar para um loop, todos os formulários começam com as letras "fr", menos o Menu.

Se algum membro deste fórum puder me ajudar, ficarei muito agradecido.

Abraços

Já tentou fazer assim:

Do While Forms.Count <> "NomeFormMenu"

Não testei.

Uma saída tambem seria:

Public Sub FechaTodosOsFormularios()
'By JPaulo ® Maximo Access
On Error Resume Next
Do While Forms.Count
DoCmd.Close acForm, Forms(0).Name
Loop
DoCmd.OpenForm "FormDoMenu"
End Sub

Tente assim:

No evento do formulário que quer manter aberto

Private Sub Form_Load()

call CloseAllForms

End Sub

Em um Módulo do VBA

Function CloseAllForms()

'Fecha todos os forms

Dim obj As Object
Dim strName As String

For Each obj In Application.CurrentProject.AllForms
If obj.Name <> "MenuPrincipal" Then
DoCmd.Close acForm, obj.Name, acSaveYes
End If
Next obj

End Function

Criquio e Vieira,

Funcionou blz.

Muito obrigado à ambos pela ajuda.

Abraços.

Sucesso e obrigado pelo retorno