Je cherche a effectuer une simple requete de calcul de=20
somme, toutefois j'ai beau faire Access arrondis les=20
r=E9sultats (perte des d=E9cimales):
Ma requ=EAte est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements=20
dans la devise], DEVISE
FROM mouvements_comptes
GROUP BY EXCPTA,DEVISE
ORDER BY EXCPTA;
MontantRelDev =E9tant une colone contenant des nombres =E0=20
virgules; toutefois le r=E9sultat est toujours sans les=20
d=E9cimales (comme il s'agit d'une application bancaire,=20
malheureusement je perds donc les centimes ...)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Yann
bonjour
Utilise une varaible de type currency private sub On Error Resume Next Dim X As String Dim Z As Currency Dim StrPlancher As Currency X = Prix Z = X Z = CCur(Int(X * 100 + 0.5) / 100) Me.Caption = "Le montants et de " & Z & "?" Me.VAL = Z Me.Prix = True StrPlancher = DLookup("[plancher de commande]", "[Informations sur ma société]") If Z < StrPlancher Then MsgBox "Le Plancher de Facturation est fixer à " & StrPlancher & " ?" & vbCrLf & "Le Montant de la commande n'atteind pas le plancher de facturation" & vbCrLf & "le montant de votre devis s'élève à " & Z & " ?", 64, "INFORMATION" end sub
"Florian Delizy" a écrit dans le message de news: 04af01c34f88$30a08a80$ Bonjour,
Je cherche a effectuer une simple requete de calcul de somme, toutefois j'ai beau faire Access arrondis les résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements dans la devise], DEVISE FROM mouvements_comptes GROUP BY EXCPTA,DEVISE ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à virgules; toutefois le résultat est toujours sans les décimales (comme il s'agit d'une application bancaire, malheureusement je perds donc les centimes ...)
Est-ce que quelqu'un a une idée ?
bonjour
Utilise une varaible de type currency
private sub
On Error Resume Next
Dim X As String
Dim Z As Currency
Dim StrPlancher As Currency
X = Prix
Z = X
Z = CCur(Int(X * 100 + 0.5) / 100)
Me.Caption = "Le montants et de " & Z & "?"
Me.VAL = Z
Me.Prix = True
StrPlancher = DLookup("[plancher de commande]", "[Informations sur ma
société]")
If Z < StrPlancher Then MsgBox "Le Plancher de Facturation est fixer à " &
StrPlancher & " ?" & vbCrLf & "Le Montant de la commande n'atteind pas le
plancher de facturation" & vbCrLf & "le montant de votre devis s'élève à " &
Z & " ?", 64, "INFORMATION"
end sub
"Florian Delizy" <florian.delizy@utbm.fr> a écrit dans le message de news:
04af01c34f88$30a08a80$a001280a@phx.gbl...
Bonjour,
Je cherche a effectuer une simple requete de calcul de
somme, toutefois j'ai beau faire Access arrondis les
résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements
dans la devise], DEVISE
FROM mouvements_comptes
GROUP BY EXCPTA,DEVISE
ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à
virgules; toutefois le résultat est toujours sans les
décimales (comme il s'agit d'une application bancaire,
malheureusement je perds donc les centimes ...)
Utilise une varaible de type currency private sub On Error Resume Next Dim X As String Dim Z As Currency Dim StrPlancher As Currency X = Prix Z = X Z = CCur(Int(X * 100 + 0.5) / 100) Me.Caption = "Le montants et de " & Z & "?" Me.VAL = Z Me.Prix = True StrPlancher = DLookup("[plancher de commande]", "[Informations sur ma société]") If Z < StrPlancher Then MsgBox "Le Plancher de Facturation est fixer à " & StrPlancher & " ?" & vbCrLf & "Le Montant de la commande n'atteind pas le plancher de facturation" & vbCrLf & "le montant de votre devis s'élève à " & Z & " ?", 64, "INFORMATION" end sub
"Florian Delizy" a écrit dans le message de news: 04af01c34f88$30a08a80$ Bonjour,
Je cherche a effectuer une simple requete de calcul de somme, toutefois j'ai beau faire Access arrondis les résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements dans la devise], DEVISE FROM mouvements_comptes GROUP BY EXCPTA,DEVISE ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à virgules; toutefois le résultat est toujours sans les décimales (comme il s'agit d'une application bancaire, malheureusement je perds donc les centimes ...)
Est-ce que quelqu'un a une idée ?
Florian Delizy
Malheureusement je pense que tu n'as pas compris, je cherche a effectuer en SQL une requete renvoyant la somme verticale d'un chmap (en utilisant l'instruction SUM) mais Access me coupe mes décimales dans le résultat tout au moins ...
Donc en somme je perds mes centimes et je ne comprends pas pourquoi ...
-----Message d'origine----- bonjour
Utilise une varaible de type currency private sub On Error Resume Next Dim X As String Dim Z As Currency Dim StrPlancher As Currency X = Prix Z = X Z = CCur(Int(X * 100 + 0.5) / 100) Me.Caption = "Le montants et de " & Z & "?" Me.VAL = Z Me.Prix = True StrPlancher = DLookup("[plancher de commande]", "[Informations sur ma
société]") If Z < StrPlancher Then MsgBox "Le Plancher de Facturation est fixer à " &
StrPlancher & " ?" & vbCrLf & "Le Montant de la commande n'atteind pas le
plancher de facturation" & vbCrLf & "le montant de votre devis s'élève à " &
Z & " ?", 64, "INFORMATION" end sub
"Florian Delizy" a écrit dans le message de news:
04af01c34f88$30a08a80$ Bonjour,
Je cherche a effectuer une simple requete de calcul de somme, toutefois j'ai beau faire Access arrondis les résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements dans la devise], DEVISE FROM mouvements_comptes GROUP BY EXCPTA,DEVISE ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à virgules; toutefois le résultat est toujours sans les décimales (comme il s'agit d'une application bancaire, malheureusement je perds donc les centimes ...)
Est-ce que quelqu'un a une idée ?
.
Malheureusement je pense que tu n'as pas compris, je
cherche a effectuer en SQL une requete renvoyant la somme
verticale d'un chmap (en utilisant l'instruction SUM) mais
Access me coupe mes décimales dans le résultat tout au
moins ...
Donc en somme je perds mes centimes et je ne comprends pas
pourquoi ...
-----Message d'origine-----
bonjour
Utilise une varaible de type currency
private sub
On Error Resume Next
Dim X As String
Dim Z As Currency
Dim StrPlancher As Currency
X = Prix
Z = X
Z = CCur(Int(X * 100 + 0.5) / 100)
Me.Caption = "Le montants et de " & Z & "?"
Me.VAL = Z
Me.Prix = True
StrPlancher = DLookup("[plancher de
commande]", "[Informations sur ma
société]")
If Z < StrPlancher Then MsgBox "Le Plancher de
Facturation est fixer à " &
StrPlancher & " ?" & vbCrLf & "Le Montant de la commande
n'atteind pas le
plancher de facturation" & vbCrLf & "le montant de votre
devis s'élève à " &
Z & " ?", 64, "INFORMATION"
end sub
"Florian Delizy" <florian.delizy@utbm.fr> a écrit dans le
message de news:
Je cherche a effectuer une simple requete de calcul de
somme, toutefois j'ai beau faire Access arrondis les
résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements
dans la devise], DEVISE
FROM mouvements_comptes
GROUP BY EXCPTA,DEVISE
ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à
virgules; toutefois le résultat est toujours sans les
décimales (comme il s'agit d'une application bancaire,
malheureusement je perds donc les centimes ...)
Malheureusement je pense que tu n'as pas compris, je cherche a effectuer en SQL une requete renvoyant la somme verticale d'un chmap (en utilisant l'instruction SUM) mais Access me coupe mes décimales dans le résultat tout au moins ...
Donc en somme je perds mes centimes et je ne comprends pas pourquoi ...
-----Message d'origine----- bonjour
Utilise une varaible de type currency private sub On Error Resume Next Dim X As String Dim Z As Currency Dim StrPlancher As Currency X = Prix Z = X Z = CCur(Int(X * 100 + 0.5) / 100) Me.Caption = "Le montants et de " & Z & "?" Me.VAL = Z Me.Prix = True StrPlancher = DLookup("[plancher de commande]", "[Informations sur ma
société]") If Z < StrPlancher Then MsgBox "Le Plancher de Facturation est fixer à " &
StrPlancher & " ?" & vbCrLf & "Le Montant de la commande n'atteind pas le
plancher de facturation" & vbCrLf & "le montant de votre devis s'élève à " &
Z & " ?", 64, "INFORMATION" end sub
"Florian Delizy" a écrit dans le message de news:
04af01c34f88$30a08a80$ Bonjour,
Je cherche a effectuer une simple requete de calcul de somme, toutefois j'ai beau faire Access arrondis les résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements dans la devise], DEVISE FROM mouvements_comptes GROUP BY EXCPTA,DEVISE ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à virgules; toutefois le résultat est toujours sans les décimales (comme il s'agit d'une application bancaire, malheureusement je perds donc les centimes ...)
Est-ce que quelqu'un a une idée ?
.
Florian Delizy
Arglllllll !!!!
Merci, le type n'avait pas été copié du coup il m'avait mis des entiers !!!!
désolé de vous avoir embété :-(
Florian Delizy, qui va se pendre a son cable de souris ...
-----Message d'origine----- Bonjour.
je viens de tester cette requête sur une table exemple et je retrouve bien
mes décimales: SELECT Left([Lenom],3) AS expr1, Sum(Table1.MONTANT) AS SommeDeMONTANT
FROM Table1 GROUP BY Left([Lenom],3) ORDER BY Left([Lenom],3);
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements
dans la devise], DEVISE FROM mouvements_comptes GROUP BY EXCPTA,DEVISE ORDER BY EXCPTA;
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Florian Delizy" a écrit dans le message de
news:085e01c3501b$2acd42e0$ Malheureusement je pense que tu n'as pas compris, je cherche a effectuer en SQL une requete renvoyant la somme verticale d'un chmap (en utilisant l'instruction SUM) mais Access me coupe mes décimales dans le résultat tout au moins ...
Donc en somme je perds mes centimes et je ne comprends pas pourquoi ...
-----Message d'origine----- bonjour
Utilise une varaible de type currency private sub On Error Resume Next Dim X As String Dim Z As Currency Dim StrPlancher As Currency X = Prix Z = X Z = CCur(Int(X * 100 + 0.5) / 100) Me.Caption = "Le montants et de " & Z & "?" Me.VAL = Z Me.Prix = True StrPlancher = DLookup("[plancher de commande]", "[Informations sur ma
société]") If Z < StrPlancher Then MsgBox "Le Plancher de Facturation est fixer à " &
StrPlancher & " ?" & vbCrLf & "Le Montant de la commande n'atteind pas le
plancher de facturation" & vbCrLf & "le montant de votre devis s'élève à " &
Z & " ?", 64, "INFORMATION" end sub
"Florian Delizy" a écrit dans le message de news:
04af01c34f88$30a08a80$ Bonjour,
Je cherche a effectuer une simple requete de calcul de somme, toutefois j'ai beau faire Access arrondis les résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements
dans la devise], DEVISE FROM mouvements_comptes GROUP BY EXCPTA,DEVISE ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à virgules; toutefois le résultat est toujours sans les décimales (comme il s'agit d'une application bancaire, malheureusement je perds donc les centimes ...)
Est-ce que quelqu'un a une idée ?
.
.
Arglllllll !!!!
Merci, le type n'avait pas été copié du coup il m'avait
mis des entiers !!!!
désolé de vous avoir embété :-(
Florian Delizy, qui va se pendre a son cable de souris ...
-----Message d'origine-----
Bonjour.
je viens de tester cette requête sur une table exemple et
je retrouve bien
mes décimales:
SELECT Left([Lenom],3) AS expr1, Sum(Table1.MONTANT) AS
SommeDeMONTANT
FROM Table1
GROUP BY Left([Lenom],3)
ORDER BY Left([Lenom],3);
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des
Mouvements
dans la devise], DEVISE
FROM mouvements_comptes
GROUP BY EXCPTA,DEVISE
ORDER BY EXCPTA;
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Florian Delizy" <florian.delizy@utbm.fr> a écrit dans le
message de
news:085e01c3501b$2acd42e0$a301280a@phx.gbl...
Malheureusement je pense que tu n'as pas compris, je
cherche a effectuer en SQL une requete renvoyant la somme
verticale d'un chmap (en utilisant l'instruction SUM) mais
Access me coupe mes décimales dans le résultat tout au
moins ...
Donc en somme je perds mes centimes et je ne comprends pas
pourquoi ...
-----Message d'origine-----
bonjour
Utilise une varaible de type currency
private sub
On Error Resume Next
Dim X As String
Dim Z As Currency
Dim StrPlancher As Currency
X = Prix
Z = X
Z = CCur(Int(X * 100 + 0.5) / 100)
Me.Caption = "Le montants et de " & Z & "?"
Me.VAL = Z
Me.Prix = True
StrPlancher = DLookup("[plancher de
commande]", "[Informations sur ma
société]")
If Z < StrPlancher Then MsgBox "Le Plancher de
Facturation est fixer à " &
StrPlancher & " ?" & vbCrLf & "Le Montant de la commande
n'atteind pas le
plancher de facturation" & vbCrLf & "le montant de votre
devis s'élève à " &
Z & " ?", 64, "INFORMATION"
end sub
"Florian Delizy" <florian.delizy@utbm.fr> a écrit dans le
message de news:
Je cherche a effectuer une simple requete de calcul de
somme, toutefois j'ai beau faire Access arrondis les
résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des
Mouvements
dans la devise], DEVISE
FROM mouvements_comptes
GROUP BY EXCPTA,DEVISE
ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à
virgules; toutefois le résultat est toujours sans les
décimales (comme il s'agit d'une application bancaire,
malheureusement je perds donc les centimes ...)
Merci, le type n'avait pas été copié du coup il m'avait mis des entiers !!!!
désolé de vous avoir embété :-(
Florian Delizy, qui va se pendre a son cable de souris ...
-----Message d'origine----- Bonjour.
je viens de tester cette requête sur une table exemple et je retrouve bien
mes décimales: SELECT Left([Lenom],3) AS expr1, Sum(Table1.MONTANT) AS SommeDeMONTANT
FROM Table1 GROUP BY Left([Lenom],3) ORDER BY Left([Lenom],3);
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements
dans la devise], DEVISE FROM mouvements_comptes GROUP BY EXCPTA,DEVISE ORDER BY EXCPTA;
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Florian Delizy" a écrit dans le message de
news:085e01c3501b$2acd42e0$ Malheureusement je pense que tu n'as pas compris, je cherche a effectuer en SQL une requete renvoyant la somme verticale d'un chmap (en utilisant l'instruction SUM) mais Access me coupe mes décimales dans le résultat tout au moins ...
Donc en somme je perds mes centimes et je ne comprends pas pourquoi ...
-----Message d'origine----- bonjour
Utilise une varaible de type currency private sub On Error Resume Next Dim X As String Dim Z As Currency Dim StrPlancher As Currency X = Prix Z = X Z = CCur(Int(X * 100 + 0.5) / 100) Me.Caption = "Le montants et de " & Z & "?" Me.VAL = Z Me.Prix = True StrPlancher = DLookup("[plancher de commande]", "[Informations sur ma
société]") If Z < StrPlancher Then MsgBox "Le Plancher de Facturation est fixer à " &
StrPlancher & " ?" & vbCrLf & "Le Montant de la commande n'atteind pas le
plancher de facturation" & vbCrLf & "le montant de votre devis s'élève à " &
Z & " ?", 64, "INFORMATION" end sub
"Florian Delizy" a écrit dans le message de news:
04af01c34f88$30a08a80$ Bonjour,
Je cherche a effectuer une simple requete de calcul de somme, toutefois j'ai beau faire Access arrondis les résultats (perte des décimales):
Ma requête est :
SELECT EXCPTA, Sum(MontantRelDev) AS [Somme des Mouvements
dans la devise], DEVISE FROM mouvements_comptes GROUP BY EXCPTA,DEVISE ORDER BY EXCPTA;
MontantRelDev étant une colone contenant des nombres à virgules; toutefois le résultat est toujours sans les décimales (comme il s'agit d'une application bancaire, malheureusement je perds donc les centimes ...)
