Discussion :

[LaurentD]

J'espère que le titre est assez explicite.

Je plante le décor : J'utilise Access depuis quelques années et j'ai enfin décidé de me plonger dans VBA qui me laisse entrevoir de belles possibilités pour mes DB... Bref, je débute

J'ai un formulaire continu, dans lequel se trouve en en-tête un bouton qui appelle une MessageBox pour filtrer ce formulaire... Jusque là rien de chinois ! Mais je voudrais pouvoir effectuer cette recherche sur plusieurs champs de mon formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub btn_rech_org_Click()
Dim valeur As String
valeur = InputBox("Entrez la valeur à rechercher :")
If valeur = "" Then
Exit Sub
Else
DoCmd.ApplyFilter , "[Org_Association] like '*" & valeur & "*'"
End If
End Sub

Outre le champ Org_Association, je voudrais également faire la recherche sur [Org_Nom], [Org_localite] et [Org_Adresse], mais là je bloque.

J'vous l'avis dit, je débute !

[Invité]

Bonjour et bienvenue sur DVP.

Te mettres au VBA

Notre page cours dispose de plusieurs articles sur les formulaires de recherches multi-critères ils se trouvent ici.

Je t'invite à les parcourir, ce sera mieux que les inputbox.

[LaurentD]

Désolé, je ne pense pas que la solution y soit...

Je voudrais vraiment filtrer mon formulaire et pas obtenir les résultats dans une zone de liste et le plus important c'est d'effectuer la recherche à partir d'une seule entrée...

je tape "bon" et la recherche s'effectue sur plusieurs champs...

D'autres idées ? Je poursuis néanmoins mes investigations...

[DMboup]

le plus important c'est d'effectuer la recherche à partir d'une seule entrée...

je tape "bon" et la recherche s'effectue sur plusieurs champs...

Etrange facon de faire, mais bon tu peux compléter ce que tu as déjà comme ca

Code :

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

1
2
 
DoCmd.ApplyFilter , "([Org_Association] like '*" & valeur & "*') And(Or) ([Org_Nom] like '*" & valeur & "*')"