Discussion :

[yoann-56]

Bonjour,

J'ai un formulaire "Main" qui contient une liste déroulante (Valeurs = tRTU.Machine) et je voudrais que mon texte (Text1) dans le formulaire change de valeur suivant ce que je choisi dans ma liste déroulante.

La valeur a mettre dans Text1 est tRTU.NbDig

Code :

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

Text1.Text = SELECT NbDig FROM [tRTU] WHERE [tRTU]![Machine] = Combo1.value

Je pense que la syntaxe est surement a revoir.

Merci de votre aide

[ricounet]

Bonjour,

Essaie d'utiliser la fonction "= RechDom («expr»; «domain»; «criteria») " dans la source controle de text1.

A+

[yoann-56]

Ok je vais essayer

[Heureux-oli]

Code :

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

1
2
 
Text1.Text = SELECT NbDig FROM [tRTU] WHERE [tRTU]![Machine] = Combo1.value

Au text1, c'est une valeur que tu dois affecter je pense

Code :

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

1
2
 
Text1.Value = SELECT NbDig FROM [tRTU] WHERE [tRTU]![Machine] = Combo1.value

J'y pense, si c'est une étiquette, c'est .caption

[yoann-56]

J'ai mis ce code dans le "control source" de ma TextBox

Code :

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

=(SELECT NbDig FROM [tRTU] WHERE [tRTU]![Machine] = Me.Combo1.Value)

Cette requete renvoie #Name? dans ma TextBox

Ya t il une erreur de syntaxe ?

[Heureux-oli]

Je ne sais pas très bien comment tu a conçu ton formulaire, mais les valeurs que tu dois retrouver dans ta liste sont définies dans la source de ta liste.

Origine source, Table ou requête et en suite, la propriété contenu.

Tu peux toujours utiliser l'asistant qui va t'aider à mettre en place la requête pour le contenu.

[yoann-56]

Pour etre plus concret (voir piece jointe)

En fait ce que je veux aller lire NbDig dans la table tRTU.
Le mettre dans TExt1.value. Tout ceci en fonction de la selection effectué dans Combo1.

Merci

[Heureux-oli]

Si tu ne fais rien avec la valeur mis à part l'afficher, Tu fabrique ton formulaire et à l'aide de l'assistant, tu crée un combo qui recherche la valeur dans ton formulaire.
Si tu prends tous les champs de ta table, c'est facile.

Si tu veux affecter cette valeur à un champ :

Code :

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

1
2
3
4
 
Sub MonCombo_AfterUpDate()
Digt = monCombo.Column1
End Sub

Attention, les colonnes commencent à 0

[Heureux-oli]

Vite fait

[yoann-56]

Le zip est corrompu

[ricounet]

vite fait avec fonction Rechdom

Bonne soirée

[yoann-56]

J'arrive pas a ouvrir l'archive (toujours corrompu)

[Heureux-oli]

Je viens d'essayer mon zip et il marche.

[ricounet]

Bonjour,

Avec fonction "rechdom" ça devrai donner ça

Code :

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

=RechDom("[Nbdig]";"tRTU";"[combo1]=[machine]")

a placer sur zone text1 avec un re-query sur MAJ de ton combo

A+

PS:J'ai pu ouvrir sans Pb le fichier de "Heureux-oli"

[Dolphy35]

Salut,

J'arrive pas a ouvrir l'archive (toujours corrompu)

Juste pour info.

Erreur également pour moi le zip généère des erruers avec WinZip et WinRar.

Dolphy

[Heureux-oli]

Je l'avais réessayé du site mais j'en fais un autre.