OVH Cloud OVH Cloud

formulaire avec filtre multicritère

2 réponses
Avatar
Skalia
bonjour,

dans le cadre de la création d'une base d'abonnés, j'ai décidé de mettre en
place un formulaire permettant de retrouver les abonnés existants en fonction
de plusieurs critères. Pour cela j'ai favorisé la mise en place de champs
indépendants (commençant tous par R) lié au code VBA que voici :

Private Sub cmd_validfiltre_Click()
Dim f As String
f = ""

If Not IsNull(Me.Rnom) And Me.Rnom <> "" Then
If f <> "" Then
f = f & " AND NOM1 LIKE ""*" & Me.Rnom & "*"""
Else
f = "NOM1 LIKE ""*" & Me.Rnom & "*"""
End If
End If

Me.Filter = f
Me.FilterOn = True

End Sub

Ce code fonctionne très bien SAUF que je souhaiterais que le champ de
recherche "Rnom" puisse faire la recherche sur deux champs de ma table, le
champ "NOM1" et le champ "NOM2".
J'ai essayé diverses manipulations mais ma maitrise du VBA est trop limité
pour réussir à associer deux champs de ma table à un même champ de recherche.

Quelqu'un serait il en mesure de m'expliquer comment adapter ce code ?

Merci d'avance

2 réponses

Avatar
Gafish
Skalia wrote:
bonjour,


Bonjour,

Ce code fonctionne très bien SAUF que je souhaiterais que le champ de
recherche "Rnom" puisse faire la recherche sur deux champs de ma
table, le champ "NOM1" et le champ "NOM2".


Cela devrait fonctionner un rajoutant simplement un OR

f = f & " AND NOM1 LIKE ""*" & Me.Rnom & "*"" OR NOM2 LIKE ""*" & Me.Rnom &
"*""
et idem pour ton test dans le cas ou f est vide.

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Skalia
Merci pour ta réponse ça fonctionne parfaitement.

J'y étais presque, j'ai simplement mis AND à la place de OR et mal placé mes
guillemets.

Encore meci
Skalia


Skalia wrote:
bonjour,


Bonjour,

Ce code fonctionne très bien SAUF que je souhaiterais que le champ de
recherche "Rnom" puisse faire la recherche sur deux champs de ma
table, le champ "NOM1" et le champ "NOM2".


Cela devrait fonctionner un rajoutant simplement un OR

f = f & " AND NOM1 LIKE ""*" & Me.Rnom & "*"" OR NOM2 LIKE ""*" & Me.Rnom &
"*""
et idem pour ton test dans le cas ou f est vide.

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr