vb6 - Non riesco a far mantenere i decimali!

[XVincentX]

Salve.
Questo mio problema deve essere provocato da access...
Allora in pratica io mando al database tramite i comandi

rs.addnew
       rs("costo") = me.TxtCosto.text
rs.update

Ora il costo è in decimali, e li mantiene bene, ad esempio 2,02 € funziona, ma nel caso in cui scrivo 1,00 €, il database memorizza soltanto il valore 1 senza i decimali.
Il cliente è un gran cagacazzo, ma purtroppo ha sempre ragione e quindi devo cercare di accontentarlo.
Mi potete aiutare?

[Brainjar]

Il Cliente mica deve vedere i dati di Access, quando li estrai,
formattali :

txtCosto.Text = Format$( rs("costo"), "0.##")

Oppure imposta i decimali sul campo della tabella.
Comunque fai prima con la Format.

Ciao,

[XVincentX]

Faccio prima a impostare i decimali dati che sono tante le parti in cui si estraggono i dati..come li imposto??

[mardok30]

In Access devi modificare il Tipo dati del campo e metterlo a valuta con due cifre decimali(vedi tu l'impostazione che ti serve)
Ps. devi andare nella struttura della tabella dove c'è la possibilità di impostare il campo come testo, numerico, valuta, ecc... e modificare il tutto.
Ciao

[XVincentX]

Ho provato ma non funziona, non mantiene i decimali "inutili"
L'idea di usare il format è buono, ma il problema è che certi dati vengono visualizzati in un datagrid, il che è un problema...come potrei risolvere?

[axsw]

Io ho avuto il tuo stesso problema e lo risolto con le format

Dim unit As String
Dim tot As String
'nella tua sub
 unit = txt7.Text
 tot = txt8.Text
 unit = FormatNumber(unit, 2)
 tot = FormatNumber(tot, 2)
  If unit = 0# Then
   unit = 0
  End If
  If tot = 0# Then
   tot = 0
  End If
 TextBox.Text = unit
 TextBox.Text = tot

Ciao