Fermer tous les formulaires ouverts


Le code qui suit permet de fermer tous les formulaires ouverts de la base de donnée en cours..

Function CloseAllForm()

Dim intForm As Integer
For intForm = 0 To Forms.Count - 1
    DoCmd.Close acForm, Forms(0).Name, acSaveYes
Next

End Function

 

Retour haut de page

Auteur : Jessy SEMPERE