[AC-2003] ajout zone de texte par code [Résolu]

[Begon0]

Bonjour

je voulais savoir s'il existait une commande pour créer une zone de texte en automatique à partir d'un code VBA
j'aimerai rajouter une zone affichant le chemin d'accès de l'état dans l’arborescence de mon menu pour que les utilisateurs retrouvent facilement l'état à partir d'une ancienne édition
et comme j'ai plus de 500 états, j'aimerai ne pas le faire manuellement

merci pour votre aide

[Philippe JOCHMANS]

Bonjour

Ta zone de texte est où ? Dans un menu, un formulaire ou un état ?

A priori dans un menu, pourquoi vouloir la créer dynamiquement et non une fois pour toute ? Si c'est dans un menu : Personnaliser vos barres de commandes dans Access

Philippe

[Begon0]

bonjour

la zone de texte n'existe pas pour le moment, je veux la rajouter sur tous les états
par exemple, j'ai un état de ventes qu'on ouvre en passant par ce menu :
editions/commercial/ventes/par client

et je voudrais rajouter ce chemin quelque part dans mon état pour que si quelqu'un regarde l'état imprimé, il sache y retourner facilement sans chercher pendant 10 mn ou il se trouve

je n'aurais à faire cette manip qu'une seule fois mais j'aimerai pouvoir le faire par code pour éviter de me taper 500 états à modifier

[Begon0]

personne n'a une astuce ?

[mkl238]

Bonjour,

voici une astuce: la méthode CreateReportControl

définition:
CreateReportControl(formname, controltype[, section[, parent[, columnname[, left[, top[, width[, height]]]]]]])

et un petit exemple débile:

Code :

1
2
3
4
5
6
7
DoCmd.OpenReport "tonEtat", acViewDesign
 
Dim newControl As Control
Set newControl = CreateReportControl("tonEtat", acTextBox, acDetail, , , 1, 1, 1000, 200)
newControl.name = "blabla"
DoCmd.Close acReport, "tonEtat", acSaveYes
Set newControl = Nothing

[Begon0]

super ça fonctionne !

merci beaucoup

juste pour ceux que ça pourrait interesser, j'ai rajouté ce code pour affecter le texte au controle :

Code :

newControl.ControlSource = "=""MonTexte"""