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 : Sélectionner tout - Visualiser dans une fenêtre à part
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