[AC-2007] Double filtre liste déroulante

[theuma]

Bonjour,
j'aimerais filtrer une liste déroulante sur 2 critères.
la première: une autre liste déroulante
la deuxième : une case a cocher dans le formulaire
Voici le code que j'ai mis dans la liste déroulante:

Code SQL :

1
2
3
4
5
6
7
SELECT IIF (Forms!ConsulCommande!Cocher28=false ,
EXISTS(SELECT Commande.ID_Commande, Commande.Date, Commande.Numero
 FROM Commande
WHERE Commande.FK_SousTraitant=Forms!ConsulCommande!Modifiable13),EXISTS(SELECT Commande.ID_Commande, Commande.Date, Commande.Numero
FROM Commande WHERE 
Commande.FK_SousTraitant=Forms!ConsulCommande!Modifiable13 AND Validation =true)) 
FROM Commande;

Le problème c'est que ca ne fonctionne pas ...
J'ai bien mis un refresh et un requery

Pour plus de détails:
dans ma table commande j'ai :
ID_Commande
FK_SousTraitant
Date
Numero
FK_Operateur
Validation
et dans mon formulaire j'ai une liste déroulante qui m'affiche le sous traitant
et la liste déroulante ou j'ai mis mon code dois afficher la date et le numéro de commande
si la case et coché il ne m'affiche que les commande non validé voila
merci de votre aide !!

[theuma]

J'ai trouvé la solution, au lieu de le faire directement en mode SQL sur la liste déroulante je passe en VB avec ce code la :

Code :

1
2
3
4
5
6
7
8
If Cocher28.Value = True Then
Me.Modifiable15.RowSource = "SELECT Commande.ID_Commande, Commande.Date, Commande.Numero FROM Commande WHERE Commande.FK_SousTraitant=Forms!ConsulCommande!Modifiable13 AND Commande.Validation =false"
Else
Me.Modifiable15.RowSource = "SELECT Commande.ID_Commande, Commande.Date, Commande.Numero FROM Commande WHERE Commande.FK_SousTraitant=Forms!ConsulCommande!Modifiable13"
End If
Me.Refresh
Me.Requery
End Sub

Je ne trouvais l'option qui mettais le contenu d'un modifiable en VBA

[ClaudeLELOUP]

Bonjour,

Je procèderais comme ceci :

- ouvrir le formulaire ;
- créer une requête qui me donne la liste souhaitée. Pour les critères de sélection (par exemple, la case à cocher) utiliser l’assistant pour construire la référence, qui aura une forme qui ressemble à :

Code :

Formulaires!NomDuFormulaire!NomDuContrôle

- vérifier le fonctionnement de la requête en modifiant les champs concernés dans le formulaire, pour tester.

Quand cette requête est au point, copier son sql dans la propriété « Contenu » de la zone de liste.

Repérer dans l’utilisation du formulaire, tous les événements susceptibles de modifier la liste (ex Après Mise à Jour de la case à cocher) et leur associer le rafraîchissement de la liste

Code :

Me.NomDeLaZoneDeListe.Requery

[theuma]

Effectivement ceci pourrait alléger un peu le VBA, merci beaucoup...

[theuma]

Le problème c'est que je ne peut avoir qu'une seule liste, alors que la il m'en faut bien 2 ... Donc cette solution ne me donne pas le résultat que je souhaite !