Discussion :

[jbndour]

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

[loufab]

Bonjour,

Il y a un tuto consacré au débogage des requêtes dans VBA. A lire en priorité.

Sinon la marche à suivre est la suivante :

1) copier la requete générée
2) la mettre dans le QBE
3) passer en mode création
4) repasser en mode SQL
5) observer les modifications apportées pas le QBE.

En l'état on ne peut que supposer donc perdre du temps à analyser un hypotétique résultat.

Cordialement,