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

 1000539 visiteurs

 1 visiteur 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 5821 fois