Discussion :

[pleasewait]

Bonjour,

J'ai besoin de votre aide car je voudrais pouvoir avoir un état sur un formulaire sur lequel j'ai appliqué un filtre.
Je sais actuellement sortir un état sur l'enregistrement courant d'un formulaire.
Egalement sur la totalité des enregistrements d'un formulaire.
Mais pas sur une partie des enregistrements filtrés depuis un formulaire.

J'espère avoir été assez clair dans mes explications pour que vous puissiez m'aider.

Merci pour votre aide.

[stéphane_ais2]

Bonjour,

Il suffit d'appliquer une condition à la méthode 'OpenReport' équivalant à la clause 'Where' d'une instruction SQL.
Par exemple :

Code :

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

1
2
 
DoCmd.OpenReport "NomEtat", acViewPreview, , "[NuméroFiche] = " & [NuméroFiche]

SE

[pleasewait]

Merci.
Je vais essayer et je te tiens au courant .

PW

[boubignole]

Salut

je verrai plutot un truc du genre

Code :

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

DoCmd.OpenReport "NomEtat", acViewPreview, , Me.Filter

[pleasewait]

J'ai essayé Me.Filter mais ça ne fonctionne pas.
(Pas plus que Me.FilterOn !)
Il faudrait que je réussisse à récuperer la clause WHERE appliquée au formulaire pour la passer à la commande DoCmd.openReport.
Mais là, ça coince ... Pour le moment !!!



PW

[mout1234]

Note: Le Me.Filter devrait fonctionner... à condition que tu ne souhaites récupérer que le filtre appliqué au formulaire (par l'utilisateur ou de façon indirecte par du code VBA par exemple), snas considérer la clause Where de la source du form...

[Faw]

Salut,
essaye de charger le filtre à l'ouverture du report.

Code :

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

1
2
3
4
5
Private Sub Report_Open(Cancel As Integer)
IsNull Me.Filter
Me.Filter = Forms!NomDuForm.Filter
Me.FilterOn = True
End Sub

[boubignole]

Si tu as utilisé une clause Where, c'est pas un filtre

essaye

Code :

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

1
2
DoCmd.OpenReport "NomEtat", acViewPreview, 
Me.NomDuForm.Form.RecordSource

[Faw]

Si tu as utilisé une clause Where, c'est pas un filtre

essaye

Code :

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

1
2
DoCmd.OpenReport "NomEtat", acViewPreview, 
Me.NomDuForm.Form.RecordSource

là la chaine Recordsource risque de ne pas être compatible avec l'argument "Clause Where" de OpenReport...
Mais l'idée est bonne effectivement si le filtrage se fait par un WHERE DANS le
Recordsource du form et non par la propriété Filter.
On pourrait le faire toujours sur ouverture du Report

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
 Me.RecordSource = Forms!LeForm.RecordSource
End Sub

Et bien sûr on se contente pour ouvrir le report de

Code :

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

Docmd.openreport "LeReport",acViewPreview

[boubignole]

là la chaine Recordsource risque de ne pas être compatible avec l'argument "Clause Where" de OpenReport

En fait cette solution fonctionne

Code :

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

1
2
DoCmd.OpenReport "NomEtat", acViewPreview, 
Me.NomDuForm.Form.RecordSource

la chaine sera tronquée et seule la clause WHERE sera retenue.
Access semble assez tolérant avec ce genre de petite entorse...

[Faw]

Arf! je vois... Me.NomDuForm.Form.RecordSource n'est pas dans la
clause WHERE de OpenReport mais dans l'argument FilterName

FilterName Variant facultatif. Une expression chaîne qui est le nom valide d'une requête

il ne s'agit pas de tolérance access mais
de la définition même de FilterName. S'il prend le nom d'une requête, il peut
prendre une Expression SQL complète.

Et ça marche.

[Mr T 94]

OK, comme la solution a l'air simple, je vais vous compliquer un peu tout ça j'ai le même problème pour imprimer en direct un état sur un formulaire filtré, sauf que , en plus, c'est un sous formulaire que je filtre au départ.
bien sur, j'ai quand même essayé tout ça et ...

Voilà, si quelqu'un peu encore me sauver quelques nuit, je lui baiserai les pieds jusqu'à la fin de mes jours.
merci !!!