Discussion :

[gentoo]

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

[loufab]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Mahefasoa]

Bonsoir,

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

Bon courage et @+

[gentoo]

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!

[gentoo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mahefasoa]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A toi et dis-nous des nouvelles.

Bon courage et @+