Discussion :

[marsupilami34]

Bonjour,

Je suis en train de réaliser une instruction for ... Each qui doit me permettre de verifier chaque checkbox dans mon formulaire, mais j'ai le message d'erreur suivant :

Incompatibilité de type

Le code que j'ai utilisé est le suivant :

Code :

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

1
2
3
4
5
6
 
    Dim chk As CheckBox
    For Each chk In Form.Controls
        chk.Enabled = False
        chk.Value = False
    Next

Quelq'un pourrait m'aider ?

Par avance merci.

Marsup

[Jean-Philippe André]

bonjour,
tu dois avoir un élément controls si tu fais

Code :

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

each ... in Form.controls

tu peux tester le type du controls sinon

[marsupilami34]

Et pour tester le type de controle on fait comment ?

[Jean-Philippe André]

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_AfterUpdate()
Dim i As Control
dim result as boolean
result= false
For Each i In Me.Controls
If i.ControlType = acTextBox and not result Then
msgbox "pioupi \o/"
result = true
End If
if not result then
msbox "rohlala /o\"
end if
End Sub

[marsupilami34]

Merci bcp...
Ca marche niquel..