Erreur de compilation: SELECT WHERE AND [Résolu]

[cdarsac]

Bonjour,

La 1ère expression fonctionne correctement, mais la 2ièm où il est simplement ajouté un AND génère une erreur de compilation (Microsoft Virtual Basic - Erreur de compilation - Attendu: Expression)

Code :

1
2
3
Set Enr = CurrentDb.OpenRecordset(" SELECT * FROM [T0-Affection_Geo] WHERE   [T0-Affection_Geo].[SITE] = ' " & ChoixSite & " ' ")
 
Set Enr = CurrentDb.OpenRecordset(" SELECT * FROM [T0-Affection_Geo] WHERE   [T0-Affection_Geo].[SITE] = ' " & ChoixSite & " ' " AND [T0-Affection_Geo].[BATIMENT] = ' " & ChoixBatiment & " ' ")

Quelqu'un a-t-il une idée (le code complet est en pièce jointe)?

Merci d'avance.

[pc75]

Bonjour,

Code :

1
2
 
Set Enr = CurrentDb.OpenRecordset(" SELECT * FROM [T0-Affection_Geo] WHERE [T0-Affection_Geo].[SITE] = ' " & ChoixSite & " ' AND [T0-Affection_Geo].[BATIMENT] = ' " & ChoixBatiment & " ' ")

[cdarsac]

Envoyé par pc75

Bonjour,

Code :

Bonjour,

Merci de votre aide.
En effet, il n'y a plus d'erreur de syntaxe.

Par contre, cela ne fonctionne dans mon cas que si je ne mets pas d'espace entre les ".

Merci beaucoup de votre contribution, pb résolu.