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