Bonjour à tous,

Dans un de mes forms, j'ai 3 textbox qui, dès la saisie d'un caractère, propose les choix disponible dans une bdd access. Le code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Formlots_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        nomlot.AutoCompleteMode = AutoCompleteMode.Suggest
        nomlot.AutoCompleteSource = AutoCompleteSource.CustomSource
        nomlot1.AutoCompleteMode = AutoCompleteMode.Suggest
        nomlot1.AutoCompleteSource = AutoCompleteSource.CustomSource
        nomlot2.AutoCompleteMode = AutoCompleteMode.Suggest
        nomlot2.AutoCompleteSource = AutoCompleteSource.CustomSource
 
        Call connection7()
 
        Dim Cmd As OleDbCommand
        Dim Dr As OleDbDataReader
        Dim Cn As New OleDbConnection(base1 & base9)
 
        Try
            Cmd = New OleDbCommand("Select Abrev, Libelle from Villes", Cn)
            Cn.Open()
            Dr = Cmd.ExecuteReader
            While Dr.Read
                nomlot.AutoCompleteCustomSource.Add(Dr.GetString(0))
                nomlot1.AutoCompleteCustomSource.Add(Dr.GetString(0))
                nomlot2.AutoCompleteCustomSource.Add(Dr.GetString(0))
            End While
            Dr.Close()
            Cn.Close()
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try
    End Sub
Dans ma BDD, j'ai une autre colonne intitulée Libelle.
J'aimerais que lorsque l'utilisateur se promène dans la liste de choix qui apparait dans le textbox, corresponde à côté sous la forme d'un label l'équivalent que j'ai dans ma colonne Libelle.
Merci pour votre aide