Petites erreurs. Changer le rst en rs :
Obscurcir les dbs comme base de données
Obscurcir les rs comme Recordset
Placer les dbs = le CurrentDb
Placer les rs = le dbs.OpenRecordset (le « qryData »)
MsgBox « le total pour » et rs ! fldOne et « pour » et des rs ! le fldThree et « est » et des rs ! fldTotal
rs. Fin
dbs. Fin
Placer les rs = rien
Placer les dbs = rien