Erreur dans ma fonction pour créer mes rapports rtf

**hemos** · 20/09/2006, 22h24

Voici ma fonction :

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
Private Sub Commande4_Click()
   Dim dbs As DAO.Database
   Dim rst As DAO.Recordset
   Dim qdf As DAO.QueryDef
   Dim BaseSQL As String
   Dim strSQL As String
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("SELECT DISTINCT [Dealer/Distributor Number] FROM Query_Active_Dealer_List_Update")
   Set qdf = dbs.QueryDefs("Query_Active_Dealer_List_Update")
   BaseSQL = qdf.SQL
   With rst
       Do Until .EOF
          strSQL = Left(BaseSQL, Len(BaseSQL) - 3) & " WHERE [Dealer/Distributor Number] =" & ![Dealer/Distributor Number]
          qdf.SQL = strSQL
DoCmd.OutputTo acOutputReport, "Main_Report", "RichTextFormat", "C:\Documents and Settings\larocma\Dealer_Scorecards\" & ![Dealer/Distributor Number] & ".doc"
 
          .MoveNext
      Loop
      .Close
   End With
   qdf.SQL = BaseSQL
   Set qdf = Nothing
   Set rst = Nothing
   Set dbs = Nothing
 
End Sub

Le problème se situe dans la ligne strSQL = Left(BaseSQL, Len(BaseSQL) - 3) & " WHERE [Dealer/Distributor Number] =" & ![Dealer/Distributor Number]

Si je laisse ![Dealer/Distributor Number] comme ca j'obtient une erreur et aucun rapport n'est généré. Par contre, si je met "[Dealer/Distributor Number]" comme ca en paramètre et que j'entre manuellement les numeros de dealer, j'obtient des fichiers correctement.

Quelqu'un peut m'aider à résoudre ce probleme ?

Max

**LaBelette** · 20/09/2006, 22h41

Tu peux donner plus d'infos sur les objets Query_Active_Dealer_List_Update et Main_Report?

**LaBelette** · 20/09/2006, 22h44

Envoyé par hemos

Le problème se situe dans la ligne strSQL = Left(BaseSQL, Len(BaseSQL) - 3) & " WHERE [Dealer/Distributor Number] =" & ![Dealer/Distributor Number]

Est-il possible qu'il y ai des valeurs nulles dans ![Dealer/Distributor Number]?

**hemos** · 21/09/2006, 00h05

Il n'y a pas de dealer_id nul puisque j'affiche seulement que les valeurs non nulles. Le Main_Report est un rapport comprenant un ensemble de sous-rapport qui est regroupé selon le dealer/distributor number pour que je puisse avoir un rapport d'avancement par dealer.

Pour ce qui est de la requete associée à la table elle comprend toutes les coordonnées du dealer sur chaque colonnne.

Max

**micniv** · 21/09/2006, 12h53

As-tu fait un Debug.print de strSQL après son affectation ?

strSQL = Left(BaseSQL, Len(BaseSQL) - 3) & " WHERE [Dealer/Distributor Number] =" & ![Dealer/Distributor Number]
qdf.SQL = strSQL

Moi, j'essaierais "rst" devant "![Dealer/Distributor Number]"
Espérant aider,

**hemos** · 21/09/2006, 15h05

J'ai essayé un autre code mais maintenant j'obtient une erreur différente et je ne connais pas sa provenance.

Voici le code modifié :

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
 
Private Sub Commande4_Click() 
 
Dim dbs As DAO.Database 
Dim rst As DAO.Recordset 
Dim qdf As DAO.QueryDef 
Dim BaseSQL As String 
Dim strSQL As String 
Set dbs = CurrentDb 
Set rst = dbs.OpenRecordset("SELECT DISTINCT [Dealer/Distributor Number] FROM Query_Active_Dealer_List_Update") 
Set qdf = dbs.QueryDefs("Query_Active_Dealer_List_Update") 
BaseSQL = qdf.SQL 
With rst 
Do Until .EOF 
strSQL = Left(BaseSQL, Len(BaseSQL) - 3) & " WHERE [Dealer/Distributor Number] = '" & ![Dealer/Distributor Number] & "';" 
qdf.SQL = strSQL 
DoCmd.OutputTo acOutputReport, "Main_Report", "RichTextFormat", "C:\Documents and Settings\larocma\Dealer_Scorecards\" & ![Dealer/Distributor Number] & ".doc" 
 
.MoveNext 
Loop 
.Close 
End With 
qdf.SQL = BaseSQL 
Set qdf = Nothing 
Set rst = Nothing 
Set dbs = Nothing 
 
End Sub

Erreur d'exécution '3126': Mise entre crochets non valide du nom '[Dealer/Distributor Nub
WHERE [Dealer/Distributor Number]'

**hemos** · 21/09/2006, 15h20

Si vous voulez jeter un coup d'oeil j'ai uploadé mon travail sur www.mlaroche.com/scorecards/scorecards.zip

Le bouton est sur le Formulaire1

Maxime

**LaBelette** · 21/09/2006, 15h26

Sur quelle ligne, cette erreur?

**micniv** · 21/09/2006, 15h38

le champ [Dealer/Distributor Number] est de quel type ??? :
dans la rq du debut, tu le traites comme un numérique
dans ton second traitement , " comme du texte (càd avec des ' de part et d'autre)