|
|
Postada em 24/10/2006 10:56 hs
oi galera, estou unsano bc de do access do 2000 com campo "moeda" Private Sub TxtValor_LostFocus()
TxtValor.Text = Format(TxtValor.Text, "###,##0.00; ###,##0.00;0;ulo") End Sub
e gravo assi ... bd_Recibo("valor") = TxtValor.Text bd_Recibo("extenso") = Extenso_Valor(TxtValor.Text) ... o valor por estenso grava certo mais o valor ele tras errado exp. eu digito assim 15,50 no campo txtvalor.ext mais depois que grava ele traz assim 1.550,00 |
|
|
|
|
|
|
|
Postada em 24/10/2006 11:18 hs
tenta assim: TxtValor.Text = Format(replace(TxtValor.Text,".",","), "###,##0.00; ###,##0.00;0;ulo") |
|
|
|
|
|
Postada em 24/10/2006 11:34 hs
não deu... quando eu digito 15,00, fica certinho mais na hora de gravar, ele grava 1.500,00 no banco. |
|
|
|
|
|
Postada em 24/10/2006 11:52 hs
Olá, amigos! Edson479, Tente gravar os valores assim: bd_Recibo("valor") = Replace(TxtValor.Text, ",", ".") Com relação ao que respondeu o ghost_jlp, apenas troquei o 'ponto' pela 'vírgula'. OBS.: seria melhor você remover a formatação do 'txtValor' do seu evento 'LostFocus'. Joseph Solvay Técnico em Informática, programador e futuro filósofo São Paulo/SP < jsff77@hotmail.com> |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 24/10/2006 12:49 hs
agora de certo, mais tuda as dicas que eu tinha e as dicas de vcs dava certo, o erro ela porque do "." exp 1.500,50 |
|
|
|
|
|
Postada em 24/10/2006 12:51 hs
|
|
|
|
