Discussion :

[popof60]

Bonjour,

J'ai une requête sql géré via VBA (Access) mais elle refuse de fonctionner

Code :

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

1
2
Case 2
Me.Liste456.RowSource = "SELECT Contrats.num, Contrats.N°declient, Contrats.N°decontrat, Contrats.Typedecontrat, Contrats.[Activité-serviceCDG], Contrats.Montantducontrat FROM Contrats WHERE [N°declient]=Clients.N°declient and Contrats.[Activité-serviceCDG] =  " & " CDGL ENV " & ""

Si je me limite à ce code pas de soucis mais dès que je lui mets le AND ... ordi pas content access pas content et du coup bibi pas content

Code :

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

1
2
Case 2
Me.Liste456.RowSource = "SELECT Contrats.num, Contrats.N°declient, Contrats.N°decontrat, Contrats.Typedecontrat, Contrats.[Activité-serviceCDG], Contrats.Montantducontrat FROM Contrats WHERE [N°declient]=Clients.N°declient

Cyril

[Lou Pitchoun]

Salut,

il y a effectivement un problème de syntaxe

Code :

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

Contrats.[Activité-serviceCDG] =  " & " CDGL ENV " & ""

Déjà : CDGL ENV
Là ça plante car Access va interpréter ça comme 2 variables !!
Il faudrait l'écrire sous cette forme :

Code :

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

Contrats.[Activité-serviceCDG] =  " &  CDGL &  ENV

Mais je doute que cela soit ça...

Si tu expliques ce qu'est CDGL ENV, on va peut être trouver une solution

[popof60]

Je fais un tri par mon n° de client et par mon activité
3 activité au total classé dans ma table par
CDGL ENV (environnement),
CDGL ENE (energie)
et CDGL LOG (logistique).

Edit : Effectivement cela ne fonctionne pas, le champ activité est un critère texte standard

[Lou Pitchoun]

Donc c'est une valeur de type String
Solution :

Code :

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

Me.Liste456.RowSource = "SELECT Contrats.num, Contrats.N°declient, Contrats.N°decontrat, Contrats.Typedecontrat, Contrats.[Activité-serviceCDG], Contrats.Montantducontrat FROM Contrats WHERE [N°declient]=Clients.N°declient and Contrats.[Activité-serviceCDG] =  " & Chr(34) & "CDGL ENV" & Chr(34)

[popof60]

C'est bon solution trouvé grace à 'critére'

Code :

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

Me.Liste456.RowSource = "SELECT Contrats.num, Contrats.N°declient, Contrats.N°decontrat, Contrats.Typedecontrat, Contrats.[Activité-serviceCDG], Contrats.Montantducontrat FROM Contrats WHERE [N°declient]=Clients.N°declient and Contrats.[Activité-serviceCDG] = 'CDGL ENV'  "

Ok, je viens de voir ta réponse, quel est la différence entre le (Chr34) et le (') ?

[Lou Pitchoun]

En fait le résultat sera le même. 34 est le code ASCII de ". Chr(34) renvoi ".
J'ai toujours pratiqué comme ça (mauvaise manie ??). Certains trouverons ça complètement inutile sachant que la solution avec ' fonctionne très bien.

[popof60]

ok impect et merci de l'explication

Cyril