Discussion :

[toto159]

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 :

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

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 SQL :

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

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


merci pour votre aide

[Thierry_PALLIER]

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

Code :

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

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

Cdlt

[Jeannot45]

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

Code vba :

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

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;"

[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