chargement d'un combobox lors de la saisie

Paul75 · 03/09/2008, 14h20

Bonjour

j'ai un combo (list) dont je doit actualiser lorsque je tape un caractère.

Exemple : si je rentre un c, je doit par exemple voir afficher CHOISY.
Hors la base ou se situe justement CHOISY, dans le champs VOIE, on ne le trouve que DE CHOISY.

Voici mon code source de la partie de onkeyup:

Code :

Private Sub Voie_KeyUp(KeyCode As Integer, Shift As Integer)
    
    Me.Voie.RowSourceType = "Table/Requête"
    
    Dim cSQL As String
    
    cSQL = "SELECT DISTINCT MUSIC.[Voie] FROM MUSIC WHERE (MUSIC.Voie LIKE '%" & Replace(Me.Voie.Text, "'", "''") & "%');"
    
    Me.Voie.RowSource = cSQL
    Me.Voie.Requery
End Sub

Esce que quelqu'un peut m'expliquer la démarche ? Merci

marot_r · 03/09/2008, 18h02

en access like marche avec des * à la place des % et en utilisant des " à la place des ' tu t'évites la substitution des ' par des ''.

Ton SQL devrait être

Code :

"SELECT DISTINCT MUSIC.[Voie] FROM MUSIC WHERE (MUSIC.Voie LIKE ""*" & Me.Voie.Text & "*"");"

A+

Paul75 · 03/09/2008, 22h05

Merci infiniment....

03/09/2008, 14h20	#1 (permalink)
Paul75 Membre du Club Date d'inscription: décembre 2004 Messages: 80	chargement d'un combobox lors de la saisie Bonjour j'ai un combo (list) dont je doit actualiser lorsque je tape un caractère. Exemple : si je rentre un c, je doit par exemple voir afficher CHOISY. Hors la base ou se situe justement CHOISY, dans le champs VOIE, on ne le trouve que DE CHOISY. Voici mon code source de la partie de onkeyup: Code : Private Sub Voie_KeyUp(KeyCode As Integer, Shift As Integer) Me.Voie.RowSourceType = "Table/Requête" Dim cSQL As String cSQL = "SELECT DISTINCT MUSIC.[Voie] FROM MUSIC WHERE (MUSIC.Voie LIKE '%" & Replace(Me.Voie.Text, "'", "''") & "%');" Me.Voie.RowSource = cSQL Me.Voie.Requery End Sub Esce que quelqu'un peut m'expliquer la démarche ? Merci

03/09/2008, 18h02	#2 (permalink)
marot_r Expert Confirmé Sénior Date d'inscription: octobre 2005 Messages: 2 545	en access like marche avec des * à la place des % et en utilisant des " à la place des ' tu t'évites la substitution des ' par des ''. Ton SQL devrait être Code : "SELECT DISTINCT MUSIC.[Voie] FROM MUSIC WHERE (MUSIC.Voie LIKE """ & Me.Voie.Text & """);" A+ __________________ Merci de ne pas poster pour des pb techniques dans les messages privés.

03/09/2008, 22h05	#3 (permalink)
Paul75 Membre du Club Date d'inscription: décembre 2004 Messages: 80	Merci infiniment....

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Access > VBA Access
chargement d'un combobox lors de la saisie

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email