VBA Access - Fechando TODOS os Relatórios Abertos - Close All Forms


Se você tem já criou um formulário através do qual evoca todos os seus relatórios, sabe bem que de vez em quando ficam inúmeros deles sobrepondo-se uns aos outros. Como resolver isso?

Function CloseAllReportss()

    Dim lngLoop As Long

    For lngLoop = (Forms.Count - 1) To 1 Step -1
        DoCmd.Close acForm, Forms(lngLoop).Name
    Next lngLoop

End Function

Tags: Access, VBA, Report, Reports, close, fechar


Nenhum comentário:

Postar um comentário

diHITT - Notícias