Discussion :

[popo68]

Bonjour à tous !

J'aimerais savoir si quelqu'un connait une petite function qui me permet, par exemple sur un bouton de commande, d'effacer tout les champs textes d'un formulaire ?
je pourrais passer par des < texte1 = "" > <etc...>
Mais j'en ai beaucoup, et je voudrais savoir si y a pas plus simple ?

Merci d'avance pour votre aide !

[random]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub RAZ_Click()
Dim v As Control
Dim u As Variant
For Each v In Me.Controls
If v.Properties("controltype") = 109 Then
v = ""
End If
Next v
End Sub

[popo68]

Merci à toi random, c'est exactement ca ! Merci

juste une précision, comment je peux savoir que tel ou tel objet à un controleType de tel ou tel nombre ?

[random]

en mode module tu ouvres l'explorateur d'objet et tu tapes controltype
tu verras le contenu de l'énumérateur
il suffit de cliquer sur la constante actextbox pour voir sa valeur
Const acTextBox = 109 (&H6D)

[popo68]

oki merci pour ton aide, et pour les précisions

a+