Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Problème boutton a bascule orderby

Problème boutton a bascule orderby

5 réponses
Avatar
belok
Pour faire un classement avec boutton a bascule ,

dans l'évènement Sur Click:
If Me.Bouton.Value = True Then '(enfoncé)
... Tri Croissant
Else (relaché)
... Tri Décroissant
End If

seul problème j'ai 5 boutton a bascule deux seulement fonctionne ...

faut t'il ajouté # pour les date et ou

& pour le text " "

merci,
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonjour.

si tu as 10 possibilités de tri, utilise un groupe d'options et non un
bouton bascule.

si tu précisais chaque question ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"belok" <belok(mail)@skynet.be> a écrit dans le message de
news:3faf92db$0$7101$
Pour faire un classement avec boutton a bascule ,

dans l'évènement Sur Click:
If Me.Bouton.Value = True Then '(enfoncé)
... Tri Croissant
Else (relaché)
... Tri Décroissant
End If

seul problème j'ai 5 boutton a bascule deux seulement fonctionne ...

faut t'il ajouté # pour les date et ou

& pour le text " "

merci,




Avatar
belok
Je me suis mal exprimer :

Je voulais dire j'ai 5 champs

1 boutton a bascule par champs pour decroissant croissant

y en a que 2 sur les 5 qui fonctionne ...

merci,

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

si tu as 10 possibilités de tri, utilise un groupe d'options et non un
bouton bascule.

si tu précisais chaque question ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"belok" <belok(mail)@skynet.be> a écrit dans le message de
news:3faf92db$0$7101$
Pour faire un classement avec boutton a bascule ,

dans l'évènement Sur Click:
If Me.Bouton.Value = True Then '(enfoncé)
... Tri Croissant
Else (relaché)
... Tri Décroissant
End If

seul problème j'ai 5 boutton a bascule deux seulement fonctionne ...

faut t'il ajouté # pour les date et ou

& pour le text " "

merci,








Avatar
Raymond [mvp]
S'il y en a deux sur cinq, c'est obligatoirement ta procédures. Qu'ont-elles
de différents ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"belok" <belok(mail)@skynet.be> a écrit dans le message de
news:3faf9af4$0$2253$
Je me suis mal exprimer :

Je voulais dire j'ai 5 champs

1 boutton a bascule par champs pour decroissant croissant

y en a que 2 sur les 5 qui fonctionne ...



Avatar
belok
Private Sub aa_Click()
If Me.aa.Value = True Then
Me.OrderBy = "[a_date_insertion] desc"
Else
Me.OrderBy = "[a_date_insertion] asc"
End If
End Sub

Private Sub bb_Click()
If Me.bb.Value = True Then
Me.OrderBy = "[te] desc"
Else
Me.OrderBy = "[te] asc"
End If
End Sub


//fonctionne
Private Sub cc_Click()
If Me.cc.Value = True Then
Me.OrderBy = "[a_titre] desc"
Else
Me.OrderBy = "[a_titre] asc"
End If
End

//fonctionne
SubPrivate Sub dd_Click()
If Me.dd.Value = True Then
Me.OrderBy = "[a_prix] desc"
Else
Me.OrderBy = "[a_prix] asc"
End If
End Sub

Private Sub ee_Click()
If Me.ee.Value = True Then
Me.OrderBy = "[a_externe_utilisateur] desc"
Else
Me.OrderBy = "[a_externe_utilisateur] asc"
End If
End Sub


"Raymond [mvp]" a écrit dans le message de
news:
S'il y en a deux sur cinq, c'est obligatoirement ta procédures.
Qu'ont-elles

de différents ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"belok" <belok(mail)@skynet.be> a écrit dans le message de
news:3faf9af4$0$2253$
Je me suis mal exprimer :

Je voulais dire j'ai 5 champs

1 boutton a bascule par champs pour decroissant croissant

y en a que 2 sur les 5 qui fonctionne ...







Avatar
Raymond [mvp]
je ne vois pas de différence entre les procédures qui fonctionnent et celles
qui ne fonctionnent pas.

Quand tu dis qu'elles ne fonctionnent pas, le tri ne se lance pas ou le tri
réalisé n'est pas bon ? je remarque que celles qui fonctionnent sont avec
des champs texte alpha ou numériques. les autres tels [te] sont des champs
de quel type ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"belok" <belok(mail)@skynet.be> a écrit dans le message de
news:3fafa218$0$4271$
Private Sub aa_Click()
If Me.aa.Value = True Then
Me.OrderBy = "[a_date_insertion] desc"
Else
Me.OrderBy = "[a_date_insertion] asc"
End If
End Sub

Private Sub bb_Click()
If Me.bb.Value = True Then
Me.OrderBy = "[te] desc"
Else
Me.OrderBy = "[te] asc"
End If
End Sub


//fonctionne
Private Sub cc_Click()
If Me.cc.Value = True Then
Me.OrderBy = "[a_titre] desc"
Else
Me.OrderBy = "[a_titre] asc"
End If
End

//fonctionne
SubPrivate Sub dd_Click()
If Me.dd.Value = True Then
Me.OrderBy = "[a_prix] desc"
Else
Me.OrderBy = "[a_prix] asc"
End If
End Sub

Private Sub ee_Click()
If Me.ee.Value = True Then
Me.OrderBy = "[a_externe_utilisateur] desc"
Else
Me.OrderBy = "[a_externe_utilisateur] asc"
End If
End Sub