Discussion :

[FrédéricCM]

Bonjour à tous,

je cherche à récuperer un champ somme obtenue apres une opération de regroupement dans une requete SQL
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Dim SQL As String
SQL = "SELECT [MaTable].Piece, Sum([MaTable].NbOccurence) AS SommeNbOccurence
FROM [Maintenance curative bus témoin]
GROUP BY [MaTable].Piece;"
Set rs = db.OpenRecordset(SQL)
MsgBox rs("SommeNbOccurence")

quand j'execute ce code vba me dit qu'il ne connait pas SommeNbOccurence comme élément de la collection rs

comment faire pour récuperer les informations de ce champ ?

Merci d'avance

Frédéric

[pgz]

Bonjour,

A mon avis ce n'est pas normal ...
Si tu veux tu peux essayer ça, juste pour voir ce que ça raconte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As DAO.Database, rs As DAO.Recordset, fld as field
Set db = CurrentDb
Dim SQL As String
SQL = "SELECT [MaTable].Piece, Sum([MaTable].NbOccurence) AS SommeNbOccurence "
SQL = SQL & "FROM [Maintenance curative bus témoin] "
SQL = SQL & "GROUP BY [MaTable].Piece;"
Set rs = db.OpenRecordset(SQL)
 
For each fld in rs.Fields
    Msgbox fld.name
Wend
rs.close
set rs = Nothing
set db = nothing

Voyons...

A+

pgz

[CAMIC]

Salut,

pour que ça fonctionne, il faut déclare rs comme variant:

Code :

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

Dim rs As Variant

puis pour le resultat:

Code :

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

MsgBox rs.SommeNbOccurence

bonne chance

CAMIC

[philben]

Bonjour,

SQL = "SELECT [MaTable].Piece, Sum([MaTable].NbOccurence) AS SommeNbOccurence
FROM [Maintenance curative bus témoin]
GROUP BY [MaTable].Piece;"

Ta table c'est [MaTable] ou [Maintenance curative bus témoin] ?
Faut faire un choix...

Philippe

[philben]

Re bonjour,

CAMIC a écrit :

pour que ça fonctionne, il faut déclare rs comme variant

J'ai un doute...

Philippe

[CAMIC]

salut philben,

il faut le type variant pour rs, car lors de l'interprétation du code il y aura une erreur car SommeNbOccurence n'est pas une propriété natif de l'objet Recordset.

CAMIC

[philben]

Bonjour,

voici un code qui fonctionne à première vue :

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
 
 
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Dim SQL As String
SQL = "SELECT [MaTable].Piece, Sum([MaTable].NbOccurence) AS SommeNbOccurence " & _
      "FROM [Maintenance curative bus témoin] as [MaTable] " & _
      "GROUP BY [MaTable].Piece;"
Set rs = db.OpenRecordset(SQL, dbOpenSnapshot)
Do Until rs.EOF = True
   MsgBox rs("SommeNbOccurence")
   rs.MoveNext
Loop
Set rs = Nothing
Set db = Nothing

Philippe

[Tofalu]

salut philben,

il faut le type variant pour rs, car lors de l'interprétation du code il y aura une erreur car SommeNbOccurence n'est pas une propriété natif de l'objet Recordset.

CAMIC

Non, déclarer un objet variant quand un type existe est inutile et surtout dangereux.

Quand on écrit rs("sommeNbOccurence"), on accède pas à la propriété sommeNbOccurence qui bien sûr n'existe pas, mais à l'élément sommeNbOccurence de la propriété Fields (qui est la propriété par défaut) de rs.

Ainsi :

rs("sommeNbOccurence") est en fait l'équivalent de l'écriture complète

rs.Fields("sommeNbOccurence").Value

Value étant la propriété par défaut d'un objet Field.

Jamais un champ ne sera une propriété d'un recordset, mais un élément de sa collection field. Le fait de le déclarer en variant, en objet ou en DAO.Recordset ni changera rien.

Pour éviter les alias, le plus simple est de passer par la position du champ dans le select

Msgbox rs(1)