Discussion :

[HE]

Bonjour,

J'ai le code suivant :

If Me!MenuChamps.ItemData(wSelectedItem) = "PV Réel au Kg" Then
If wprem > 0 Then
wSQL = wSQL & wSepare
End If
wSQL = wSQL & " Fix([PrixVente]/[PoidsUnit]) AS PVRéelAuKg"
wprem = wprem + 1
End If

Et je ne voudrais pas plus de 2 chiffres après la virgule dans le résultat de mon calcul. Que dois-je ajouter à mon code et où ????

Merci

[Tofalu]

Merci d'utiliser les balises Code dans vos messages ...

La fonction Round résoudra votre problème

[Vesta]

Tu fais round(valeur a arrondir;precision)

[User]

Salut,

round n'est reconnu qu'à partir d'access 2000.

Si tu es sous 97 comme moi:

Crée un module et recopie ce code :
Code:

Code :

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

1
2
3
4
5
6
7
Function Arrondi(ByVal Nbre As Double, ByVal Expo As Long) As Double 
 
    If Expo < 0 Then Arrondi = Arrondi(Nbre * 10 ^ Expo, Abs(Expo)) 
 
    Arrondi = CLng(Nbre * 10 ^ Expo) / 10 ^ Expo 
 
End Function

trouvé sur le forum !

Donc:

round(valeur a arrondir;precision) pour 2000 et +
et
Arrondi(valeur a arrondir;precision) pour 97

[HE]

je ne comprends pas ou est-ce que je dois placer "Round" et la "précision" dans mon code. J'ai à chaque fois un message d'erreur "incompatibilité de type - Erreur 13)

Une petite piste ... ?

Merci !

[Tofalu]

Sans voir le code, aucune piste ...

[HE]

Voici le code :

Code :

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

1
2
3
4
5
6
7
            If Me!MenuChamps.ItemData(wSelectedItem) = "PV Réel au Kg" Then
        If wprem > 0 Then
            wSQL = wSQL & wSepare
        End If
        wSQL = wSQL & " Fix([PrixVente]/[PoidsUnit]) AS PVRéelAuKg"
        wprem = wprem + 1
    End If