Discussion :

[jazzybluesy]

Bonjour,

Tres urgent, je vous serai infiniment reconnaissant si vous m aidiez. Comment fait on pour boucler sur les checkbox d un formulaire access et savoir si elles sont cochees ?

J ai ca pour l instant :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim ctrl AS Control
 
For Each ctrl In Me.Controls
     If TypeName(ctrl) = "CheckBox" Then
          If Me.Controls(ctrl.Name).value = "Yes" then 'malheuresement ca ne marche pas la
          End If
     End If
Next ctrl

La premiere partie marche, mais apres quand je veux la valeur impossible de l avoir.
Merci bcp d avance.

[Invité]

Bonjour

Essayes avec True

Code :

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

If Me.Controls(ctrl.Name).value = True

Philippe

[Maxence HUBICHE]

la valeur d'une case à cocher est numérique (la plupart du temps booléenne, malgré quelques inepties d'interface autorisées).


La règle à retenir sur Access est que :

• FALSE= 0
• TRUE= NOT FALSE

teste avec un booléen plutôt qu'avec un string !


[Edit = Grilled by Philippe...]

[jazzybluesy]

Bon en fait on ne peut pas utiliser Controls(Nomduncontrole), par contre on peut directement utiliser ctrl.value
Ce que je n avais pas essaye parce qu il apparaissait pas dans les propositions automatiques.

Du coup

Code :

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

1
2
3
4
5
6
7
For Each ctrl In Me.Controls
   If TypeName(ctrl) = "Checkbox" Then
       If ctrl.Value = -1 Then 'checked
           'Code
       End If
   End If
Next ctrl

Modificiation : autant pour moi on peut aussi utlisier Me.Controls(Nomducontrole)

[Maxence HUBICHE]

Modification : autant pour moi on peut aussi utlisier Me.Controls(Nomducontrole)

Oui.
Je pense que le fait que ça parche maintenant est qu'au lieu d'utiliser "YES" (du string) du utilises -1 (du numérique)