Problème de syntaxe ou pas sur requête VBA

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
j'ai construit ma requête à l'aide de VBE ,
cette requête fonctionne correctement dans Access
pour mes besoins je l'ai importé dans une macro vba car je vais avoir besoin de modifier certains champs et passer des arguments en fonction des choix de l'utilisateur
mais cela coince lorsque je recopie la requête dans sql VBE et que je la copie dans VBA
et que je la repasse comme contrôle pour la source de mon formulaire cela coince
je n'arrive pas à trouver l'erreur

Code:

1
2
3
4
5
6
7
marequete = "SELECT TB_membres.ID_adherent, TB_membres.ID_CIV, TB_membres.TB_membresNom, TB_membres.TB_membresPrenom, TB_adhesion.TBadhesionBulletin, TB_adressePrive.TB_AdresPriveAdresse, TB_adressePrive.TB_AdresPriveComplement1, TB_adressePrive.TB_AdresPriveComplement2, TB_adressePrive.TB_AdresPriveCP, TB_adressePrive.TB_AdresPriveVille, TB_adressePrive.ID_Pays" & vbCrLf & _
"FROM (TB_membres LEFT JOIN TB_adhesion ON TB_membres.ID_adherent = TB_adhesion.ID_adherent) LEFT JOIN TB_adressePrive ON TB_membres.ID_adherent = TB_adressePrive.ID_adherent" & vbCrLf & _
"WHERE (((TB_adhesion.TBadhesionBulletin) = True) And ((TB_adressePrive.TB_AdresPriveAdresse) Is Null Or (TB_adressePrive.TB_AdresPriveAdresse)="") And ((TB_membres.ID_Categorie) = 1))" & vbCrLf & _
"ORDER BY TB_membres.TB_membresNom, TB_membres.ID_Categorie;"
Debug.Print marequete
 
Me.Controls("Frm_AdresseRevue").Form.RecordSource = marequete       ' c'est sur cette ligne que cela coince

ce que j'obtiens au debug.print

Code:

1
2
3
4
SELECT TB_membres.ID_adherent, TB_membres.ID_CIV, TB_membres.TB_membresNom, TB_membres.TB_membresPrenom, TB_adhesion.TBadhesionBulletin, TB_adressePrive.TB_AdresPriveAdresse, TB_adressePrive.TB_AdresPriveComplement1, TB_adressePrive.TB_AdresPriveComplement2, TB_adressePrive.TB_AdresPriveCP, TB_adressePrive.TB_AdresPriveVille, TB_adressePrive.ID_Pays
FROM (TB_membres LEFT JOIN TB_adhesion ON TB_membres.ID_adherent = TB_adhesion.ID_adherent) LEFT JOIN TB_adressePrive ON TB_membres.ID_adherent = TB_adressePrive.ID_adherent
WHERE (((TB_adhesion.TBadhesionBulletin) = True) And ((TB_adressePrive.TB_AdresPriveAdresse) Is Null Or (TB_adressePrive.TB_AdresPriveAdresse)=") And ((TB_membres.ID_Categorie) = 1))
ORDER BY TB_membres.TB_membresNom, TB_membres.ID_Categorie;

code erreur obtenu
Pièce jointe 167221

merci pour votre aide

25/01/2015, 20h09
Thierry_PALLIER

Bonsoir toto159.
Il faut entourer les guillemets par des guillemets :

Code:

Or (TB_adressePrive.TB_AdresPriveAdresse)="""")

Cdlt

:salut:

Petite astuce : pour simplifier l'écriture, dans ta syntaxe SQL, tu peux remplacer les guillemets par deux apostrophes (''). Ce qui donne alors :

Code:

1
2
3
4
5
marequete = "SELECT TB_membres.ID_adherent, TB_membres.ID_CIV, TB_membres.TB_membresNom, TB_membres.TB_membresPrenom, TB_adhesion.TBadhesionBulletin, TB_adressePrive.TB_AdresPriveAdresse, TB_adressePrive.TB_AdresPriveComplement1, TB_adressePrive.TB_AdresPriveComplement2, TB_adressePrive.TB_AdresPriveCP, TB_adressePrive.TB_AdresPriveVille, TB_adressePrive.ID_Pays" & vbCrLf & _
"FROM (TB_membres LEFT JOIN TB_adhesion ON TB_membres.ID_adherent = TB_adhesion.ID_adherent) LEFT JOIN TB_adressePrive ON TB_membres.ID_adherent = TB_adressePrive.ID_adherent" & vbCrLf & _
"WHERE (((TB_adhesion.TBadhesionBulletin) = True) And ((TB_adressePrive.TB_AdresPriveAdresse) Is Null Or (TB_adressePrive.TB_AdresPriveAdresse)='') And ((TB_membres.ID_Categorie) = 1))" & vbCrLf & _
"ORDER BY TB_membres.TB_membresNom, TB_membres.ID_Categorie;"

26/01/2015, 19h48
toto159

Franchement merci à vous deux

et oui je suis un manche et pourtant je me suis déjà fait avoir, j’oublie fréquemment que pour les variables texte il faut les remettre entre guillemets

encore merci à vous