Discussion :

[FCL31]

Bonjour à tous

J'ai form avec 2 une TextBox et une ComboBox
J'ai aussi une table Tbl_Fa appartenant à la base FaDatabaseDataSet
Champ 1 de Tbl : ID
Champ 2 de la Tbl : Nom
Champ 3 et la Tbl : Ville

La ComboBox est alimentée par la table Tbl_Fa.

Je voudrais savoir comment faire pour que, en choisissant une valeur de la ComboBox (en fonction du Champ Nom), ça m'affiche la valeur du Champ Ville correspondant dans la TextBox.

[Gurdil le nain]

Bonjour,

Tout d'abord, évite les demandes par MP, il faut que tu attendes une réponses sur le forum...qui est plus actif en journée qu'en soirée...

Alors ton problème est tout simple à résoudre, il faut que tu t'abonnes à l'évènement SelectedValueChanged de ta combobox et dans cet évènement tu vas faire :

Code :

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

taTextBox.Text = taComboBox.SelectedItem

Cela devrait marcher.

(De plus, tu n'es pas dans le bon forum ici c'est vba, pas vbnet )

[FCL31]

Merci de ta réponse et désolé pour le MP

Mais dans la ligne de code, ne faut-il pas indiquer la colonne et la ligne de la valeur recherchée ?

Dans la base de données, il me faudrait récupérer la valeur de la colonne 3 pour la textbox de la ligne de la valeur de la combobox.

[FCL31]

Jai une ComboBox dont la DataSource est une table d'une base de données.
La table a forcément plusieurs colonnes.
Seule la valeur de la 1e colonne est affichée dans la ComboBox.
Et je voudrais qu'en sélectionnant une valeur dans la ComboBox (qui correspond à la ligne 5 de ma table par exemple), ça m'affiche la valeur de la colonne 3 de ligne 5 (dans cet exemple) dans ma TextBox.

[FCL31]

J'ai testé comme ça mais ça ne marche pas :
(J'y connais pas grand chose en SQL)

Code :

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

1
2
3
4
5
6
7
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim StrSQL As String
        StrSQL = "SELECT Tbl_Fa.Ville , Tbl_Fa.Nom" & vbCrLf & _
                 "FROM  Tbl_Fa " & vbCrLf & _
                 "WHERE Tbl_Fa.Nom = Combobox2.Text"
        Me.TextBox1.Text = StrSQL
End Sub

[FCL31]

J'y arrive pas

Y'a personne pour m'aider