En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1263820 visiteurs

 2 visiteurs en ligne

Nous contacter

Contact

Propriétés de la base

Propriétés Générales et Personnalisées

Lecture des propriétés de la base de données dans la fenêtre des propriétés.

Function ReadDBProperties(Propriete As String) As String
    ' ReadDBProperties("Title") retourne le titre de l'application
    ' ReadDBProperties("Author") retourne l'auteur de l'application
    ' Autres valeurs possibles : Company, Manager, Subject ...
    On Error Resume Next
    Dim db As Database
    Dim cnt As Container
    Dim doc As Document

    Set db = CurrentDb
    Set cnt = db.Containers("Databases")
    Set doc = cnt.Documents("SummaryInfo")

    'Pour les propriétés personnalisées on écrira :
    'Set doc = cnt.Documents("UserDefined")
    doc.Properties.Refresh
    ReadDBProperties = doc.Properties(Propriete)

    Set doc = Nothing
    Set cnt = Nothing
    Set db = Nothing

End Function

Catégorie : Les mémos - Administration
Page lue 7959 fois
Vous êtes ici :   Accueil » Propriétés de la base