conversione euro

[BOYROMA1]

per convertire in euro una text uso il seguente codice

Text1.Text = Format(Text1.Text, "##,##0.00")

il fatto è che se non supero i 1.000 euro va bene
se scrivo 1.215,11

mi toglie il punto quando salvo.e mi salva 1215,11

nel database il campo e' tipo dati valuta ,formato euro,posizioni decimali 2.

come posso risolvere questo problema?

[I'mtheleader]

Il tuo codice funziona perfettamente

Solo che non devi formattare direttamente la textbox

Ti conviene trasferire il contenuto della textbox in una variabile

di tipo currency e formattare la variabile

in questo modo:

Inizio Sub

Dim Numero as Currency

Numero = text1.text

text1.text = Format(Numero, "##,##0.00")

Fine sub

Provalo e dimmi come va

[Mychy]

Io per formattare in euro uso:

sommaInEuro=Format(rs!somma, "€#,##0.00")

e non ho problemi

[I'mtheleader]

era per dire di formattare una variabile piuttosto che una textbox

[BOYROMA1]

in access il campo nel database come lo dichiarate ?
penso sia un problema del database perche la formattazione mi funziona ma quando faccio
update mi toglie il punto
???

[amodio]

io in access lo dichiaro come double

hai provato con la funzione formatnumber?
fai formatnumber(numero,2)

[BOYROMA1]

non e' un problema di access è un problema dell'update di visual basic perche se inserisco 1.012,11 € direttamente nel database access
mi tiene il punto mentre in visual basic me lo tiene fino a che non faccio l'update
come mai?
voi cosa usate?

[ladyBlu]

boy, questa postata da Mychy dovrebbe essere la soluzione...

Format(Text, "€#,##0.00")

l'hai provata?

[BOYROMA1]

si lady io la usavo fino a qualche giorno fa perche andava bene solo che mi sono accorto che scrivendo 1.112,10 euro ad esempio quando fai lupdate ti salva in 1112,10



cioè se metti una text
la leghi ad un campo access di tipo valuta,formato euro,posizioni decimali 2.
formatti la text:

If Text1.Text <> "" Then

Text1.Text = Format(Text1.Text, "##,##0.00")
End If

o usando anche variabili currency o double


e fai lupdate di quel dato ti leva il punto

a voi no?

:master:

[ladyBlu]

prova a togliere le formattazioni e a passare al database il numero così come è scritto nella text, solo trasformandolo in Single:

CSng(Text1)

chiaramente il tuo campo sul database è di tipo Single o Valuta €, vero?