Améliorer une liste déroulante

Version imprimable

Bonjour,

Mon problème est le suivant : je suis sur un formulaire indépendant . J'ai un sous-formulaire créé à partir d'une table employé.

Sur le formulaire principal, j'ai mis des objets listes déroulantes qui me permettent de filtrer le sous-formulaire. Voici un exemple du code :
Code:

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 Dim strFiltre As String 'Filtre sur la N° de service On Error Resume Next strFiltre = "" If Not IsNull(Me.FiltreParService) Then strFiltre = "([N__SCE]='" & Me.FiltreParService & "')" End If 'Filtre sur le CP/Ville If Not IsNull(Me.FiltreParCPVille) Then If strFiltre <> "" Then strFiltre = strFiltre & " AND " strFiltre = strFiltre & "([CP_VILLE]='" & Me.FiltreParCPVille & "')" End If 'Filtre sur la date If Not IsNull(Me.FiltreParDate) Then If strFiltre <> "" Then strFiltre = strFiltre & " AND " strFiltre = strFiltre & "([DATE_NAIS]=#" & Format(Me.FiltreParDate, "mm/dd/yyyy") & "#)" End If 'Filtrer le formulaire With Me.frmSaisiePersonnel.Form .Filter = strFiltre .FilterOn = True End With
Tout marche bien. Dans la liste déroulante qui m'affiche les n° de service, je voudrais rajouter quelquechose qui me permette de choisir d'afficher tous les services comprise entre 100 et 200 par exemple. Pour l'instant, je ne peux afficher que le service 100 mais pas une fourchette de service.
Le problème est que je ne veux pas systématiquement avoir à remplir un mini et un max (requête paramétrée). Desfois, je veux juste le service 100.

Est-il possible de faire quelquechose qui ressemble au filtre personnalisé d'excel ? Je choisirais dans ma liste déroulante non pas un service mais "personnaliser" qui m'ouvrirait une fenêtre afin que je puisse dire "je veux tous les services qui ont un n° compris entre 100 et 200".

Merci de votre aide.

07/02/2007, 15h10
loufab

Bonjour et bienvenue !

Tu peux toujours créer 2 controles et tester si le 2ème est rempli, dans ce cas là tu utilise la clause SQL Between. Dans le cas contraire une simple égalité.

Cordialement,

Merci pour le tuyau. Est-ce que ceci conviendrait ?

Code:

1
2
3
4
5
6
7
8
9
'Filtre sur la N° de service
On Error Resume Next
strFiltre = ""
If Not IsNull(Me.FiltreParService) Then
    If Not IsNull(Me.FiltreParService2) Then
    strFiltre = "([N__SCE]BETWEEN'" & Me.FiltreParService & " and " & Me.FiltreParService2 & "')"
    Else: stFiltre = "([N_SCE]='" & Me.FiltreParService & "')"
    End If
End If

07/02/2007, 15h49
loufab

ça m'a l'air tout bon.

Prévoir peut-être la suppression rapide du controle2 en cas d'interrogation multiple, il n'y a pas plus désagréable pour l'utilisateur d'être obligé de supprimer le contenu des controles.

Vu ton code je ne pense pas que tu ais du mal pour cela. ;)
07/02/2007, 15h52
fpecastaing

Ca a l'air tout bon mais ça marche que pour le premier. Il ne voit pas ce que je choisis dans le 2ème ..
07/02/2007, 16h06
loufab

Avec quelques espaces bien placé et sans les cotes en moins cela devrait fonctionner.

Code:

strFiltre = "([N__SCE] BETWEEN " & Me.FiltreParService & " and " & Me.FiltreParService2 & ")"

oups ! c'est du texte ton N_SCE ?
08/02/2007, 09h22
fpecastaing
Ok c'est ma faute. J'étais persuadé d'avoir le champ n°service en numérique et il était en texte. Tout marche bien désolrmais.

Merci beaucoup.

Et pour vider les chmaps tu préconises un bouton qui mettent :
Code:

1 2 FiltreParService = "" FiltreParService2 = ""
...

Ca va pas vider le contenu de la liste déroulante ?
08/02/2007, 09h33
loufab
Citation:
Envoyé par fpecastaing

Et pour vider les chmaps tu préconises un bouton qui mettent :

Code:

1 2 FiltreParService = "" FiltreParService2 = ""

...

Ca va pas vider le contenu de la liste déroulante ?
non pas de risque.

J'ai écrit ceci sur un bouton "tout afficher" :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Commande9_Click() 'Je désactive le filtre Me.frmSaisiePersonnel.Form.FilterOn = False 'Je mets les champs des listes déroulantes à blanc Me.FiltreParService = "" Me.FiltreParService2 = "" Me.FiltreParCPVille = "" Me.FiltreParDate = "" End Sub
Le fait d'enlever le filtre marche très bien. Les champs se mettent à blanc aussi.
Mais si je refais un filtre en choisissant un service, il m'affiche 0. Comme s'il n'y avait plus rien.
Il faut que je quitte le formulaire et que je refasse un filtre pour que ça marche, comme s'il rechargé le contenu des listes déroulantes, d'où ma question du dessus.

08/02/2007, 09h42
loufab

Essaye un me.requery à la fin de ta procédure d'annulation du filtre.

Cordialement,
08/02/2007, 11h53
fpecastaing

Non cela ne fonctionne pas, il me remet que des résultats équivalents à 0.8O