Tipo non corrispondente

[fruttosio79]

Non riesco a capire perchè in questa formattazione:

imponibile_04 = FormatNumber((RSiva("Totale")*100/104),2)

mi esca errore:
Tipo non corrispondente: 'FormatNumber'.

Come mai?
Succede anche con:

imponibile_04 = FormatNumber(RSiva("Totale")*100/104 , 2)

oppure con

imponibile_04 = FormatNumber(RSiva("Totale")*100/104,2)

[Mems]

Prima di fare la formatNumber verifica che ogni dato sia numerico...

[fruttosio79]

Si il dato è numerico con la virgola e molti decimali, ma io vorrei limitarlo a 2 decimali essendo un prezzo in euro.

Però può capitare che esso sia NULL, nel senso che dalla query non si estragga nessun valore. Forse è qui il problema.
Come posso ovviare?

Il codice è:

sqlString = "SELECT SUM(prodotti_prezzo) as Totale " &_
	"FROM  prodotti, ordinidettaglio, ordini " &_
	"WHERE ordinidettaglio_ordineID = " & ordine &_
	" AND ordinidettaglio_prodottoID = prodotti_id"	&_
	" AND prodotti_IVA = 4" &_
	" AND ordini_id =" & ordine 
SET RSiva = Con.Execute( sqlString )
WHILE NOT RSiva.EOF
imponibile_04 = FormatNumber((RSiva("Totale")*100/104),2)
RSiva.MOVENEXT
WEND

Grazie per l'aiuto

[Mems]

Infatti. Se è NULL o vuoto da errore.
Fai un controllo prima se è NULL o vuoto dai zero di default.

[fruttosio79]

Qualcosa di questo tipo:

sqlString = "SELECT SUM(prodotti_prezzo) as Totale " &_
	"FROM  prodotti, ordinidettaglio, ordini " &_
	"WHERE ordinidettaglio_ordineID = " & ordine &_
	" AND ordinidettaglio_prodottoID = prodotti_id"	&_
	" AND prodotti_IVA = 4" &_
	" AND ordini_id =" & ordine 
SET RSiva = Con.Execute( sqlString )
WHILE NOT RSiva.EOF

IF imponibile_04 = " " THEN
	imponibile_04 = 0
ELSE
	imponibile_04 = FormatNumber((RSiva("Totale")*100/104),2) 	
END IF	

RSiva.MOVENEXT
WEND

mi sembra corretto solo che mi dà ancora "tipo non corrispondente" !!

:master:

[fruttosio79]

Originariamente inviato da fruttosio79
Qualcosa di questo tipo:

sqlString = "SELECT SUM(prodotti_prezzo) as Totale " &_
	"FROM  prodotti, ordinidettaglio, ordini " &_
	"WHERE ordinidettaglio_ordineID = " & ordine &_
	" AND ordinidettaglio_prodottoID = prodotti_id"	&_
	" AND prodotti_IVA = 4" &_
	" AND ordini_id =" & ordine 
SET RSiva = Con.Execute( sqlString )
WHILE NOT RSiva.EOF

IF imponibile_04 = " " THEN
	imponibile_04 = 0
ELSE
	imponibile_04 = FormatNumber((RSiva("Totale")*100/104),2) 	
END IF	

RSiva.MOVENEXT
WEND

mi sembra corretto solo che mi dà ancora "tipo non corrispondente" !!

:master:

Voi cosa mi consigliate di fare per permettermi di formattare imponibile_04 anche quando vuoto?
Non ho proprio idea :master:

[fruttosio79]

Ricapitolando, io devo formattare un valore che estraggo da un recordset. Tale valore è un numero ed io devo formattarlo con 2 decimali e fino a qui tutto ok.
Può capire a volte che tale valore sia vuoto per cui se provo a formattarlo mi dà errore nella pagina.

Questo è il codice che uso:

sqlString = "SELECT SUM(prodotti_prezzo) as Totale " &_
	"FROM  prodotti, ordinidettaglio, ordini " &_
	"WHERE ordinidettaglio_ordineID = " & ordine &_
	" AND ordinidettaglio_prodottoID = prodotti_id"	&_
	" AND prodotti_IVA = 4" &_
	" AND ordini_id =" & ordine 
SET RSiva = Con.Execute( sqlString )
WHILE NOT RSiva.EOF
imponibile_04 = FormatNumber((RSiva("Totale")*100/104),2)
RSiva.MOVENEXT
WEND

ed il valore che devo formattare è "imponibile_04".
Come posso fare?

Ciaoo

[optime]

invece di usare

rs("campo")

usa

(rs("campo") & "")

cosi' non hai il problema del null

[fruttosio79]

Cioè:
imponibile_04 = FormatNumber((RSiva("Totale")*100/104 & ""),2)

[optime]

no. leggi bene