Bouton visible ou non

Bonjour,

J'ai un bouton pour désactiver le ou les filtres mise en place par l'usager.

Lorsque je veux effectuer une recherche, je rend invisible ce bouton.

Par contre, lorsqu'il n'est pas visible, mon code plante et je ne sais pas quoi faire ?

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub btn_rech_Click() If btn_enlever_filtre.Visible = faux Then Forms("Contrat")!btn_enlever_filtre.SetFocus SendKeys "{ENTER}" Me.btn_rech.SetFocus btn_enlever_filtre.Visible = False End If DoCmd.OpenForm "Contrat_rech", acNormal End Sub

---

Bonjour,

Citation:

---

mon code plante

---

Quel message et sur quelle instruction ?

Sur cette ligne car le bouton est cahé puisque le filtre n'a pas activé le filtre.

Forms("Contrat")!btn_enlever_filtre.SetFocus

Un contrôle non visible ne peut pas recevoir le focus => l'erreur.

Je sais mais c'est mon if qui cause le problème car il passe au travers alors qu'il ne devrait pas.

Récupère l'erreur et traite-la.

Ou bien teste si Me.btn_rech.visible avant de donner le focus


En 5. => if Me.btn_rech.visible then Me.btn_rech.SetFocus

C'Est le bouton filtre qui était le problème.

Ton problème est donc réglé ? Je ne parviens plus à suivre !

J'ai mis cette ligne à True et tout est ok.

If btn_enlever_filtre.Visible = faux Then