J'ai cr=E9e sur un formulaire avec 2 groupes Options=20
bascule pour filtrer :
-les noms par ordre alphanum=E9rique (A ;B ;C ;D ;E..).
-le Sexe des gens (Homme ;Femme ;Tous).
Le filtre est appliquer en =AB proc=E9dure =E9v=E8nementielle =BB=20
de la fa=E7on suivante
Private Sub Adherentalpha_Click()
Dim essai As String
If Me.Adherentalpha.Value =3D 1 Then
essai =3D "A*"
End If
If Me.Adherentalpha.Value =3D 2 Then
essai =3D "B*" etc....
jusqu'=E0 Z et=20
essai =3D "[Nom] LIKE " & Chr(34) & essai & Chr(34)
DoCmd.SelectObject acForm, Me.Name
DoCmd.ApplyFilter , essai
Les deux groupes fonctionnent de la m=EAme fa=E7con.
Ceci fonctionne correctement mais je ne peux appliquer 2=20
filtres, c'est =E0 dire choisir les nom commencent par =AB=20
A =BB et de sexe =AB F=E9minin =BB.
=20
Question :
Qu'elle est l'=E9tape qui me manque pour pouvoir effectuer=20
un double filtre ?
Et peut-on associ=E9 un troisi=E8me filtre =AB classement =BB ?=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
quelques petites remarques qui peuvent changer l'organisation: un groupe d'option ne comporte que 20 éléments; quelle est la méthode pour obtenir 26 lettres ?
tu peux faire: Clausewhere= "[Nom] LIKE " & Chr(34) & Lenom & Chr(34) Clausewhere= Clausewhere& " And [Sexe] =" & Chr(34) & Lesexe & Chr(34) Clausewhere= Clausewhere& " And [Classement] =" & Chr(34) & Leclassement & Chr(34) tu mettras les bons noms. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"stéphane" a écrit dans le message de news:026601c3dc78$eb69edc0$ J'ai crée sur un formulaire avec 2 groupes Options bascule pour filtrer : -les noms par ordre alphanumérique (A ;B ;C ;D ;E..). -le Sexe des gens (Homme ;Femme ;Tous).
Le filtre est appliquer en « procédure évènementielle » de la façon suivante Private Sub Adherentalpha_Click() Dim essai As String If Me.Adherentalpha.Value = 1 Then essai = "A*" End If If Me.Adherentalpha.Value = 2 Then essai = "B*" etc.... jusqu'à Z et essai = "[Nom] LIKE " & Chr(34) & essai & Chr(34) DoCmd.SelectObject acForm, Me.Name DoCmd.ApplyFilter , essai Les deux groupes fonctionnent de la même façcon.
Ceci fonctionne correctement mais je ne peux appliquer 2 filtres, c'est à dire choisir les nom commencent par « A » et de sexe « Féminin ».
Question :
Qu'elle est l'étape qui me manque pour pouvoir effectuer un double filtre ?
Et peut-on associé un troisième filtre « classement » ?
Merci pour votre aide.
Bonsoir.
quelques petites remarques qui peuvent changer l'organisation:
un groupe d'option ne comporte que 20 éléments; quelle est la méthode pour
obtenir 26 lettres ?
tu peux faire:
Clausewhere= "[Nom] LIKE " & Chr(34) & Lenom & Chr(34)
Clausewhere= Clausewhere& " And [Sexe] =" & Chr(34) & Lesexe & Chr(34)
Clausewhere= Clausewhere& " And [Classement] =" & Chr(34) & Leclassement &
Chr(34)
tu mettras les bons noms.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"stéphane" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:026601c3dc78$eb69edc0$a401280a@phx.gbl...
J'ai crée sur un formulaire avec 2 groupes Options
bascule pour filtrer :
-les noms par ordre alphanumérique (A ;B ;C ;D ;E..).
-le Sexe des gens (Homme ;Femme ;Tous).
Le filtre est appliquer en « procédure évènementielle »
de la façon suivante
Private Sub Adherentalpha_Click()
Dim essai As String
If Me.Adherentalpha.Value = 1 Then
essai = "A*"
End If
If Me.Adherentalpha.Value = 2 Then
essai = "B*" etc....
jusqu'à Z et
essai = "[Nom] LIKE " & Chr(34) & essai & Chr(34)
DoCmd.SelectObject acForm, Me.Name
DoCmd.ApplyFilter , essai
Les deux groupes fonctionnent de la même façcon.
Ceci fonctionne correctement mais je ne peux appliquer 2
filtres, c'est à dire choisir les nom commencent par «
A » et de sexe « Féminin ».
Question :
Qu'elle est l'étape qui me manque pour pouvoir effectuer
un double filtre ?
Et peut-on associé un troisième filtre « classement » ?
quelques petites remarques qui peuvent changer l'organisation: un groupe d'option ne comporte que 20 éléments; quelle est la méthode pour obtenir 26 lettres ?
tu peux faire: Clausewhere= "[Nom] LIKE " & Chr(34) & Lenom & Chr(34) Clausewhere= Clausewhere& " And [Sexe] =" & Chr(34) & Lesexe & Chr(34) Clausewhere= Clausewhere& " And [Classement] =" & Chr(34) & Leclassement & Chr(34) tu mettras les bons noms. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"stéphane" a écrit dans le message de news:026601c3dc78$eb69edc0$ J'ai crée sur un formulaire avec 2 groupes Options bascule pour filtrer : -les noms par ordre alphanumérique (A ;B ;C ;D ;E..). -le Sexe des gens (Homme ;Femme ;Tous).
Le filtre est appliquer en « procédure évènementielle » de la façon suivante Private Sub Adherentalpha_Click() Dim essai As String If Me.Adherentalpha.Value = 1 Then essai = "A*" End If If Me.Adherentalpha.Value = 2 Then essai = "B*" etc.... jusqu'à Z et essai = "[Nom] LIKE " & Chr(34) & essai & Chr(34) DoCmd.SelectObject acForm, Me.Name DoCmd.ApplyFilter , essai Les deux groupes fonctionnent de la même façcon.
Ceci fonctionne correctement mais je ne peux appliquer 2 filtres, c'est à dire choisir les nom commencent par « A » et de sexe « Féminin ».
Question :
Qu'elle est l'étape qui me manque pour pouvoir effectuer un double filtre ?
Et peut-on associé un troisième filtre « classement » ?
