Bonjour Klaus,
Merci pour ta réponse. Voici le code que j'utilise :
Sub solde
Dim query1, query2 As String
Dim TotalR, TotalD As Double
query1 = "SELECT TOTAL(Recettes) FROM comptes"
query2 = "SELECT TOTAL(Dépenses) FROM comptes"
TotalR = SQL1.ExecQuerySingleResult(query1)
TotalD = SQL1.ExecQuerySingleResult(query2)
edtSolde.text = NumberFormat2 (TotalR-TotalD, 1, 2, 2 ,False)
End Sub
J'ai bien pensé à utiliser "NumberFormat" cependant comme le résultat de mon calcul était faux (0.03 d'écart au bout d'une centaine d'enregistrements) j'ai supprimé le numberFormat pour voir mon résultat c'est ainsi que j'ai vu cenombre de décimales.
Mon but reste quand même de récupérer un total exact au centime près (déformation de comptable...) Comment puis-je procéder autrement ? Une autre façon de procéder ?