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