Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

 -  Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
117 Abonnés
 
 

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émentsDescription
chNomPropExpression 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 :

ValeurDescription
TitleRetourne le titre de la base de données
AuthorRetourne l'auteur de la base de données
CompanyRetourne la société de la base de données
 SubjectRetourne le sujet de la base de données
 ManagerRetourner le responsable de la base de données 
 KeywordsRetourne les mots clés de la base de données 
 CommentsRetourne les commentaires de la base de données 
 CategoryRetourne la catégorie de la base de données 
Hyperlink baseRetourne 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 1712 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 8

Total visites : Total visites : 174521  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.09 seconde