Bouton visible ou non

**fourniey** · 07/10/2017, 00h49

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 :

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

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

**ClaudeLELOUP** · 07/10/2017, 11h54

Bonjour,

mon code plante

Quel message et sur quelle instruction ?

**fourniey** · 07/10/2017, 13h02

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

Forms("Contrat")!btn_enlever_filtre.SetFocus

**ClaudeLELOUP** · 07/10/2017, 13h12

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

**fourniey** · 07/10/2017, 13h43

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

**ClaudeLELOUP** · 07/10/2017, 13h48

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