Discussion :

[Zak Blayde]

Bonjour,

Je voudrais faire en sorte que la source de mon état change en fonction de la sélection faite dans une liste déroulante.
J'ai une liste déroulante contenant différents noms de champ, et en fonction de la sélection, le recordsource serait changé en utilisant cette sélection. J'ai ce début de code mais je ne sais pas comment encadrer ma variable pour le le code soit correct :

Code :

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

1
2
3
4
5
6
 
Private Sub btn_etat_PL_Click()
    variable$ = Me![Modifiable_PL]
    DoCmd.OpenReport "3-lignePL", acViewPreview
    Me.RecordSource = "Select * FROM REVIVAL WHERE [ligne P&L] =" variable";"    
End Sub

Ca ne marche pas comme ça et je cherche donc la syntaxe pour intégrer ma variable dans la requête.

[Gary_Stoupy]

bonjour,

alors tout dépend du type de ta variable...
Ca doit surment être un string donc il faut que tu écrive ca comme suit :

Code :

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

1
2
 
Me.RecordSource = "Select * FROM REVIVAL WHERE [ligne P&L] = '" & variable & "'"

Normalement cela devrait fonctionner.
Tu n'as pas besoin du ; normalement non plus

[Zak Blayde]

j'essaie.

Sinon j'ai essayé ça :

Code :

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

DoCmd.OpenReport "3-lignePL", , , "[ligne P&L] =" & Me![Modifiable_PL]

Mais ça ne fonctionne pas...

[Zak Blayde]

J'ai essayé avec le code que tu m'as donné, pas d'erreur affichée mais le record source n'est pas modifié bizarrement.
Le code complet, c'est ça :

Code :

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

1
2
3
4
5
Private Sub btn_etat_PL_Click()
    variable$ = Me![Modifiable_PL]
    DoCmd.OpenReport "3-lignePL", acViewPreview
    Me.RecordSource = "Select * FROM REVIVAL WHERE [ligne P&L] = '" & variable & "'"
End Sub

[Gary_Stoupy]

pour ouvrir un état (enfin dans mon cas pour l'imprimer) j'utilise ca :

Code :

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

DoCmd.OpenReport "MonEtat", acViewNormal, SOURCE

avec SOURCE qui est une variable de type string qui contient ma requete SQL.
Et voila

[Zak Blayde]

Je ne comprend pas pourquoi

Code :

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

variable$ = Me![Modifiable_PL]

me renvoie le numéro de position du texte choisi dans la liste au lieu de me donner le texte lui-même..
Tu saurais comment changer ça ?

[Gary_Stoupy]

ton but est simplement que l'état s'ouvre en fonction de la sélection faite. C'est-à-dire que tu sélectionne ce que tu veux, et après tu clique sur un bouton qui ouvre ton état...
Alors tentes ma solution :

DoCmd.OpenReport "MonEtat", acViewNormal, "Select * FROM REVIVAL WHERE [ligne P&L] = '" & variable & "'"

Dans ton état, tu lui as mis que la source de l'état était la table REVIVAL ?

[Zak Blayde]

oui.

C'est bien ce code que j'ai mis mais mon souci c'est que le résultat de "variable", c'est par exemple "8", au lieu de "FG Fixed" car celui-ci est en 8e position dans la liste.
Je pense que l'erreur vient de l'initialisation de variable qui n'est pas correcte.

[Oleff]

Si tu as une colonne cachée dans ta liste, tu peux y accéder par Me.taListe.Column(1)
Me.taListe te renvoie la valeur de la colonne 0 (qui peut être masquée)

[Zak Blayde]

Code :

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

1
2
3
4
5
Private Sub btn_etat_PL_Click()
    variable$ = Me.[Modifiable_PL].Column(1)
    Debug.Print variable
    DoCmd.OpenReport "3-lignePL", acViewPreview, "SELECT * FROM REVIVAL WHERE [ligne P&L] = '" & variable & "'"
End Sub

impeccable, merci Gary, merci Oleff !