Discussion :

[ziz2005]

j'ai une requête que j'ai réalisé avec l'assistant créeation requête ensuite j'ai copié le code sql dans mon code vba mais une erreur "incompatibilité de type"
lorsque j'exécute apparait.
voici ma requête elle est vraiment looooooongue

Code :

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

SQL = "SELECT LiaisonFH.Num_App, LiaisonFH.Region, LiaisonFH.Configuration, LiaisonFH.Statut, Site.Nom_Site, Site.Freq_1, Site.Freq_2, Site.LC, Site.NB_EQ, Site.Marque_EQ, Site.Nbre_Antenne, Site.Marque_Antenne, Site.PIRE, Site_1.Nom_Site, Site_1.Freq_1, Site_1.Freq_2, Site_1.LC, Site_1.NB_EQ, Site_1.Marque_Antenne, Site_1.PIRE FROM (LiaisonFH INNER JOIN Site ON (LiaisonFH.Nom_Site_A = Site.Nom_Site) AND (LiaisonFH.Num_App = Site.Num_App)) INNER JOIN Site AS Site_1 ON (LiaisonFH.Nom_Site_B = Site_1.Nom_Site) AND (LiaisonFH.Num_App = Site_1.Num_App) WHERE (((LiaisonFH.Region) Like " * "+[forms]![Recherche_Param]![Liste20]+" * "))"

comment je peux la corriger ??
Merci de m'aider.

[Jean-Philippe André]

salut,
lorsque tu traites des chaines de caractères dans ton sql via vba, les guillemets sont remplacés par des quotes :

Code :

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

1
2
3
4
5
6
7
8
SQL = "SELECT LiaisonFH.Num_App, LiaisonFH.Region, LiaisonFH.Configuration, LiaisonFH.Statut, Site.Nom_Site, Site.Freq_1, 
Site.Freq_2, Site.LC, Site.NB_EQ, Site.Marque_EQ, Site.Nbre_Antenne, 
Site.Marque_Antenne, Site.PIRE, Site_1.Nom_Site, Site_1.Freq_1, Site_1
.Freq_2, Site_1.LC, Site_1.NB_EQ, Site_1.Marque_Antenne, Site_1.PIRE FROM 
(LiaisonFH INNER JOIN Site ON (LiaisonFH.Nom_Site_A = Site.Nom_Site) AND 
(LiaisonFH.Num_App = Site.Num_App)) INNER JOIN Site AS Site_1 ON 
(LiaisonFH.Nom_Site_B = Site_1.Nom_Site) AND (LiaisonFH.Num_App = Site_1
.Num_App) WHERE (((LiaisonFH.Region) Like ' * '" & [forms]![Recherche_Param]![Liste20] & "' * '))"