Discussion :

[olivier777]

Bonsoir à tous,

A partir d'un choix fait d'une liste déroulante, je fais afficher l'information correspondante à mon choix dans une zone de texte indépendantes avec la formule : =Nomdemalistedéroulante.Column(1)

Je souhaiterai faire afficher plusieurs informations provenant toujours de la liste déroulante dans des zones de texte indépendantes avec la meme formule que précédement mais en incrémentant le chiffre (=Nomdemalistedéroulante.Column(2), =Nomdemalistedéroulante.Column(3), etc...). Mais lorsque je saisi la formule et fais un test, rien seule la 1ère zone de texte indépendante (=Nomdemalistedéroulante.Column(1)) apparait. Les autres restants blanches.

Je précise que les informations de ma liste déroulante proviennent d'une requête ou j'ai mis tous les champs de la table correspondante.

Merci pour votre aide.

[Simplifi]

hello
une bonne alternative pour afficher ces infos, est de baser ton formulaire sur une requête qui contient deux tables liées, dès que tu aura choisi dans la liste, les valeurs apparaîtrons automatiquement sans le moindre VB
pour tester ça, essaye d'écrire directement dans la requête, tu verra que dès que tu a rempli le champ d'un coté de la liaison, les autre colonnes se remplissent toutes seules

une autre alternative est de passer par VB:
sur sortie de la liste déroulante,

Code :

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

1
2
3
ma_zone_de_texte1 = Nomdemalistedéroulante.Column(1)
ma_zone_de_texte2 = Nomdemalistedéroulante.Column(2)
....

[olivier777]

merci pour ta réponse.

J'ai essayé ton code:

Code :

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

1
2
ma_zone_de_texte1 = Nomdemalistedéroulante.Column(1)
ma_zone_de_texte1 = Nomdemalistedéroulante.Column(2)

Mais j'ai un souci de débogage, et je ne vois pas d'ou cela vient...

[Simplifi]

hello
précise un peu l'erreur de deboggage, avec une image si besoin

[LE VIEUX]

salut,
as-tu bien saisi toutes tes colonnes dans la création de ta liste déroulante
pour verifier sur la propriété format de ta liste déroulante :
Nombre de colonnes : ?
et normalement elles doivent apparaitre quand tu cliques dans ta liste.

[olivier777]

Dans le nombre de colonnes, j'ai le chiffre 1.

En revanche ma requête a bien été faite avec tous les champs, par contre elle ne s'affiche pas dans la liste

Merci pour votre aide

[olivier777]

C'est re moi !

J'ai refait ma liste déroulante qui se base sur une requête.
J'ai pris pour faire cette liste déroulante, les champs dont j'ai besoin pour qu'ils soient récupérés dans des champs textes.

Dans les champs textes, j'ai mis la formule : =Nomdemalistederoulante.Column(1) (pour le premier champs)

Mais j'ai "#Nom ? dans les champs à la place des informations souhaitées.

Merci de votre réponse

[Simplifi]

re hello
j'ai testé chez moi, je pense que c'est un problème d'orthographe
Chez moi la liste s'appelle Entreprise_Liste et comme pour faire le test, j'ai rapidement jeté des boites en vrac, (ça se voit sur l'image) elles s'appellent texte49, 50, 51 ce qui donne le code

Code :

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

1
2
3
4
5
Private Sub Entreprise_Liste_Exit(Cancel As Integer)
Texte49 = Entreprise_Liste.Column(0)
Texte50 = Entreprise_Liste.Column(1)
Texte51 = Entreprise_Liste.Column(2)
End Sub

et l'image jointe

[LE VIEUX]

bonsoir,
l'erreur signale a priori une erreur probable dans l'orthographe comme le signale simplifi - verifie bien la saisie de la propriété source de contrôle de ta zone de texte -
passe par le générateur d'expression saisie dans les champs de ta requête celui qui correspond à ta zone de liste déroulante puis :
après le nom de ta zone de liste déroulante .column(x).
ça doit te donner :
[NomDeTaZoneDeListe].[column](x)
ne cherche pas la function column dans les fonctions, elle marche mais elle est absente.
si tu n'as pas le résultat que ce soit dans la propriété source de contrôle où par un un code sur un évènement. poste un extrait de ta base pour qu'on vérifie.
à+

[francishop]

Bonjour,

Pour apporter un peu d'eau au moulin :

http://www.developpez.net/forums/d47...lusieurs-zone/

Cordialement.

[olivier777]

Merci à tous !

ça fonctionne !!!

C'est beau la communauté du web !!

A Bientôt

[Simplifi]

hello
c'étais quoi le problème
(c'est pas pour te demander une autocritique stalinienne avant de t'envoyer en Sibérie, c'est juste pour améliorer ma façon de donner quelques conseils)

Enchanté d'avoir pu servir à quelque chose