Bonjour
j'ai une requête (faite sous MS-Querry) elle fonctionne

origine
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
 .CommandText = Array( _
        "SELECT ARCH_TEMPS.CODE_EQUI as equipe, ARCH_TEMPS.CODE_ARTI as Article,ARCH_TEMPS.QUAN_PROD as 'Qte_Prod'  ," _
        , _
        "ARCH_TEMPS.DURE_PROD_BRUT as Tps_prod,  " _
        , _
        "ARTICLE.DESI_ARTI" & Chr(13) & "" & Chr(10) & "FROM OPTIMA.dbo.ARCH_TEMPS ARCH_TEMPS, O" _
        , _
        "PTIMA.dbo.ARTICLE ARTICLE" & Chr(13) & "" & Chr(10) & _
        "WHERE ARCH_TEMPS.CODE_ARTI = ARTICLE.CODE_ARTI AND ((ARCH_TEMPS.QUAN_PROD>0) " _
        , _
        "AND (ARCH_TEMPS.DATE_CALE>={ts '2007-02-01 00:00:00'} And ARCH_TEMPS.DATE_CALE<={ts '2007-12-31 " _
        , _
        "00:00:00'}) AND (ARCH_TEMPS.CODE_EQUI='WE1') OR (ARCH_TEMPS.QUAN_PROD>0) AND " _
        , _
        "(ARCH_TEMPS.CODE_EQUI='WE2'))" & Chr(13) & "" & Chr(10) & "ORDER BY ARCH_TEMPS.CODE_ARTI" _
        )
        .Refresh BackgroundQuery:=False
j'essaie de la modifier
avec ceci (en bleu)
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
 .CommandText = Array( _
        "SELECT ARCH_TEMPS.CODE_EQUI as equipe, ARCH_TEMPS.CODE_ARTI as Article,ARCH_TEMPS.QUAN_PROD as 'Qte_Prod'  ," _
        , _
        "sum(ARCH_TEMPS.DURE_PROD_BRUT) as Tps_prod,  " _
        , _
        "ARTICLE.DESI_ARTI" & Chr(13) & "" & Chr(10) & "FROM OPTIMA.dbo.ARCH_TEMPS ARCH_TEMPS, O" _
        , _
        "PTIMA.dbo.ARTICLE ARTICLE" & Chr(13) & "" & Chr(10) & _
        "WHERE ARCH_TEMPS.CODE_ARTI = ARTICLE.CODE_ARTI AND ((ARCH_TEMPS.QUAN_PROD>0) " _
        , _
        "AND (ARCH_TEMPS.DATE_CALE>={ts '2007-02-01 00:00:00'} And ARCH_TEMPS.DATE_CALE<={ts '2007-12-31 " _
        , _
        "00:00:00'}) AND (ARCH_TEMPS.CODE_EQUI='WE1') OR (ARCH_TEMPS.QUAN_PROD>0) AND " _
        , _
        "(ARCH_TEMPS.CODE_EQUI='WE2'))" & Chr(13) & "" & Chr(10) & "ORDER BY ARCH_TEMPS.CODE_ARTI" _
        )
        .Refresh BackgroundQuery:=False
et j'obtiens un message d'erreur langage SQL qui pointe sur le code VBA
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Refresh BackgroundQuery:=False
ou este ce que je fait la boulette?
Merci
Daranc