Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

º Base ouverte
º Compacter une base externe
º Empêcher la ré-ouverture d'une base
º Importer tous les objets

Lire les propriétés de la base en cours
º Modifier la barre de titre
º Modifier une propriété
º Répertoire en cours
º Temps d'exécution d'une fonction
º Vérifer le groupe de travail

Administrateur

Table

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Base de données - Lire les propriétés de la base en cours

Description

		Cette fonction permet de lire une propriété de la base de données en cours comme le nom de l'autheur, le titre, ext.

Syntaxe

Expression = ReadResum(chNomProp)

La syntaxe de la fonction ReadResum comprend l'élément suivants :

Eléments	Description
chNomProp	Expression de chaîne correspondant au nom de la propriété que l'on souhaite lire.

Section Valeurs :
L'argument chNomProp peut prendre les valeurs suivantes :

Valeur	Description
Title	Retourne le titre de la base de données
Author	Retourne l'auteur de la base de données
Company	Retourne la société de la base de données
Subject	Retourne le sujet de la base de données
Manager	Retourner le responsable de la base de données
Keywords	Retourne les mots clés de la base de données
Comments	Retourne les commentaires de la base de données
Category	Retourne la catégorie de la base de données
Hyperlink base	Retourne le répertoire web de la base de données

Exemple

		ReadResum ("Title")

Code de la fonction

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

Date de création : 14/09/2006 @ 16:33
Dernière modification : 12/06/2007 @ 12:58
Catégorie : Base de données
Page lue 1794 fois

Prévisualiser la page Imprimer la page