Newsgroup: it.comp.appl.access
Titolo: Arrotondamenti non corretti in esportazione excel

Buongiorno a tutti,
il mio problema oggi è questo:
 
in access il campo iva calcolato è 1,84 ed è quello che mi stampa in fattura.
 
Se faccio poi un elenco di fatture con i vari totali da esportare in excel, il totale che vedo è 1,84, se però seleziono la cella mi accorgo che il valore importato è 1,8443 quindi i totali potrebbero non essere allineati... Come posso fare a dirgli di esportare solo 1,84 oltre che indicare nella query che è un campo Euro... Pensavo fosse sufficiente...
C'è una soluzione?
 
Grazie a tutti...

 C'è una soluzione?
 
 
http://www.donkarl.com/it?FAQ2.1
 
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 
 
 
 


Ciao Karl, grazie per la risposta ma non riesco a capire dove devo inserire la function del tuo link.
La mia query è questa:
 
SELECT QFattureEstrap.Fattura.IdFattura, QFattureEstrap.NumeroFattura, QFattureEstrap.DataFattura, QFattureEstrap.RagioneSociale, QFattureEstrap.Indirizzo, QFattureEstrap.Cap, QFattureEstrap.Comune, QFattureEstrap.Prov, QFattureEstrap.PIva, QFattureEstrap.CodFiscale, Sum(IIf([Aliquota]=4,[ImponibileRigo])) AS ImpCodIva4, Sum(IIf([Aliquota]=10,[ImponibileRigo])) AS ImpCodIva10, Sum(IIf([Aliquota]=22,[ImponibileRigo])) AS ImpCodIva22, Sum(IIf([Codice]="101",[ImponibileRigo])) AS Esente, Sum(IIf([Codice]="150",[ImponibileRigo])) AS Escluso, Sum(IIf([Aliquota]=4,[TxtImportoIva])) AS Iva4, Sum(IIf([Aliquota]=10,[TxtImportoIva])) AS Iva10, Sum(IIf([Aliquota]=22,[TxtImportoIva])) AS Iva22, Sum(QFattureEstrap.TxtImportoCp) AS CP, Last(QFattureEstrap.Bollo) AS BolloImporto, Sum(QFattureEstrap.TxtImportoRACP) AS SommaDiTxtImportoRACP, Sum([ImponibileRigo]+[TxtImportoIva]+[TxtImportoCp])+[BolloImporto] AS TotaleDoc, Sum([ImponibileRigo]+[TxtImportoIva]+[TxtImportoCp]-[TxtImportoRACP])+[BolloImporto] AS NettoAPagare, QFattureEstrap.TipoIncasso, (IIf([TipoIncasso]="1",Format([NettoAPagare],"Currency"),"")) AS ImportoCassa, (IIf([TipoIncasso]="2",Format([NettoAPagare],"Currency"),"")) AS ImportoPOS, (IIf([TipoIncasso]="3",Format([NettoAPagare],"Currency"),"")) AS ImportoAB, (IIf([TipoIncasso]="4",Format([NettoAPagare],"Currency"),"")) AS ImportoBB
FROM TabIva INNER JOIN QFattureEstrap ON TabIva.IdIva = QFattureEstrap.IdIva
GROUP BY QFattureEstrap.Fattura.IdFattura, QFattureEstrap.NumeroFattura, QFattureEstrap.DataFattura, QFattureEstrap.RagioneSociale, QFattureEstrap.Indirizzo, QFattureEstrap.Cap, QFattureEstrap.Comune, QFattureEstrap.Prov, QFattureEstrap.PIva, QFattureEstrap.CodFiscale, QFattureEstrap.TipoIncasso
HAVING (((QFattureEstrap.DataFattura) Between [Inserire data inizio] And [Inserire data fine]));
 
e con un pulsante, l'esportazione in excel è così:
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "QEstrapolazioneDati"
 
    DoCmd.TransferSpreadsheet acExport, , stDocName, "C:\Ib\ExportDoc.xlsx"
 
    MsgBox ("Esportazione dati avvenuta con successo! Verificate nel percorso C:\Ib\ExportDoc.xlsx. Buon lavoro!!!"), vbOKOnly
 
Sai darmi un aiuto?
Perdona la mia ignoranza in materia...
Grazie mille Ciao

 ...
 
p.e. nella stringa SQL prova di cambiare tutte le Format(...) come questa:
 
(IIf([TipoIncasso]="1",Format([NettoAPagare],"0.00"))) AS ImportoCassa,
