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

 1026497 visiteurs

 3 visiteurs en ligne

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

Vous êtes ici :   Accueil » Propriétés de la base