Discussion :

[Carmiel]

Bonjour,
J'ai un bouton fait en mode design (classique) mais sur un champ booléen il me renvoie une erreur 2046 (commande indisponible) sur acCmdFilterBySelection
Paradoxe, ça marche en 2003. D'habitude c'est l'inverse.

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 FILTRER_Click()
On Error GoTo Err_FILTRER_Click
 
    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFilterBySelection
 
Exit_FILTRER_Click:
    Exit Sub
 
Err_FILTRER_Click:
    MsgBox Err.Description
    Resume Exit_FILTRER_Click
 
End Sub

Merci de vos lumières

[NeuroTransMetteur]

Bonjour,
http://jdgayot.developpez.com/tutoriels/access/filtre/
Bonne lecture.

[Invité]

Bonjour

L'explication est une perte de focus du champ sélectionné pour faire le filtre en faveur du bouton de commande.

L'explication est dans cette discussion liée au tuto indiqué plus haut. Le remplacement par des images remplace cela, car il n'y a pas de focus sur celle-ci.

Philippe

[Carmiel]

Bonjour,
Merci pour ces réponses.
Pour le problème du filtre sur un champ booléen cela ne résout pas le problème.
A contrario, j'avais aussi un problème avec le bouton "FindNext" qui ne marchait pas. Et là par contre le fait de mettre une image solutionne le 'blème.

Le message exact est :
La commande ou l'action << >> n'est pas disponible pour l'instant.
En fait il manque l'action entre << >>.

Je précise bien pour le problème du filtre que cela marche pour tous les champs, sauf le booléen. Et en plus ça marche en 2003.
Je précise aussi que si je fais "clic droit" "sélectionné" sur le champ, le filtre s'applique bien.

Une autre idée ?

[NeuroTransMetteur]

Bonsoir,
A tout hasard,

Code :

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

1
2
3
Screen.PreviousControl.SetFocus
DoEvents
DoCmd.RunCommand acCmdFilterBySelection

A+

[Carmiel]

Bonjour,
cela ne change rien.
En attendant de trouver une solution j'ai contourné le problème en affichant le menu de filtrage si l'action renvoie une erreur.

Code :

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

1
2
3
4
    On Error Resume Next
    DoCmd.RunCommand acCmdFilterBySelection
    If Err <> 0 Then DoCmd.RunCommand acCmdFilterMenu
    On Error GoTo 0

Mais, bon, ça reste moyen.

NB : je ne mets plus le .setfocus car j'ai mis une image à la place du bouton