Discussion :

[uskiki85]

Bonjour,

Je désirerai savoir si il est possible d effectuer un filtre sur la fonction DoCmd.OutputTo.

Pour le moment, quand j utilise la fonction DoCmd.Output, il m enregistre mon document en format word avec tout mes enregistrements.
Je désirerai effectuer un filtre à l aide d un champ se trouvant dans mon formulaire mais je n y arrive pas.

J utilise ce document pour envoyé en pièce jointe à un mail (c'est un doc personnel et donc unique à chaque personne).

Merci pour vos réponses.

[Keraccess]

Bonjour,

Pour ce faire, passe par une état, tu le filtre et tu base ton output sur l'état filtré !

[uskiki85]

Je ne comprend pas trop ce que tu veux dire.

Peux tu etre un peu plus precis ?

merci

[cafeine]

je pense qu'il voulait dire Requête

DoCmd.OutputTo typeobjet[, nomobjet][, formatdesortie][, fichierdecopie][, lancementautomatique][, fichiermodèle]

Tu peux mettre une requête au lieu d'une table pour qu'elle soit filtrée.

Modifier une requête à la vollée se fait en une ligne :

Code :

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

CurrentDB.QueryDefs("MaRequete").SQL = "SELECT ... FROM ..."

[uskiki85]

Pourrais tu me mettre un petit exemple stp ?

merci

[cafeine]

Justement j'ai mis un exemple ...

J'aurai du mal à dire mieux que l'aide en ligne ... sinon donne nous le code de ton export ... sait-on jamais.

[Keraccess]

Oui Caféine, ce'st bien requête, tu as raison

[uskiki85]

Mon code est le suivant :

Dim strSQL As String
Dim db As DAO.Database

strSQL = "SELECT .... FROM ... WHERE*"

DoCmd.OutputTo acOutputReport, "InvoicesMail", acFormatRTF, "C:\My Documents\My Documents\InvoiceCPP.doc", False

Ou dois je placer db.QueryDefs ... = strSQL ?

[uskiki85]

mon code est juste ci dessus.

Que dois je faire exactement ?
Merci pour votre aide

[cafeine]

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
    Dim strSQL As String
    Dim db As DAO.Database
 
    strSQL = "SELECT .... FROM ... WHERE*"
 
    DoCmd.OutputTo acOutputReport, "InvoicesMail", acFormatRTF, "C:\My Documents\My Documents\InvoiceCPP.doc", False

Ou dois je placer db.QueryDefs ... = strSQL ?

Tu dois créer une requête appelée "rqtInvoicesMail" par exemple, et baser ton état "InvoicesMail" sur cette requête, et le code devient.

Code :

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

1
2
3
4
5
6
    Dim strSQL As String
    Dim db As DAO.Database
 
    strSQL = "SELECT .... FROM ... WHERE*"
    CurrentDB.QueryDefs("rqtInvoicesMail").SQL = strSQL
    DoCmd.OutputTo acOutputReport, "InvoicesMail", acFormatRTF, "C:\My Documents\My Documents\InvoiceCPP.doc", False

[uskiki85]

J ai bien fait cela pourtant j ai un message d erreur

Mon code maintenant :

Dim strSQL As String
Dim db As DAO.Database

strSQL = "SELECT Invoices.*"
Set db = DBEngine.OpenDatabase("C:\MaBase.mdb")
db.QueryDefs("qryTmp").SQL = strSQL
DoCmd.OutputTo acOutputReport, "InvoicesMail", acFormatRTF, "C:\My Documents\My Documents\InvoiceCPP.doc", False

Le message d erreur est :

Elément non trouvé dans cette collection

Ce message provient de la ligne
db.QueryDefs("qryTmp").SQL = strSQL

Des idées ? Merci pour ton aide ou vos aides