Discussion :

[Soulq]

Bonjour,

J'ai un formulaire devant me permettre d'exporter une requete temporaire sous excel en fonction de plusieurs choix : la zone de stock des produits (locaux ou stock) et le BU.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub BtnEtatStock_Click()
 
Dim SQL As String
 
SQL = "SELECT Produit.PartNumber, Produit.Designation, Produit.NFournisseur, Produit.RefFournisseur, ReqCalculStockEtLocauxBU.BU, ReqCalculStockEtLocauxBU.QteBULocaux, ReqCalculStockEtLocauxBU.QteBUStock, ReqDernierPxU.DernierPrixU FROM (ReqCalculStockEtLocauxBU INNER JOIN Produit ON ReqCalculStockEtLocauxBU.NProduit=Produit.NProduit) INNER JOIN ReqDernierPxU ON Produit.NProduit=ReqDernierPxU.NProduit "
 
    If CocheLieu2 Then
 
        If ModifLieu2 = "Stock" Then
            SQL = SQL & "And ReqCalculStockEtLocauxBU!QteBUStock > 0"
        End If
 
        If ModifLieu2 = "LocauxShaktiware" Then
            SQL = SQL & "And ReqCalculStockEtLocauxBU!QteDansLocaux >0"
        End If
 
    End If
 
    If CocheBU2 Then
        SQL = SQL & "ReqCalculStockEtLocauxBU!BU='" & ModifBU2 & "'"
    End If
 
Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", SQL)
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", "C:\Documents and Settings\guest\Mes documents\EtatDesStock.xls"
    DoCmd.DeleteObject acQuery, "Requete_Temporaire"
 
Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open "C:\Documents and Settings\guest\Mes documents\EtatDesStock.xls"
    xls.Visible = True
 
End sub

J'ai déja utilisé un code similaire avec succès et si je n'active aucun filtre, tout fonctionne.

En revanche si j'active le filtre sur le lieu j'ai une erreur du type :
"Expression de jointure non supportée"

Et avec le filtre sur le BU une autre erreur :
"Erreur de syntaxe (opérateur absent dans l'expression 'Produit.NProduit = ReqDernierPxU.NProduit ReqCalculStockEtLocauxBU=""."

Une idée sur l'origine des erreurs?

Merci d'avance

[Jean-Philippe André]

salut,
tu n'as pas prévu le cas du "AND" dans ton test CocheBU2

[Soulq]

Exact! (oups ) Merci !

Maintenant l'erreur est la même sur les 2 filtres :"Expression de jointure non supportée"...

Est ce que ça pourrait être du au fait que j'appelle des requêtes dans le code SQL? Car dans les autres exemple que j'ai utilisé avec ce type de fonction , je n'appelai que les tables dans le SELECT et ça marchait parfaitement?

[cafeine]

Hello,

plus généralement il y a un tuto fait pour ça :
http://cafeine.developpez.com/access...el/debugprint/

[Soulq]

Merci pour le lien du tuto, j'en avais lu pas mal mais pas celui-ci.

Il m'a effectivement permis de résoudre le problème qui provenait en grande partie de la syntaxe.