SQL Recordset dynamique

Bonjour,

Je me bats depuis 2 semaines sur un recordset.
La requête sauvegardée fonctionne.
Je n'arrive pas à la faire fonctionner en dynamique.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim db As Database Dim Req1 As Recordset Dim Sql1 As String Set db = CurrentDb Sql1 = "SELECT CodeClairSMA.IdGestion, MaterielSMA.IdPosition" _ & "FROM CodeClairSMA INNER JOIN MaterielSMA ON CodeClairSMA.IdCodeSMA = MaterielSMA.IdCodeSMA" _ & "GROUP BY CodeClairSMA.IdGestion, MaterielSMA.IdPosition" _ & "HAVING (((CodeClairSMA.IdGestion) < 3) And ((MaterielSMA.IdPosition) = 11)) ORDER BY MaterielSMA.IdPosition"   Set Req1 = db.OpenRecordset(Sql1) While Not Req1.EOF srtemp = Req1.Fields("idposition") Select Case StrTemp Case Is <> 11 MsgBox ("Pas d'enregistrement!") Exit Sub Case Else End Select Wend

---

J'ai l'erreur 3075: Erreur de syntaxe..

Merci

Code:

---

1 2 3 4 5

Sql1 = "SELECT CodeClairSMA.IdGestion, MaterielSMA.IdPosition" _ & "FROM CodeClairSMA INNER JOIN MaterielSMA ON CodeClairSMA.IdCodeSMA = MaterielSMA.IdCodeSMA" _ & "GROUP BY CodeClairSMA.IdGestion, MaterielSMA.IdPosition" _ & "HAVING (((CodeClairSMA.IdGestion) < 3) And ((MaterielSMA.IdPosition) = 11)) ORDER BY MaterielSMA.IdPosition"

---

Et les espaces ?
si tu regarde le contenu de ta variable Sql1 tu verras qu'il en manque...

Bonsoir,

loufab voudrais dire par la les espaces qui devraient précéder chaque clause à savoir FROM, GROUP BY et HAVING.

Bon courage et @+

Merci,

C'est mieux avec les espaces.

j'ai une autre erreur, "Erreur d'exécution 13 : incompatibilité de type"

J'approfondis mes recherches.

Merci encore!

La compatibilité de type vient de la bibliothèque :
J'ai déclaré de la manière suivante:

Code:

---

1 2	Dim db As DAO.Database Dim Req1 As DAO.Recordset

---

Apparemment ma requête ne me retourne aucun enregistrement.
Access me retourne : "objet requis"

Je progresse
Merci

Bonsoir,

Dans un de tes posts précédents, tu as mis un code duquel j'ai tiré l'extrait suivant:

Code:

---

1 2	Set Req1 = db.OpenRecordset(Sql1)

---

Et tu disais avoir une erreur...
D'après moi, l'erreur ne provient pas de la bibliothèque !? mais plutôt de la manière dont tu as écrit le bout de code ci-dessus.
Bref, ton recordset est une instruction SQL qui ne peut pas être initialisé comme un dbOpenTable qui, je pense, semble être l'option par défaut pour l'ouverture d'un objet recordset. Il faut, d'après moi, l'ouvrir en dbOpenDynaset. De ce fait, le bout de code ci-dessus devrait être écrit de la manière suivante:

Code:

---

1 2	Set Req1 = db.OpenRecordset(Sql1, dbOpenDynaset)

---

A toi et dis-nous des nouvelles.

Bon courage et @+