Discussion :

[Dralex]

Bonjour à tous,

pour le boulot je crée uen base de donnée Access. J'aimerais faire un formulaire de recherche selon plusieurs critères (rue,N°,Commune,...) malheureusement je raaaaaaaame.

J'ai essayé de suivre le tuto de Caféine mais ça donne pas les résultats esperés .

En gros j'ai une tâble Câble-papier-plomb avec dedans des champs Rue, N°,Commune,...

J'ai un formulaire de recherche nommé Searchplomb dans lequel j'ai les champs textes de Rue,N°,Commune,...

J'aimerai que l'utilisateur puisse librement remplir les champs de son choix puis en cliquant sur un bouton, le résultat de sa recherche s'affiche dans une zone de liste.

Merci d'avance pour toute personne qui voudrait bien se pencher sur mon problème.

Alex

[loufab]

Bonjour,

Vu qu'il s'agit de données texte tu vas utiliser l'opérateur Like (voir le tuto correspondant) pour retrouver tes données.

Le reste n'est que du test de remplissage des controles de saisie.

Où en es-tu ?

Cordialement,

[MisterS]

Bonjour ,

Loufab propose un mdb avec direct un exemple concret si cela peu mieux t'aider : [Dans la partie : Outils]
http://loufab.developpez.com/

Et le tutoriel de Cafeine me semble le mieux fait et le plus compréhensible ...

http://cafeine.developpez.com/access...echerchemulti/


Sinon tu as celui de Jeannot45 qui peu aussi t'éclairée :

http://jeannot45.developpez.com/arti...multicriteres/

Cordialement ,

Edit : Message croisée avec loufab

[Dralex]

Il n'y a pas que des champs texte, il y a également une combobox avec la liste des Communes. Je sais pas si ça change quelque chose.

Je vais me renseigner sur cette fonction "like" et je vous tiens au courant (oui vous l'aurez compris je connais pas le VBA )

Merci et je vous dis quoi

[MisterS]

Je vais te faire un peu gagner du temps si tu utilise un GroupOptionButton tu peu utiliser dans ton VBA ce genre de code :

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
31
32
33
34
35
Faire un filtre sur un champs grace a un bouton radio : 
 
 
Private Sub Cadre60_Click()
Dim SQL As String
Dim SQLmeca As String
Dim SQLfabri As String
Dim SQLEnvi As String
Dim SQLinfo As String
Dim SQLelect As String
 
Select Case Me.Cadre60.Value
 
Case 1
SQLfabri = "Fabrication"
SQL = "SELECT * FROM T_SUIVI WHERE (Origine = '" & SQLfabri & "')"
 
Case 2
SQLmeca = "Mécanique"
SQL = "SELECT * FROM T_SUIVI WHERE (Origine = '" & SQLmeca & "')"
 
 
Case 3
SQLEnvi = "Environnement"
SQL = "SELECT * FROM T_SUIVI WHERE (Origine = '" & SQLEnvi & "')"
 
Case 4
SQLelect = "Electrique"
SQL = "SELECT * FROM T_SUIVI WHERE (Origine = '" & SQLelect & "')"
 
    End Select
 
Me.T_SUIVI.Form.RecordSource = SQL
 
End Sub

Qui te renverra ici par exemple : Mecanique / fabrication ... etc cela OptionButton choisi!

Pour une utilisation plus "courante" cela peu te servir pour faire un filtre selon l'état d'une demande : Traiter / en cours / en attente ... etc !

Sinon voila un autre exemple basic qui te permet de faire une recherche d'un nom dans ta table.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Sub RechercheMulti()
'Procédure de recherche multi critères
 
'Déclaration des variables
Dim SQL As String
 
'Requete de référence
SQL = "SELECT Nom , age FROM  Ta_Table 
 
If Me.txtNom <> "null" Then
    SQL = SQL & "AND Ta_Table!Nom like '" & Me.txtNom & "' "
End If

Je pense pas que je puisse faire plus pour t'aider , mais cela peu te servir de référence de base pour commencer , et faire ton premier test sur un formulaire vierge !

Cordialement à toi ,

[Dralex]

Ton deuxieme morceau de code m'interesse beaucoup car c'est ce que je veux sauf que je voudrais ajouter plusieurs critère !

Et le résultat je l'affiche comment ?

Merci

[Dralex]

Ce code pourrait il marcher ?

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
Public Sub RechercheMulti()
'Procédure de recherche multi critères
 
'Déclaration des variables
Dim SQL As String
 
'Requete de référence
SQL = "SELECT Nom , Commune FROM  Ta_Table 
 
If Me.txtNom <> "null" Then
    SQL = SQL & "AND Ta_Table!Nom like '" & Me.txtNom & "' "
End If
 
If Me.txtCommune <> "null" Then
    SQL = SQL & "AND Ta_Table!Commune like '" & Me.txtNom & "' "
End If
 
...(pour les autres criteres)
 
Me.(le nom de ma liste).RowSource = SQL
end sub

??

[Dralex]

Bon après mes congés mon boss m'a fait bosser sur autre chose et je reviens finalement sur cette fameuse recherche multi critère et le bout de code ci-dessus ne fonctionne pas
lorsque je clique sur un bouton pour activer ce code, ma liste qui était remplie par tout la table devient vide ... toute blanche

Quelqu'un a une idée ?

[Dralex]

Voila pour vous aider je vais essayer de vous donner un max d'info :

J'ai une table nommée câble-papier-plomb (pas pratique je m'en rend compte mais trop tard pour tout changer ...) avec plein de donnée mais limitons nous pour le moment au champ "rue"

j'ai un formulaire de recherche avec
un champ texte nommé "txtRue"
une liste nommée lstresult qui va dans la table papier plomb chercher les valeurs de rue (contenu : SELECT [Câble-papier-plomb].Rue FROM [Câble-papier-plomb]
un bouton qui execute le code suivant lorsque je clik dessus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande6_Click()
 
Dim SQL As String
 
SQL = "SELECT Rue  FROM  [Câble-papier-plomb] "
 
If Me.txtRue <> "null" Then
    SQL = SQL & "AND [Câble-papier-plomb]!Rue like '" & Me.txtRue & "' "
End If
 
SQL = SQL & ";"
 
Me.lstresult.RowSource = SQL
End Sub

Lorsque je lance mon formulaire, ma fiche affiche toute ma table (enfin que le champ rue puisqu'on se limite a lui pr le moment). Si je tape un nom de rue (par exemple babouin) dans le champ texte et que je clique sur le bouton qui execute le code... et bien la liste devient tout blanche :'(

Quelqu'un pourrait m'aider ?