Discussion :

[marot_r]

Bonjour à merci de votre temps.

J'ai ajouté des descriptions à certain de mes forms (bouton droit, propriété) et j'aimerai les récupérer par VBA.

J'ai essayé avec les AccessObject de CurrentProject.AllForm et les AccessObjetPorperties mais je n'arrive pas à avoir la description.

La collection Propeties et AccessProperties semblent vide.

Quelqu'un sait comment procédé ?

A+

[Faw]

Salut marot_r,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim oDb As DAO.Database
Set oDb = CurrentDb
stdescription = oDb.Containers("Forms").Documents("Formulaire6").Properties("Description")
MsgBox stdescription

directement inspiré du code de tofalu pour récupérer la date de dernière modif
d'un form. Desciption est un peu tordue comme propriété, cf l'aide...
Testé sur 2002

[marot_r]

Merci,

je connaissais même pas la classe container.

A+

[marot_r]

Bonjour à tous, J'ai reçu un message de jlfprofoto mais je ne le vois pas dans le forum donc je le remet ici :

Contenu du message :
***************
justement ce jour je suis à la recherche de la même chose si ce n'est à un point prés (détail me direz-vous...) :

le code ci dessus est excellent sauf qu'il faut que le formulaire soit ouvert (enfin il me semble ),

d'où ma question complémentaire : par quel moyen peut on récupérer cette fameuse description (ou caption) sans ouvrir le formulaire ?

PS : non svp pas la tête...
***************

La propriété Description est une propriété 'externe'. On l'obtient en faisant bouton droit sur un formulaire. Elle est dans la même catégorie que la date de création. Il n'est pas nécessaire d'ouvrir le formulaire pour cela.

La propriété Caption que tu mentionnes est une propriété 'interne' et je ne pense pas qu'on puisse la voir si le formulaire n'est pas ouvert.

La solution que je connais consiste à ouvrir le formulaire en mode design, lire la propriété Caption puis refermer le formulaire.

Ici un bout de code qui fait cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim nomForm as string : nomForm="NomTonForm" 
docmd.OpenForm nomForm, acDesign
dim legende as string : legende=forms(nomForm).caption:'Récupère le contenu de la proprité
debug.print legende
docmd.Close acForm, nomForm, acSaveNo :'Ceinture et bretelles : ferme le formulaire en s'asurant qu'aucune modifs ne soit prise en compte même si il est très improbable qu'une modif ait eu lieu.