Discussion :

[ormoy28]

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

[Maludi]

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

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

[ormoy28]

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

[Maludi]

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

[Maludi]

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

[ormoy28]

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

[Maludi]

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

[ormoy28]

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

[Maludi]

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

Code :

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

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

Tu peux le mettre au dessous de

Code :

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

Dim ctl as control

[/code]

[ormoy28]

CA MAAARCHE!!!
grans merci Maludi
à+

[Maludi]

Cool
Bonne continuation