Discussion :

[mgascult]

Bonjour à Tous,

J'ai un formulaire qui contient 8 sous formulaires



Je souhaiterai au clic sur un bouton réinitialiser tous les contrôles afin de les vider pour une nouvelle saisie.
J'ai tenté le code ci-dessous mais il ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub but_refresh_forms_Click()
 
For Each ctl In Me.Controls 'cette procédure efface la totalité du contenue des champs (controles)
    If ctl.ControlType = acTextBox Then
        ctl.Value = ""
    End If
Next
 
End Sub

Je penses qu'il en faut plus mais je sèche

Merci pour votre aide.

[hyperion13]

Salut
Dans un module standard

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
Public Function ToutVider(frm As Form)
Dim ctrl As Control
Dim i As Integer
 
For i = 0 To frm.Count - 1
    Set ctrl = frm(i)
        Select Case ctrl.ControlType
            Case acTextBox
                ctrl = ""
            Case acOptionGroup, acComboBox, acListBox
                ctrl = Null
            Case acCheckBox
                ctrl = False
        End Select
Next i
End Function

et sur le btn de commande

Code :

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

1
2
3
4
5
6
Private Sub ToutVider_Click()
Call ToutVider(Me)
Call ToutVider(Me!sform1.Form)
Call ToutVider(Me!sform2.Form)
...
End Sub

[mgascult]

merci hyperion13,

Je viens de faire le test, j'ai un code erreur.


sur la ligne en jaune



J'ai supprimé la variable "Public ctrl as Control" de peur quelle fasse doublon avec le module mais même code erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub but_refresh_forms_Click()
 
Call ToutVider(Me)
Call ToutVider(Me!SF_ML.Form)
Call ToutVider(Me!SF_CAF.Form)
Call ToutVider(Me!SF_H24.Form)
Call ToutVider(Me!SF_SF_NDF.Form)
Call ToutVider(Me!SF_PM.Form)
Call ToutVider(Me!SF_SF_A7.Form)
Call ToutVider(Me!SF_MKD.Form)
Call ToutVider(Me!SF_RLM.Form)
End Sub

[dodo28]

bonjour,

Code :

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

call M_toutvider.toutvider(me)

par exemple

[hyperion13]

Re,
Il semblerait qu'il y ait un ou des objets (textbox ou autre) qui ne soient pas indépendant !
Dans ce cas on les TAG pour les exclure du Reset.

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
Public Function ToutVider(frm As Form)
Dim ctrl As Control
Dim i As Integer
 
For i = 0 To frm.Count - 1
    Set ctrl = frm(i)
        If ctrl.Tag <> "NoReset" Then ' Propriétés - Autres - Remarque
            Select Case ctrl.ControlType
                Case acTextBox
                    ctrl = ""
                Case acOptionGroup, acComboBox, acListBox
                    ctrl = Null
                Case acCheckBox
                    ctrl = False
            End Select
        End If
Next i
End Function

[mgascult]

Merci dodo28, j'ai testé car logique aussi selon moi mais j'avais un autre message d'erreur

Merci hyperion13 j'ai modifié le code mais même message d'erreur sur la même ligne 10

[mgascult]

Bonjour à Tous,

Je viens de relance le code mais toujours le meme message

merci hyperion13,

Je viens de faire le test, j'ai un code erreur.


sur la ligne en jaune



J'ai supprimé la variable "Public ctrl as Control" de peur quelle fasse doublon avec le module mais même code erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub but_refresh_forms_Click()
 
Call ToutVider(Me)
Call ToutVider(Me!SF_ML.Form)
Call ToutVider(Me!SF_CAF.Form)
Call ToutVider(Me!SF_H24.Form)
Call ToutVider(Me!SF_SF_NDF.Form)
Call ToutVider(Me!SF_PM.Form)
Call ToutVider(Me!SF_SF_A7.Form)
Call ToutVider(Me!SF_MKD.Form)
Call ToutVider(Me!SF_RLM.Form)
End Sub

[hyperion13]

re,
Je vais me répéter, vous avez parmi tous vos objets un objet qui n'est pas indépendant !

[mgascult]

désolé, je vais voir

j'ai aussi des boutons, groupes d'options et listes déroulantes

[tee_grandbois]

bonjour,
c'est un contrôle de type Textbox qui génère l'erreur
ajoute cet espion: debug.? frm.name & " / " & ctrl.name au début de ta boucle de manière à donner les noms du formulaire et du contrôle qui génère l'erreur ensuite on pourra regarder de quoi il s'agit.

