Discussion :

[walf80]

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 :

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

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

[ThierryAIM]

ou ça, l'erreur ?

[zazaraignée]

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.

[walf80]

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

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

[Le Pharaon]

Code :

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

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

[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.

[walf80]

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 :

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

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

[Delbeke]

Au lieu de

Code :

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

ctext.Value = ""

essaye

Code :

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

ctext = ""

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

[walf80]

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

[walf80]

Rebonjour, je vous donne le code :

Code :

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

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
26
27
28
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  :
	
Sélectionner tout -
	Visualiser dans une fenêtre à part
	
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

[zazaraignée]

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

Code :

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

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

[Le Pharaon]

@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 !

[walf80]

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