Discussion :

[tibofo]

Bonjour,

Dans ma base, sur plusieurs formulaires, j'ai mis des (env30) boutons (pour moi) de tests et divers petites choses utiles pour moi. Je les ai rendu invisible pour l'utilisateur.

Mais pour moi, ce serait super pratique de les rendre Tous visible, par exemple en cliquant sur un endroit secret (exemple un logo) ou même en rentrant avec un mot de passe qui rendrait tout visible.

(J'utilise actuellement un formulaire Mot de passe pour rentrer dans ma base)

Ce que je voudrais est savoir si je peux éviter d'écrire une trentaine de fois :

Code :

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

monbouton.visible=true

Existe-t'il qq chose du genre ?:

Code :

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

All buton.visible = true

Merci

[random]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub rvisible(x As String)
Dim v As Form
Dim b As Control
Dim z As Variant
DoCmd.OpenForm (x)
Set v = Forms(x)
For Each b In v.Controls
On Error GoTo plus
 
 If b.Properties("controltype").Value = 104 Then b.visible = True
plus:
  Next b
End Sub

[Domi2]

Bonsoir,

j'ai mis des (env30) boutons (pour moi) de tests et divers petites choses utiles pour moi

Cela laisse entendre que tu as peut-être d'autres contrôles que des boutons ?

Tu peux aussi utiliser la propriété "Remarque ==> Tag" des contôles.

Dans cette propriété, tu mets par exemple "Tibofo", sans "".

Et tu exécutes ce genre de code (dans le module du formulaire) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ctl As Control
 
For Each ctl In Me.Controls
 
    'Si la propriété Remarque des contrôles contient "Tibofo"
    If ctl.Tag = "Tibofo" Then
 
        'On affiche le contrôle
        ctl.Visible = True
 
    End If
 
Next

Domi2

[tibofo]

Merci à vous 2 : réponses super intéressantes