[mgascult]

Bonjour à tous,

merci tee_grandbois,

ça ne fonctionne pas, bloque sur la ligne 7 "erreur 91 Variable objet ou variable de bloc With non définie"

pourtant frm et ctrl sont bien déclarés

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
Public Function ToutVider(frm As Form)
Dim ctrl As Control
Dim i As Integer
 
 
For i = 0 To frm.Count - 1
Debug.Print frm.Name & " / " & ctrl.Name
    Set ctrl = frm(i)
        If ctrl.Tag <> "NoReset" Then ' Propriétés - Autres - Remarque
            Select Case ctrl.ControlType
                Case acTextBox
                    ctrl = ""
                Case acOptionGroup, acComboBox, acListBox
                    ctrl = Null
                Case acCheckBox
                    ctrl = False
            End Select
        End If
Next i
End Function

[ONTAYG]

Bonjour,

Je ne comprends pas d''abord cette ligne

Code :

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

For i = 0 To frm.Count - 1

Tu veux le comptes de formulaire ? Mais tu n'en passes qu'un en paramètre.

De plus

Code :

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

Set ctrl = frm(i)

Tu affectes à une variable objet Control un formulaire ????

ONTAYG

[mgascult]

perso je suis loin d'avoir toutes les compétences d'où ma demande d'aide et dont je renouvelle encore mes remerciements.

J'ai un formulaire "F_fond" qui contient 8 sous_formulaires Tous contiennent des contrôles indépendants.

Le souhait est de pouvoir effacer toutes les données saisies ou importées suite à une erreur.
Et en écrivant ces lignes, je penses que ce qui pourrait poser un souci est une liste déroulante qui est basée sur une requête de sélection

[ONTAYG]

Re

Je pense que tu devrais lire ce tuto : https://loufab.developpez.com/tutori...pelformulaire/

Il te donnera toutes les syntaxes pour accéder aux sous-formulaires et aux contrôles de ceux-ci.

ONTAYG

[mgascult]

merci ONTAYG, je vais regarder cela.

[hyperion13]

Salut
Dans le form principal frm_ML il y a 8 subform !

Bonjour,
Je ne comprends pas d''abord cette ligne

Code :

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

For i = 0 To frm.Count - 1

ONTAYG

[ONTAYG]

Autant pour moi

[tee_grandbois]

ça ne fonctionne pas, bloque sur la ligne 7 "erreur 91 Variable objet ou variable de bloc With non définie"
pourtant frm et ctrl sont bien déclarés

déclaré mais pas défini pour ctrl, il faut mettre le Debug en début de boucle mais après l'instruction Set ctrl = frm(i) car c'est là qu'il est défini

@ ONTAYG:
pour la boucle : For i = 0 To frm.Count - 1 la syntaxe est correcte car Count désigne ici par défaut le nombre de contrôles dans un formulaire (car le Count de Form n'est pas le même que celui de Forms qui donne le nombre de formulaires de la collection des formulaires)

[ONTAYG]

pour la boucle : For i = 0 To frm.Count - 1 la syntaxe est correcte car Count désigne ici par défaut le nombre de contrôles dans un formulaire (car le Count de Form n'est pas le même que celui de Forms qui donne le nombre de formulaires de la collection des formulaires)

Exact, c'est ce qui m'avait induit en erreur

[mgascult]

Merci tee_grandbois,

effectivement je n'y ai pas pensé

Malgré l'avoir bien placé, je reviens avec l'erreur 2448 sur le ligne "ctrl = "".
Et pas d'arrêt ou d'info sur le contrôle qui fait défaut

Par contre j'ai remarqué que le code Debug.? est remplacé automatiquement par Debug.Print

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
Public Function ToutVider(frm As Form)
Dim ctrl As Control
Dim i As Integer
 
 
For i = 0 To frm.Count - 1
    Set ctrl = frm(i)
    Debug.Print frm.Name & " / " & ctrl.Name
        If ctrl.Tag <> "NoReset" Then ' Propriétés - Autres - Remarque
            Select Case ctrl.ControlType
                Case acTextBox
                    ctrl = ""
                Case acOptionGroup, acComboBox, acListBox
                    ctrl = Null
                Case acCheckBox
                    ctrl = False
            End Select
        End If
Next i
End Function