Discussion :

[r.sandrine]

Bonjour

J'ai une base qui me permet de gérer des commandes chez des fournisseurs, je souhaiterai créer un état de ces commandes, avec toutes les commandes ou seulement chez 1 fournisseur

je souhaite donc
- créer une requête de regroupement de mes commandes avec regroupement sur les fournisseurs
- créer une liste de déroulante reprenant ces fournisseurs
- faire un état avec cette liste déroulante à l'ouverture afin de choisir le fournisseur souhaité

Mais je sèche sur la 2e étape, en effet je souhaiterai que le premier choix soit de reprendre tous les fournisseurs et ensuite de lister tous les fournisseurs issus de la requête de regroupement.

Comment puis je faire celà ? avec vous des exemples ?

Merci
Sandrine

[ClaudeLELOUP]

Bonjour Sandrine,

J’ai compris ceci :

1re étape : tu as une requête qui te donne tous les fournisseurs pour lesquels tu as au moins une commande ;
2e étape : tu voudrais que ces fournisseurs apparaissent dans une liste déroulante d’un formulaire ;
3e étape : lorsque l’utilisateur choisit un fournisseur dans la liste, tu voudrais déclencher la confection d’un état avec les données de ce fournisseur.

Est-ce ça ton but ?

[r.sandrine]

oui c'est celà, j'ai réussi à faire la liste déroulante avec les fournisseurs et ouvrir l'état en fonction du fournisseur
J'ai réussi également à ajouter [TOUS] en haut de la liste déroulante, mais quand je clique dessus mon état est vide.

Que dois je rajouter pour que ça marche et que ça prenne tous les fournisseurs de la liste si je choisis [TOUS] ?

Voici le code du contenu de la liste déroulante :

SELECT A.Fournisseur
FROM (SELECT B.Fournisseur, 1 AS IndexTri FROM rqtCommandesFournisseurs AS B
Union
SELECT TOP 1 "[Tous]", 0 FROM rqtCommandesFournisseurs AS C) AS A
ORDER BY A.IndexTri, A.Fournisseur

et le code sur évènement de cette liste :

Private Sub Modifiable0_AfterUpdate()
'Si l'état est déjà ouvert.....
If CurrentProject.AllReports("rptEtatCommandesFournisseur").IsLoaded = True Then
'...alors je le ferme en premier
DoCmd.Close acReport, "rptEtatCommandesFournisseur"
'Sinon, j'ouvre simplement mon état.
End If
DoCmd.OpenReport "rptEtatCommandesFournisseur", acPreview, , "Archive = 0 And RèglementTotal = 0 And [FOURNISSEUR]='" & Nz(Me![Modifiable0], "") & "'"
End Sub

Merci
Sandrine

[r.sandrine]

C'est bon j'ai réussi, je ne sais pas si c'est la meilleure méthode mais j'ai rajouté un If dans le code de l'évènement

Merci
Sandrine

[ClaudeLELOUP]

Sans connaitre les détails, ceci me semble plus correct.

Code :

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

1
2
3
4
5
 
's'il est ouvert, je le ferme
If CurrentProject.AllReports("rptEtatCommandesFournisseur").IsLoaded = True Then DoCmd.Close acReport, "rptEtatCommandesFournisseur"
'Dans tous les cas, j'ouvre simplement mon état.
DoCmd.OpenReport "rptEtatCommandesFournisseur", acPreview, , "Archive = 0 And RèglementTotal = 0 And [FOURNISSEUR]='" & Nz(Me![Modifiable0], "") & "'"