raffraichir un formulaire après une recherche

Bonjour,

j'ai cré un formulaire avec des zones de liste déroulantes et d'autres zones de listes non déroulantes pour faire une recherche.
Tout fonctionne bien à la première recherche, par contre je suis bloqué pour en faire une nouvelle. Je suis obligé de fermer le formulaire et de le réouvrir pour faire une autre recherche.
Je voudrai mettre un bouton de commande pour lancer une mise à zero de toutes les zones de liste déroulantes afin de lancer une nouvelle recherche.
Dans mon bouquin support de formation (je suis autodidacte) je ne vois pas de macro correspondant à mon besoin.
Pouvez-vous m'aider à trouver une solution.
merci
ormoy

Bonjour,
J'ai eu aussi ce besoin, alors moi j'ai fait comme ça :

Code:

---

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

Private Sub cmd_Filtre_Zero_Click() 'Remet le formulaire à 0   Dim ctl as Control   For Each ctl In Me.Controls 'Pour chaque controle dans les controles de mon formulaires Select Case Left(ctl.Name, 7) 'Quand les 7 premières lettres du nom du controle commencent par Case "ldc_IND" ' "ldc_IND" ctl.Value = "" ' Le controle est égale à vide (c'est ce qui marche avec les zone de liste) End Select Next ctl   f = "" ' le filtre du formulaire est vide   Me.Filter = f 'Applique le filtre Me.FilterOn = True   End sub

---

Pour la première partie, c'est une boucle qui permet de selectionner les controles 1 à 1, dans la mesure où ils commences par les 7 lettres définies et leur attribue une valeur "". Cela implique que toutes tes zones de liste commence par la même chaine de caractères.

Dans mon formulaire, ce même code est appliqué aussi aux cases à cocher et aux zones de texte, la chaîne de caractère de 7 lettres étant différente : Case à cocher : chk_IND et les zones de textes : txt_IND

La seconde partie remet le filtre du formulaire à zéro, tu récupères donc tous tes enregistrements.

J'ai mis ça sur un bouton...

Voilà, j'espère que ça pourra t'aider.

Grand merci pour ta réponse . Cà m'a l'air bienc omplexe poiur un débuttant mais je vais essayer de suivre ta requête.
ormoy

Si ça peut te rassurer, je suis autodidacte aussi...

ça a marché ?
Si oui --> résolu :wink:

Mes excuses pour ce retard de réponse mais je viens de me remettre à access.

Juste une question : je mets ce code sur un bouton de commande?
merci de ton aide

ormoy

Moi je l'ai mis effectivement sur un bouton de commande, évènement "sur clic"

après essai sur bouton :
message :
"erreur de compilation
variable non définie"

dans l'écran visual basic :
f="" est surligné.
j'ai essayé avec f=0 mais çà ne donne rien.
merci à+
ormoy

Oui effectivement, pour moi f est déclaré au début de mon code de formulaire tel que :

Code:

---

Dim f As String 'le filtre f est une chaine de caractère

---

Tu peux le mettre au dessous de

Code:

---

Dim ctl as control

---

[/code]

CA MAAARCHE!!!
grans merci Maludi
à+

Cool :D
Bonne continuation