Effacement d'une form

Bonjour je voudrai savoir comment on pourrai faire pour effacer tous les champs d'une form un fois appuyer sur un bouton...

Pour l'instant j'ai ce code là

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub cmdvalid_Click() Dim Repaffichage Dim ctext As Control Repaffichage = MsgBox("Souhaitez-vous ajouter une autre pièce", vbYesNo + vbQuestion, "Ajout d'une pièce") If Repaffichage = vbYes Then   For Each ctext In Me.Controls If ctext.Name Like "txt_*" Then ctext.Value = "" End If Next   Saisie.Show   Else If Repaffichage = vbNo Then Total.Show End If End If End Sub

---

Et alors ça me mets un message d'erreur Application error

ou ça, l'erreur ?

Salut
Dans la boucle tu teste si le contrôle de la collection est de type TextBox avec la fonction TypeOf. Si oui, tu efface le contenu.

Non je demande d'effacer tous les champs qui commence par "txt_"

Mes champs sont appelés ainsi txt_larg, txt_haut...etc

Code:

---

1 2 3 4 5 6

Dim c as control For Each c In nomFormulaire.Controls If Left(c.Name, 4) = "txt_" Then c.text="" End If Next

---

d'ordinaire, quand on préfixe les noms de champs c'est pour savoir de quel type il sont quand on les programme... ?? J'avais donc conclu que txt_quelquechose était un textBox.

Citation:

---

Envoyé par zazaraignée

d'ordinaire, quand on préfixe les noms de champs c'est pour savoir de quel type il sont quand on les programme... ?? J'avais donc conclu que txt_quelquechose était un textBox.

---

:D Oui c'est bien vu. C'est ton idée de TypeOf qui m'a influencé.
Je reédite alors

Ouille, escuse alors, Toutankhamon. ;)

Je m'adressais Walf.

Citation:

---

Dim c as control
For Each c In nomFormulaire.Controls
If Left(c.Name, 4) = "txt_" Then
c.text=""
End If
Next

---

est égal (je veux dire que celà mets la même erreur) sur la ligne
For each ... In ...

Code:

---

1 2 3 4 5 6 7

Dim ctext AS control For Each ctext In Me.Controls If ctext.Name Like "txt_*" Then ctext.Value = "" End If Next

---

Je n'ai pas que des textbox, j'ai aussi 3 combobox dont les noms sont txt_blabla

Au lieu de

Code:

---

ctext.Value = ""

---

essaye

Code:

---

ctext = ""

---

Avec cette version, c'"est la priopriété par defaut du composant qui est remis a blanc.

Citation:

---

Au lieu de ctext.Value = "" essaye
ctext = ""

---

Oui je veux bien mais j'ai déjà essayé Delbeke merci
ça me met toujours la même erreur qui est :

An error was encountered while running this program: Object doesn't support this property or method

Citation:

---

Je n'ai pas que des textbox, j'ai aussi 3 combobox dont les noms sont txt_blabla

---

Utilise la fonction TypeOf alors

Rebonjour, je vous donne le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub cmdvalid_Click() Total.tot.Text = txt_tot.Text Dim Repaffichage Repaffichage = MsgBox("Souhaitez-vous ajouter une autre pièce", vbYesNo + vbQuestion, "Ajout d'une pièce") If Repaffichage = vbYes Then Code: 123456 Dim ctext AS control For Each ctext In Me.Controls If ctext.Name Like "txt_*" Then ctext.Value = "" End If Next Total.nom_p.AddItem Saisie.txt_Compie.Text Total.tot.AddItem Saisie.txt_tot.Text Saisie.Show Else If Repaffichage = vbNo Then Total.nom_p.AddItem Saisie.txt_Compie.Text Total.tot.AddItem Saisie.txt_tot.Text Total.Show End If End If End Sub

---

Donc voilà ça donerai mais ça ne marche pas, pourquoi?
La fonction typeOf L se met à la place de quelle ligne...

merci en Attente de votre réposne

Regarde bien car je crois que c'est la dernière fois qu'on le répète

Code:

---

1 2 3 4 5 6 7 8

Dim t As Control For Each t In Me.Controls If TypeOf t Is TextBox Then If Left(t.Name, 4) = "txt_" Then t.Text = "" End If End If Next

---

@walf80 tu as déjà quelque chose qui marche avec les textbox, ce qui est largement suffisant pour y aller à fond. Faut apprendre à être autonome quand même.

A bientôt !

Bon je ne veux pas paraître pour un idiot mais ça ne marche pas dsl mais bon laissez tomB c'est pas grave...