Bonjour,

J'aimerai vider les TextBox ainsi que les checkbox quand il y a TextBox Change, j'ai reussi à faire pour les TextBox, mais je n'arrive pas pour les Checkbox.

Merci de l'aide,

ci-dessous le code utilisé pour vider les textbox.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim Ctrl As Control
 
'vide les champs (TextBox et ComboBox) sauf le TextBox servant à la recherche
For Each Ctrl In Me.Controls
 
    If Ctrl.Name <> "TextBox-Test" Then
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    End If
 
Next