Recherche
Recherche
Les mémos
Je débute...
Visites

 996492 visiteurs

 4 visiteurs en ligne

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


Catégorie : Les mémos - Base
Page lue 5762 fois