Discussion :

[Dixye31]

Bonjour,
J'ai créé un formulaire avec une liste déroulante contenant des valeurs (1, 2, 3, etc) et souhaite imprimer un même état mais avec des requêtes différentes en source.
Je souhaiterais par exemple que si '1' est sélectionné, l'état se lance sur la requête 1 pour impression pdf.
Si 2, même état mais avec la requête 2, etc.
Est-ce que cela est possible à traduire en VBA ? Ou faut-il le raisonner différemment?
Merci à vous
Bonne soirée

[tee_grandbois]

bonsoir,
une possibilité: sur l'évènement "Sur ouverture" de l'état , il faut tester la valeur de la liste déroulante (LstReq) du formulaire (Form1):

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Report_Open(Cancel As Integer)
select case Forms("Form1").LstReq
case "1"
    Me.RecordSource = "Requete1"
case "2"
    Me.RecordSource = "Requete2"
case "3"
    Me.RecordSource = "Requete3"
end select
End Sub

autre possibilité, toujours sur l'évènement "Sur ouverture", on pourrait aussi utiliser OpenArgs pour passer en paramètre le nom de la requête (si jamais la liste déroulante contenait les noms):

Code :

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

1
2
3
If Not IsNull(Me.OpenArgs) Then
Me.RecordSource = Me.OpenArgs
End If

et ouvrir l'état depuis le formulaire comme ceci:

Code :

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

DoCmd.OpenReport "Etat1", acViewPreview, , , , Me.LstReq

[Dixye31]

Merci beaucoup ça fonctionne parfaitement 😁👍

[tee_grandbois]

bonsoir,
super ...
n'oublie pas de passer la discussion en:

[Dixye31]

Comment on passe en mode résolu ?

[tee_grandbois]

il faut prendre le temps de lire les règles du forum de temps en temps.
C'est en bas à gauche de la page lorsque tu réponds à la discussion (du moins je suppose, n'ayant jamais créé de discussion ...)

[Dixye31]

Merci. Je regarderai lorsque je me reconnecterai sur le pc car sur le téléphone : pas de bouton résolu.
Merci encore bonne soirée ^^

[tee_grandbois]

sur le téléphone : pas de bouton résolu.

c'est fort possible