récupérer valeur d'un controle créer "dynamiquement"

**Bulbulle** · 27/05/2010, 13h06

Bonjour,

Je suis confrontée à un problème avec mon application. Une partie de cette dernière permet de détailler les composants d'un produit.

J'ai donc créé un formulaire avec à l'ouverture une première ligne pour rentrer le premier composant (son code, sa désignation et le pourcentage de compoition) ainsi qu'un bouton "+" pour ajouter une nouvelle ligne donc un nouveau composant de l'article principal.

Ce bouton va permettre d'enregistrer l'enregistrement de la ligne en cours et de creer une autre ligne donc avec ajout de nouveaux controles.

J'aimerais que le nom des controles soit, par exemple, de ce type là "txt_codearticle_0" pour la première ligne, "txt_codearticle_1" pour la deuxième ligne, bref "txt_codearticle_XX" où XX represente le nombre d'enregistrement dans la base pour l'article en cours.

La première ligne est ok puisqu'elle a été créé en manuel puisque c'est moi qui lui a donné son nom.

Mon souci c'est de, en fonction du nombre d'enregistrement, recuperer les valeurs de la ligne en cours ce qui devrait donner un exemple de code de ce style-là :

Code :

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

1
2
3
4
5
Sqlcount = "select count(numarticless) as nbarticless from T_EstComposeDe where numarticleinterne = '" & Me.numarticleinterne & "' ;"
    Set rsCount = dbNC.OpenRecordset(Sqlcount, dbOpenSnapshot)
 
 
    variableCodeart = "me.txt_codearticle_" & rsCount.Fields("nbarticless").Value

mais voilà ca ne fonctionne pas. Suivant l'endroit où je met des guillemets, si je tire le "me.", j'obtiens soit une erreur : objet requis, soit il me met bien me.txt_codearticle_0 mais je n'arrive pas à recuperer la valeur de ce controle.

Si quelqu'un a une piste, j'ai cherché sur le forum et sur google mais je ne dois pas taper les bons mots... Je tourne en rond.

Merci d'avance

Invité · 27/05/2010, 13h54

Bonjour

Pourquoi ne pas utiliser un sous-formulaire pour rentrer les composants d'un produit ?

En effet, un produit étant composé de plusieurs composants c'est le reflet d'une relation entre deux tables (une table produit et une table composant, voir une table intermédiaire au cas où un composant peut aller dans plusieurs produits).

Philippe

**Tonioyo** · 27/05/2010, 13h55

Bonjour,

Je suppose que le code que vous avez posté est situé dans le formulaire.

Le but de la variable "variableCodeart" permet apparement d'obtenir le nom du controle. Il ne doit donc pas y avoir l'information "Me."

Pour accèder à un controle d'un formulaire en possèdant sont nom, il faut accèder à la collection des controles du formulaire. (Le nom du controle est la clé de la collection pour retrouver l'objet control).

Ce qui devrait nous donner ceci :

Code :

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

1
2
3
4
5
6
Sqlcount = "select count(numarticless) as nbarticless from T_EstComposeDe where numarticleinterne = '" & Me.numarticleinterne & "' ;"
    Set rsCount = dbNC.OpenRecordset(Sqlcount, dbOpenSnapshot)
 
 
    variableCodeart = "txt_codearticle_" & rsCount.Fields"nbarticless").Value
    MsgBox "Valeur du controle : " & Me.Controls(variableCodeart).Value

Remarque : La propriété ".Value" est la propriété par défaut d'un objet Control, il est donc optionel de la mentionner.

Par contre en ce qui concerne l'affichage des enregistrements provenant d'une requête il est consiellé d'utiliser une liste ou un sous formulaire.

**Bulbulle** · 27/05/2010, 14h04

Merci d'avoir répondu.

C'est bien ce que j'ai fait. Ce n'est pas au niveau de la base de données que j'ai un souci, c'est au niveau de la récupération de la valeur d'un controle.

Au debut, j'avais créé tous les contrôles à la main et si l'utilisateur voulait ajouter un composant, ca rendait visible les textbox qui était caché mais ca ne convient pas. Je n'ai pas compris pourquoi, parce qu'au final, ca revient au même. Mais bon, ce n'est pas moi la chef.

je voudrais recupérer le contenu d'une textbox créée ainsi :

lenom_valeur du count

J'ai mis la variable en variant mais toujours le même problème.