Discussion :

[tarnx]

Bonsoir à tous,

Je souhaite mettre automatiquement à jour un liste à chaque caractère saisi dans une TextBox.
J'ai donc écrit ce brin de code

Code :

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

1
2
3
4
5
6
Private Sub txtID_Change()
 
strSQL = " SELECT IDObjet, NomObjet from Objets WHERE IDObjet LIKE '" & Me.txtID & "*'"
Me.lstObjet.RowSource = strSQL
 
End Sub

La valeur de ma TextBox ne se met pas à jour, du coup le résultat ne s'affiche pas correctement dans la liste.
J'ai également essayer avec After/BeforeUpdate.

Quelqu'un aurait-il un tuyau?

Merci de votre aide

[Invité]

Bonjour

Deux petites choses dans ton code :

Comme tu es sur l'évènement Change tu utilises Me.txtID, hors comme tu ne mets pas .Value, cela est induit par défaut.

Le problème avec le Value, c'est que cette propriété n'est valable qu'après la mise à jour du champ, donc sur cet évènement il faut utiliser la propriété Text.

Ta ligne devient donc :

Code :

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

strSQL = " SELECT IDObjet, NomObjet from Objets WHERE IDObjet LIKE '" & Me.txtID.Text & "*'"

De plus, par sécurité il faut réactualiser la liste, donc après l'affectation de ta requête SQL, ajoutes cette ligne.

Code :

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

Me.lstObjet.Requery

Philippe

[tarnx]

Ça marche à merveille. Merci