Discussion :

[emilie31]

Bonjour,

Dans un formulaire j'ai une case à cocher liée à une zone de liste déroulante.
Je voudrais qu'à l'ouverture du formulaire la case à cocher soit décochée et la liste déroulante invisible.

J'ai rentré ce code mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private sub Nommduformulaire_Load()
Dim ctl As control
For Each ctl In Me.controls
  Select Case Left(ctl.Name, 5)
    Case "coche"
      ctl.Value = 0
    Case "modif"
      ctl.Visible = False
  End select
Next ctl
End sub

Je débute en access donc ce code je ne l'ai pas inventé mais recopié

J'ai bien ma case à cocher qui a un nom commençant par coche.... et ma zone de liste modifiable qui commence par modif...


Quelqu'un aurait-il une solution?

[Shoryu]

si tu n'as qu'UNE case et qu'UNE zone de liste
pas besoin de faire une boucle

coche.value = 0
modif.visible = false

edit :
verifie aussi qu'il s'agit du bon nom de formulaire dans ton code
car bon ton code devrait fonctionner quand meme normalement

tu peux placer un

Code :

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

msgbox "TEST"

dans ton code pour voir si le code est bien executé quand t'ouvres ton formulaire
bon courage

[ESVBA]

En général, ce n'est pas dans la procédure Form_Load() mais dans une 'Form_Current()" que l'on place ce genre de code. A moins que ce soit jusque pour compléter une champ par une nouvelle valeur.