Discussion :

[gentoo]

Bonjour,

J'ai fait un recordset dynamique en SQL.
Il fonctionne, grâce à vos conseils.

Je veux analyser les résultats, mais la requête ne retourne aucun enregistrement,

comment faire, dans ce cas précis?

Merci

[LeXo]

post un bout de code ça sera plus parlant

[FreeAccess]

Bonjour,

Je veux analyser les résultats, mais la requête ne retourne aucun enregistrement,

Généralement, dans ce cas, c'est.......qu'il n'y a aucun enregistrement correspondant au(x) critère(s) de ta requête....

[gentoo]

oui Voilà le code

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim dB As DAO.Database
Dim Req1 As DAO.Recordset
Dim SQL1 As String
Dim StrTemp As Variant
 
 
 
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) = 10)) ORDER BY MaterielSMA.IdPosition"
 
 
 
Set dB = CurrentDb
Set Req1 = dB.OpenRecordset(SQL1)
 
Req1.MoveFirst ' L'EXÉCUTION S'ARRÊTE ICI puisqu'il n'y a pas d'enregistrement
While Not Req1.EOF
 
StrTemp = Req1.Fields("idposition")
Select Case StrTemp
    Case Is = 11
    DoCmd.OpenForm "FormMatMajTechModif", , , "IDPosition = 11 "
 
Exit Sub
Case Else
MsgBox ("Pas d'enregistrement!")
End Select
 
 
Req1.MoveNext
Wend
Req1.Close

[LeXo]

tu verras ton nombre d'enregistrement avec un

Code :

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

req1.recordcount

si il ny ap asp d'enregistrment alors regarde ta requete

tu peux mettre ta requete dans access et tu verras directement les données remontés par ta requete.

sinon crée ta requete avec l'assistant graphique de access et recolle la dans ton code.