Bonjour tout le monde
J'exécute une requête sous vba - Access mais j'ai toujours l'erreur 3061.
Je pense qu'elle est due à des cotes ' ' manquant quelque part dans la requête mais je ne sais pas où il faudrait en mettre.
La requête est la suivante.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim rs2 As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
 
requetedoublons = "SELECT First ([BASE_GIS]." & C1 & ") AS " & C1 & "Champs, First ([BASE_GIS]." & C2 & ") AS " & C2 & "Champs, First ([BASE_GIS]." & C3 & ") AS " & C3 & "Champs, First([BASE_GIS]." & C4 & ") AS " & C4 & "Champs, Count ([BASE_GIS]." & C1 & ") AS NombreDeDbls FROM [BASE_GIS] GROUP BY [BASE_GIS]." & C1 & ", [BASE_GIS]." & C2 & ", [BASE_GIS]." & C3 & ", [BASE_GIS]." & C4 & " HAVING (((Count ([BASE_GIS]." & C1 & "))>1) AND (([BASE_GIS]." & C3 & ") <>"""") AND ((Count ([BASE_GIS]." & C4 & "))>1));"
Set rs2 = db.OpenRecordset(requetedoublons, dbOpenDynaset)
J'ai essayé d'enlever le ";" à la fin mais ça ne donne rien.

merci d'avance