Bonjour,
Je rencontre une difficulté avec la mise en place de "case à cocher" dans un formulaire afin d'activer d'autres controles. Je me suis inspiré du tutoriel "recherche multi-critères".
Mon problème est à l'execution de ma procedure au chargement du formulaire ou je souhaite initialiser mes controles. Tout fonctionne pour les controles autres que ceux "des cases à cocher" dont le nom commence par "chk".
Dans mon code j'utilise une variable objet "ctrl" (pour mes controles). Voici un exemple de mon code
L'erreur apparait donc au chargement avec ce type de message : "Erreur execution '438' " "Propriété ou méthode non gérée par cet objet".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Private Sub Form_Load() Dim ctrl As Control For Each ctrl In Me.Controls Select Case Left (ctrl.Name, 3) Case "chk" ctrl.Value = -1 ' meme avec la valeur= 0 ca ne marche pas Case "cmb" ctrl.Visible = False End Select Next ctrl End Sub
J'ai essayé plusieurs tentatives sans résultat... Avez vous une idée pour résoudre cette erreur (je voudrais si possible conserver le "For Each " et le "Select Case"...) Je vous remercie pour votre précieuse aide
Partager