Discussion :

[possible924]

Bonjour à tous,

j'ai une requête enregistrée toute simple :

Code sql :

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

1
2
SELECT R_Factures.*, R_Facture_Contenu.*
FROM R_Factures LEFT JOIN R_Facture_Contenu ON R_Factures.CléP_Facture = R_Facture_Contenu.FC_Clé_Facture

Je souhaiterais, par VBA modifier cette requête de la façon suivante :

Code sql :

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

1
2
3
SELECT R_Factures.*, R_Facture_Contenu.*
FROM R_Factures LEFT JOIN R_Facture_Contenu ON R_Factures.CléP_Facture = R_Facture_Contenu.FC_Clé_Facture
WHERE (((R_Factures.CléP_Facture)=123));

Merci de m'indiquer comment faire
Bien cordialement
Pierre

[User]

Bonsoir,

Si je saisis bien votre demande, il faudrait utiliser un objet QueryDef, et sa propriété SQL :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim db as DAO.Database
dim qry as DAO.QueryDef
 
set db=currentdb
set qry=db.QueryDefs("La requête")
 
qry.sql= "SELECT R_Factures.*, R_Facture_Contenu.* " & _
"FROM R_Factures LEFT JOIN R_Facture_Contenu ON R_Factures.CléP_Facture = R_Facture_Contenu.FC_Clé_Facture " & _
"WHERE (((R_Factures.CléP_Facture)=123));"
 
set qry=nothing
set db = nothing

Quelque chose comme cela

[possible924]

Merci pour votre aide,
Voilà ce que j'ai fait et qui marche très bien :

Code :

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

1
2
3
4
5
    Dim qdf As DAO.QueryDef
        Set qdf = CurrentDb.QueryDefs!R_Factures_Etat
        qdf.SQL = "SELECT R_Factures.*, R_Facture_Contenu.* FROM R_Factures LEFT JOIN R_Facture_Contenu ON R_Factures.CléP_Facture = R_Facture_Contenu.FC_Clé_Facture WHERE R_Factures.CléP_Facture= " & FirstFacture
        Set qdf = Nothing
    DoCmd.OutputTo acOutputReport, "E_Facture", "PDFFormat(*.pdf)", Strfile, False, "", , acExportQualityScreen

Je vous souhaite une très bonne journée
Pierre

[User]

Tant mieux,

Pouvez-vous clore la discussion ?

Cdlt,