Un pb pour mettre a blanc mes textbox dans un formulaire [Résolu]

kokquita 3 Messages postés samedi 28 mai 2005Date d'inscription 29 mai 2005 Dernière intervention - 28 mai 2005 à 22:51 - Dernière réponse : kokquita 3 Messages postés samedi 28 mai 2005Date d'inscription 29 mai 2005 Dernière intervention
- 29 mai 2005 à 12:54
Voila mon pb, depui s un bouton de mon formulaire j'aimerai remettre mes textbox à blanc, un genre de remise à zéro. J'ai fais un tour dans les forum et j'ai trouvé ce code :
Dim t As TextBox
For Each t in Controls (ou Me.Controls)
t.Text=""
Next t

mais voila j'ai un message de retour qui est :
Incompatiblité de Type. Je ne comprends pas du tout.
J'ai vraiment du mal à comprendre pourquoi il faut dire que je ne comprends pas trop ME. ??
Si qq1 peut m'aider je serai vraiment contant :)
Afficher la suite 

8 réponses

Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 28 mai 2005 à 23:28
+3
Utile
Dim obj As Object

For Each obj In Me.Controls

If TypeName(obj) = "TextBox" Then

obj.Text = ""

End If

Next


Daniel
Cette réponse vous a-t-elle aidé ?  
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 28 mai 2005 à 23:45
0
Utile
Bonsoir,



Private Sub Command1_Click()

Dim obj As Object

For Each obj In Me.Controls

If TypeName(obj) = "TextBox" Then

obj.Text = ""

End If

Next

End Sub



jpleroisse
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 28 mai 2005 à 23:47
0
Utile
Re,

Excuse Daniel, je rédigeais mon message pendant que tu postais



jpleroisse
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 29 mai 2005 à 00:24
0
Utile
il y a pas de mal.

puisque c'est ça je vais utiliser une autre méthode na !

en fait je l'ai pris de chez toi >> jpleroisse

ce que j'ai pas compris c'est l'erreur sur le Next avec l'exemple de kokquita.



Dim i As Integer

For i = 0 To Me.Controls.Count - 1

If (TypeOf Me.Controls(i) Is TextBox) Then

Me.Controls(i).Text = ""

End If

Next


Daniel
ScSami 1490 Messages postés mercredi 5 février 2003Date d'inscription 3 décembre 2007 Dernière intervention - 29 mai 2005 à 04:46
0
Utile
C'est rigolo ces deux techniques... Allez, dans la foullé, moi j'en propose encore un autre :



Texte1.Text = ""

Texte2.Text = ""

Texte3.Text = ""

Texte4.Text = ""

...



lol



Ah, faut bien le dire tout de même, le VB, c'est super!



(N.B. : Mon exemple n'est pas à prendre hein!!! C'était un ptit Joke!!!)
kokquita 3 Messages postés samedi 28 mai 2005Date d'inscription 29 mai 2005 Dernière intervention - 29 mai 2005 à 09:47
0
Utile
Merci a tous ca marche super, mais Me. qu'est que c'est vraiment?? j'ai du mal a le comprendre ca.... :(
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 29 mai 2005 à 10:44
0
Utile
Bonjour,



Me, c'es la Form, disons que c'est comme ci elle parlait



jpleroisse
kokquita 3 Messages postés samedi 28 mai 2005Date d'inscription 29 mai 2005 Dernière intervention - 29 mai 2005 à 12:54
0
Utile
Merci je comprends mieux :)
Je suis polus sur C# à la base Vba je m'y met de plus en plus, il me faut un ptit temps d'adaptation :) Sympas a tout ceux qui ont répondu, merci vraiment!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.