Enlève Form démarrage

Cette petite fonction permet de supprimer le formulaire de démarrage qui aurait été défini dans la fenêtre de démarrage.

Voir le menu Outil, Démarrage.

Function RemoveStartForm(sBase As String)
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '~~~ Usage :
    '~~~ RemoveStartForm "C:MaBase.mdb"
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Dim Dbs As DAO.Database
    Set Dbs = DBEngine.OpenDatabase(sBase)
    Dbs.Properties.Delete "StartUpForm"

    Dbs.Close
    Set Dbs = Nothing

End Function