Discussion :

[dedein84]

Voila mon probleme.
je dois additonner une date avec une periodicité.
J'utilise dc la fonction DateAdd dan une chaine sql ecrite en vba.
on a le champ : [Equipements Codification liste].[Périodicité] qui contient la periode.
Puis le champ : [Equipements liste].[Date] qui contient la date à additionner.

bref on obtient la chaine sql :

Code sql :

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

1
2
3
SQL = " SELECT DISTINCTROW  [Equipements Temp].N°, [Equipements Codification].[Sous-type], [Equipements Codification liste].Famille, [Equipements Codification liste].[Nom fam], [Equipements Codification liste].[Sous-famille], [Equipements liste].Désignation, [Equipements Temp].m1, [Equipements Temp].m2, [Equipements Temp].m3, [Equipements Temp].m4, [Equipements Temp].m5, [Equipements Temp].m6, [Equipements Temp].m7, [Equipements Temp].m8, [Equipements Temp].m9, [Equipements Temp].m10, [Equipements Temp].m11, [Equipements Temp].m12, Year([Date]) AS AnneeEqpts, [Equipements Codification liste].Périodicité ,[Equipements Codification liste].[Périodicité],[Equipements liste].[Date]" & _
 " FROM [Equipements Codification] INNER JOIN ([Equipements Codification liste] INNER JOIN ([Equipements liste] INNER JOIN [Equipements Temp] ON [Equipements liste].N° = [Equipements Temp].N°) ON [Equipements Codification liste].Codif = [Equipements liste].Codif) ON ([Equipements Codification].CType = [Equipements Codification liste].CType) AND ([Equipements Codification].CType = [Equipements Codification liste].CType)" & _
  " WHERE DateAdd("m",[Equipements Codification liste].[Périodicité],[Equipements liste].[Date]) BETWEEN" & "#31/12/" & Annee & "# And " & "#31/12/" & Annee " #;"

et j'obtiens ce message d'erreur : erreur de compilation, atendu fin d'instruction.
Merci de votre aide

[dedein84]

C'est bon, j'ai trouvé la solution il suffisait de mette 'm' et non "m".
DateAdd('m',[Equipements Codification liste].[Périodicité],[Equipements liste].[Date])
On c'est jamais ca peut toujours interéssé des personnes.
+++