Discussion :

[charlieda]

Bonjour à toutes et à tous,

J'ai fait un formulaire de recherche multi critère en me basant sur un tuto mais de temps en temps ça fait planter access.
Donc faute de trouver la solution, j'en ai trouvé un autre qui me semble fonctionner parfaitement et être adaptable à mes besoins mais .....

.....

L'exemple est donnée sur base d'un formulaire ayant des zones textes où il faut indiquer ce que l'on recherche.

Je voudrais que ce soit des zones listes déroulantes. J'ai donc essayé de mettre une liste à la place de la zone texte et la recherche ne fonctionne plus.

Vu le peu de connaissance en la matière, mes recherches ont été infructueuses.

Auriez vous une piste ? Merci d'avance.

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
f = ""
If Not IsNull(Me.RTitre) And Me.RTitre <> "" Then
f = "titre LIKE ""*" & Me.RTitre & "*"""
End If
If Not IsNull(Me.Rauteur) And Me.Rauteur <> "" Then
If f <> "" Then
f = f & " AND auteur = """ & Me.Rauteur & """"
Else
f = "auteur = """ & Me.Rauteur & """"
End If
End If
If Not IsNull(Me.RDesc) And Me.RDesc <> "" Then
If f <> "" Then
f = f & " AND Description LIKE ""*" & Me.RDesc & "*"""
Else
f = "Description LIKE ""*" & Me.RDesc & "*"""
End If
End If
If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then
If f <> "" Then
f = f & " AND clng([date stock]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
Else
f = "clng([date stock]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
End If
End If
Me.Filter = f
Me.FilterOn = True

Le code qui déclenche sur le clic bouton.

Merci

[tee_grandbois]

bonjour,
il faudrait regarder la propriété "Contenu" des listes déroulantes ... il peut y avoir aussi des colonnes cachées (propriété "Largeur colonnes") car généralement l'identifiant se trouvant en première colonne (0) est masquée, la seconde colonne (1) étant le libellé. Or, dans ce cas, c'est bien la première colonne qui est utilisée pour la comparaison.
Est-ce le cas pour tes listes ?

[charlieda]

Merci à toi pour cette précision à laquelle, décidément, je ne pense jamais.

Tu m'avais déjà alerté sur ce point pour un autre problème.
Comme dirait ma mère, que tu es têtu et maintenant suis trop vieux pour changer

Bref, merci beaucoup.

Ca fonctionne. reste plus qu'à l'appliquer à ma base parce que je l'avais fait en test sur une autre.