Discussion :

[Daniel MOREAU]

Bonjour,

J'ai voulu mettre en pratique le tutoriel de Fabrice CONSTANS concernant la création de requêtes d'analyses croisées, malheureusement j'ai une erreur dans mon code que je n'arrive pas à solutionner.

Voici le code :

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
Dim Sql As String   'déclare la variable Sql
 
 
    Sql = "TRANSFORM Sum(nz([dbo_VLIGNES_FACTVTE]![NLVTOTNET],0)) AS Total"
    Sql = Sql & "SELECT Format([dbo_VLIGNES_FACTVTE]![DLVINVOICEDAT],'yyyy') AS Année,"
    Sql = Sql & "dbo_VLIGNES_FACTVTE.ALVNATURE AS Nature, dbo_VLIGNES_FACTVTE.ALVREP1 AS Cial"
    Sql = Sql & "FROM dbo_VLIGNES_FACTVTE"
    Sql = Sql & "WHERE (((Format([dbo_VLIGNES_FACTVTE]![DLVINVOICEDAT],'yyyy'))=Format(Date(),'yyyy')"
    Sql = Sql & "Or (Format([dbo_VLIGNES_FACTVTE]![DLVINVOICEDAT],'yyyy'))=Format(Date(),'yyyy')-1)"
    Sql = Sql & "AND ((dbo_VLIGNES_FACTVTE.ALVREP1)= " & Me.Représentant & ""
    Sql = Sql & "AND ((Format([dbo_VLIGNES_FACTVTE]![DLVINVOICEDAT],'mm'))<= " & Format(Me.txtFin, "mm") & "))"
    Sql = Sql & "GROUP BY Format([dbo_VLIGNES_FACTVTE]![DLVINVOICEDAT],'yyyy'),"
    Sql = Sql & "dbo_VLIGNES_FACTVTE.ALVNATURE, dbo_VLIGNES_FACTVTE.ALVREP1"
    Sql = Sql & "PIVOT Format([dbo_VLIGNES_FACTVTE]![DLVINVOICEDAT],'mm');"
 
 
        DoCmd.DeleteObject acQuery, "R110_Gen_Temp_AC1"  'supprime la requête analyse croisée
        CurrentDb.CreateQueryDef "R110_Gen_Temp_AC1", Sql 'crée la nouvelle requête
        DoCmd.OpenQuery "R110_Analyse_Nature"  'ouvre la requête

Impossible de créer la requête.

Avez vous une idée

Merci pour votre aide

Daniel

[loufab]

Bonjour Daniel.

Au premier coup d'oeil je vois qu'il y a un problème d'espaces dans ta string SQL.

Mon conseil : Lorsque que tu fais des requêtes sous VBA, n'oublie jamais de les deboguer. Un petit affichage dans la fenetre Execution de l'environnement VBA.

Pour le deboggage regarde l'excellent tuto de Cafeine (toujours lui 8) ) http://cafeine.developpez.com/access...el/debugprint/

[cafeine]

Hello,

merci Loufab, je me permets juste d'ajouter que supprimer la requête est inutile ... alors que ce code suffirait

Code :

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

CurrentDb.QueryDefs("R110_Gen_Temp_AC1").SQL =  Sql

NB : en effet il manque des espaces entre tes concaténations de lignes de SQL ...

[Daniel MOREAU]

Bonjour,

Grâce aux conseils de LOUFAB, j'ai trouvé la solution de mon problème et t'en remercie vivement.

J'avais parcouru ce tutoriel concernant le débogage VBA, mais j'avoue que je n'y ai pas pensé sur le coup.

Je tiens également à te féliciter pour les 2 tutoriels sur les "Formulaires de recherche" et je suis impatient de dévouvrir la suite.

Merci également à Caféine qui est toujours de bon conseil.

Grâce à vous j'avance doucement certe, mais j'avance. Merci encore.

Daniel