Vider Textbox, Checkbox quand TextBox_change
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:
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 |
