Lire les propriétés de la base en cours


Le code qui suit permet de lire les propriétés de la base de donnée en cours tel que le nom de l'auteur, le titre, ect.

L'argument "chNomProp" correspond au nom de la propriété que l'on veut lire (en anglais)

Function ReadResum(chNomProp As String) As String

Dim bds As Database, cnt As Container
Dim doc As Document, prp As Property

Const conPropriétéNonTrouvée = 3270

On Error GoTo ReadResum_Err

Set bds = CurrentDb
Set cnt = bds.Containers!Databases
Set doc = cnt.Documents!SummaryInfo

doc.Properties.Refresh
ReadResum = doc.Properties(chNomProp)

ReadResum_Sortie:

Exit Function

ReadResum_Err:

If Err = conPropriétéNonTrouvée Then
    Set prp = doc.CreateProperty(chNomProp, dbText, "Aucune")
    doc.Properties.Append prp
    Resume
Else
    ReadResum = ""
    Resume
ReadResum_Sortie
End If

End Function

Exemple d'appel de la fonction :

- pour le titre :
ReadResum ("Title")

- pout l'auteur :
ReadResum ("Author")

 

Retour haut de page

Auteur : Jessy SEMPERE