'*********************************************************
' CerrarForms
'
' Cuando enumeramos la colección forms (que contiene los
' nombres de los formularios que están abiertos), cada uno
' de sus elementos tiene un numero de índice.
'
' Pues bien, a medida que vayamos cerrando un formulario
' Access vuelve a asignar dinámicamente los índices de los
' formularios que quedan abiertos, de esta manera:
'
' Están abiertos:
'
' formulario1 -> índice 0
' formulario2 -> índice 1
' formulario3 -> índice 2
' formulario4 -> índice 3
'
' Si cerramos formulario1, la cosa quedaría así:
'
' formulario2 -> índice 0
' formulario3 -> índice 1
' formulario4 -> índice 2
'
' Sabiendo ésto entonces ésta debería ser la manera
' correcta de cerrar *todos* los formularios abiertos
' a través de código:
'
Sub CerrarForms()
Dim i As Integer
Dim FAbiertos As Integer

    FAbiertos = Forms.Count - 1

    For i = FAbiertos To 0 Step -1
        DoCmd.Close acForm, Forms(i).Name
    Next
    
End Sub
'*********************************************************