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
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