Discussion :

[hawai08]

Bonjour,

Je suis nouvelle parmi vous. Je suis entrain de réaliser un travail access. Dans un formulaire, je dois créer un bouton "effacer tout". Il est créer mais il ne fonctionne pas. Commen dois-je m'y prendre. Merci

[Jeannot45]

Bonjour et bienvenue sur le forum

Peux tu apporter quelques précisions. Si tu veux avoir une aide efficace soit la plus précise possible dans ton besoin.

Tu veux effacer quoi ?
Tes données sont issues de quelle source ? - autrement dit, le fait de cliquez sur "effacer tout" supprime-t-il l'enregistrement courant ?

[hawai08]

Oki!

En fait il s'agit d'un formulaire permettant de faire une recherche dans une table. Le formulaire contient plusieurs champs (nom, titre, auteur,etc)
C'est à l'utilisateur de compléter le champs désiré pour lancer la recherche, et pour lui faciliter la recherche suivante, j'aimerai un bouton "effacer tout" pour remettre à 0 les champs complétés précédemment, ce qui n'effacerai rien dans la table bien entendu.

En gros donc je voudrai un bouton "reset"

[Demco]

Il est créer mais il ne fonctionne pas.

Montre nous le code qui actuellement est derrière le bouton et qui ne marche pas afin de voir ce qui cloche.

[hawai08]

En mode création, j'ai ajouté le bouton, l'assistant se lance, mais j'ai beau chercher, rien ne correspond à ce que je désire faire... Théoriquement ca devrait être une action sur le formulaire, mais aucune action ne correspond.

[Demco]

Il faut que tu écrives le code toi même.
Sur l'événement click du bouton tu dois mettre :

Code :

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

1
2
3
zonedeTexte1 = ""
zonedeTexte2 = ""
...

Si tu as beaucoup de zones de texte tu peux mettre en place des astuces comme faire débuter tous les noms des zones de texte à effacer par "txtCritRech_" et ainsi sur le click du bouton effacer tu peux parcourir les contrôle du formulaire (cf. FAQ), et si le nom du contrôle commence par "txtCritRech_", tu l'effaces. Bon ... je ne pense pas qu'il soit utile d'en venir là mais je voulais juste que tu saches que c'est possible.

En espérant t'aider.

[Invité]

Bonjour

Tu peux rajouter ce type de code sur le click de ton bouton

Code :

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

1
2
3
4
5
6
Dim Ctrl as Control
For Each Ctrl in Me.Controls
     If TypeOf Ctrl is Textbox Then
          Ctrl.value = ""
     End If
Next Ctrl

Le principe est parcourir l'ensemble des contrôles de ton formulaire, et de les vider si ce sont des textbox.

Starec

[hawai08]

J'ai essayé ceci:

mode création du formulaire, clique droit sur le bouton, propriété, sur clic:
[RTitre]="" & [RAuteur]="" & [REdition]="" & [RCategorie]=""

>> Access m'affiche que la macro n'existe pas :/

j'ai alors essayé:
=[RTitre]="" & [RAuteur]="" & [REdition]="" & [RCategorie]=""

>> et la rien ne se passe ^^"

[hawai08]

Bonjour

Tu peux rajouter ce type de code sur le click de ton bouton

Code :

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

1
2
3
4
5
6
Dim Ctrl as Control
For Each Ctrl in Me.Controls
     If TypeOf Ctrl is Textbox Then
          Ctrl.value = ""
     End If
Next Ctrl

Le principe est parcourir l'ensemble des contrôles de ton formulaire, et de les vider si ce sont des textbox.

Starec

Voilà je viens d'essayer ta méthode, et ca fonctionne direct! Maintenant si j'ai une liste déroulante pour la catégorie (mon 4ème et dernier champ), je peux rajouter un "or" ou un "else if" à ton code pour qu'il remette la liste déroulante vide?

Edit: pas vider la liste, mais repositionner sur le choix "vide" ^^

Merci pour votre aide!

[Invité]

Re

Oui, essaye de changer la ligne

Code :

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

If TypeOf Ctrl is Textbox Then

en

Code :

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

If TypeOf Ctrl is Textbox or TypeOf Ctrl is ComboBox Then

Starec

[hawai08]

Ca marche super merci!

[Invité]

Heureusement, je l'applique tout le temps.

Si cela te convient pense à cliquer sur le bouton

Starec