Discussion :

[chrislauxerrois]

Bonjour à tous,
Je n'ai pas trouvé de réponse à mon problème dans la FAQ, alors je m'en retourne au forum, en espérant que quelqu'un saura m'aider.
J'ai le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande9_Click()
    Somme = "SELECT SUM (ASSOCIE_ACTIF.taux) FROM ASSOCIE_ACTIF;"
    If Somme = 100# Then
        DoCmd.Close acForm, "F_ASSOCIE_", acSaveYes
        DoCmd.OpenForm "F_CHANTIER_ACTIF", , , "numChantier = CHANTIER_ACTIF.numChantier"
    Else
        Rep = MsgBox("La somme des taux doit être égale à 100%", vbOKOnly, "Erreur dans la saisie des associés")
        DoCmd.OpenForm "F_ASSOCIE", acNormal
    End If
End Sub

Dans la table ASSOCIE_ACTIF, j'ai 2 enregistrements dont les champs taux sont respectivement égaux à 87,000 et 13,000 (les 3 décimales sont nécessaires)
Comment se fait-il, alors que la somme fait bien 100, que ma msgbox s'affiche, et non pas mon formulaire

[random]

c'est un problème de précision numérique, il y a discordance entre les grandeurs réelles et leurs représentations informatiques
pour le règler on peut

utilser des champs et variable currency


ou une fonction environ

Code :

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

1
2
3
4
 
Function environ(x As Double, y As Double, upsilon As Double) As Boolean
environ = Abs(x - y) < upsilon
End Function