Discussion :

[Apoulit]

Bonjour, je voudrais pouvoir lorsque je tape dans ma liste déroulante intitulé rechercher_nom le mot Home, que le nom "MY HOME FRANCE" se place dans ma liste déroulante automatiquement.

Le code vba que j'utilise sur excel est celui ci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub rechercher_nom_Change()
  Dim b$
 
    If Me.rechercher_nom.ListIndex = -1 Then
   Me.rechercher_nom.List = Filter(b, Me.rechercher_nom.Text, True, vbTextCompare)
 
  End If
 
end sub

Mais sur Access j'ai un code d'erreur qui pointe en jaune Filter.

Avait vous une idée ?

Merci.

[Zekraoui_Jakani]

En remplacement de votre code, essayer ceci:

Code :

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

1
2
3
4
5
6
7
Dim sSql as String
 
sSql = "SELECT [NomDeVotreTableSoure].[NomDeVotreChamp] FROM [NomDeVotreTableSoure] " & _
"WHERE [NomDeVotreTableSoure].[NomDeVotreChamp] Like '*' & Me.[rechercher_nom] & '*'));"
 
Me.rechercher_nom.RowSource = sSql
Me.rechercher_nom.Requery

[Apoulit]

Bonjour Zekraoui_Jakani, non ça marche pas
En fait ma liste a déjà un contenu peut être que ça fonctionne avec un champ indépendant, mais mon affichage des champs dépend de cette liste.

[Zekraoui_Jakani]

En effet, votre champ doit être indépendant; l'affichage des champs doit dépendre du SQL qui peut varier à souhait. La séquence SQL peut être soumise à contrainte (critère) ou libre (sans critère).