Discussion :

[BRUNO71]

Bonjour,

Me voilà bloqué sur l’alimentation d’une étiquette à partir d’une liste déroulante.
Voir exemple joint, il n’y a q’un seul résultat par couleur.
Je souhaite lorsque l’on déroule la 1ère liste déroulante après avoir fait un choix,

Code :

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

 SELECT [Appellations_source].Régions FROM Appellations_source GROUP BY [Appellations_source].Régions ORDER BY [Appellations_source].Régions;

que la 2ème liste s’ouvre également

Code :

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

 SELECT [Appellations_source].Appellations, [Appellations_source].Régions FROM Appellations_source WHERE ((([Appellations_source].Régions)=Formulaires!Papilles!REGION)) ORDER BY [Appellations_source].Appellations;

et qu’en fonction du choix de celle-ci un résultat apparaît dans une étiquette.

Code :

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

1
2
3
 Private Sub Désignation_AfterUpdate()
Me.annotation.Caption = Me.Désignation.Column(2)
End Sub

Pourquoi une étiquette, et bien je voudrais plusieurs lignes, car il s’agit de mettre une annotation assez longue.
Je n’arrive pas à alimenter cette étiquette !
J’ai essayé avec une zone de liste, mais sans résultat.
Que dois-je faire pour réussir cette opération ?

Merci par avance, pour votre coup de pouce.

[ClaudeLELOUP]

Bonjour,

Pour étendre tes chances de trouver quelqu'un pour t'aider, peux-tu poster ton formulaire dans une BDD compatible Access2000 ?


A regarder ton code : tu n'as que 2 colonnes dans ta liste et
Me.Désignation.Column(2)
se réfère à la 3ème colonne. (Access commence sa numérotation à zéro)

[BRUNO71]

Bonsoir,

Ok , j'ai changer le fichier en version 2000..
J'ai passé en column(3)

Code :

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

1
2
3
 Private Sub Désignation_AfterUpdate()
Me.annotation.Caption = Me.Désignation.Column(2)
End Sub

Et j'ai comme message d'erreur :
Utilisation incorrecte de Null (erreur 94)
Merci.

[BRUNO71]

Bonsoir ClaudeLELOUP,
Merci pour la puce que tu m'as mis à l'oreille....

Code :

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

SELECT [Appellations_source].ID, [Appellations_source].Appellations, [Appellations_source].Régions, [Appellations_source].Annotations FROM Appellations_source WHERE ((([Appellations_source].Régions)=Formulaires!Papilles!REGION)) ORDER BY [Appellations_source].Appellations;

Voilà ma réponse.

Merci