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

 987940 visiteurs

 2 visiteurs en ligne

Recherche
 
Fermer

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 5651 fois