[Resolvido]Virgula por Ponto

Bom dia
Numa consulta com o campo: Consumo
Tenho números Ex: 7,25 e para trocar a virgula por Ponto
Faço a função Replace e diz-me erro, qual será?

Me.Consumo = Replace(Me.Consumo,",",".")

Obrigado
Pina

tenta

Me.NomeCampo = Replace(Me.NomeCampo, ",", ".")

se não der tenta

Private Sub Comp_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 44, 48 To 57 ' {Backspace}, {,}, {0} a {9}, aceita estes caracteres. ' Continua
Case 46 ' {.}, troca ponto por virgula.
KeyAscii = 44 ' {,}
Case Else
KeyAscii = 0 ' Demais teclas, não aceita.
End Select
End Sub

http://maximoaccess.forumeiros.com/t3676-trocar-virgula-pelo-ponto

Boas toyebom
Obrigado por responder
Fiz a função replace, Me.Consumo = Replace(Me.Consumo,",",".")

Na consulta e dava erro, envio o Ex:

Pina

Olá a todos
Efetuei o teste e funcionou.



O Replace sugerido pelo colega toyebom funciona, o erro deve-se porque quando utilizamos diretamente em código VBA o separador é  , (virgula), quando é num campo texto de um formulário, reporte ou consulta, devemos alterar por ; (ponto e virgula).
Foi o que efetuei.
Abraço

Boas Teixeira
Obrigado deu certo
Pina

Obrigado pelo retorno o forum agradece.
Toyebom, ficou resolvido com a primeira sugestão.
Abraço a todos

ok

Boa tarde a todos!

Tenho uma dúvida e gostaria de saber se vocês podem me ajudar.
Gostaria de saber aonde devo colocar o código descrito acima (Private Sub...).
Consegui fazer funcionar com o comando "Replace", mas gostaria de entender e usar a outra solução.

Como estou tentando aprender a usar o VBA, criei um programinha de calculadora simples para ir treinando e aprendendo a programar.
Então, parece-me que no código apresentado acima, além de trocar a vírgula pelo ponto, quanto for digitar os valores só será aceito número.

Campos do formulário: "txtValor1"; "txtValor2" e "txtResultado".
Botões para: "Adição";"Subtração";"Divisão";"Multiplicação" e "Limpar dados"
Não tem tabela, só o formulário.

Estou usando o Access 2007 e uso o Windows 7.

Caso não seja aqui o local correto, lhes peço desculpa!!!

De antemão, quero agradecer a todos!!!

Muito top isso me ajudou muito

Olá Roberto,

Obrigado pelo feedback, o fórum agradece.

Abraço e bons estudos

Oi ´
Álvaro, teria como fazer uma função semelhante a essa em um caixa de texto calculada, com um uma expressão de cáculo em seu valor padrão pois não consegui essa proeza
Replace(Me. txtTotalaPagar, ",", ".")
fiz assim no evento da caixa de texto após atualizar funciona mais só com caixa de texto sem expessão de cálculo, com expressão ainda não consegui

Olá Roberto,

Teste assim:

Código:

=Replace([txtTotalaPagar]; ","; ".")

ou

Código:

=Replace([txtTotalaPagar], ",", ".")

Abraço

Obrigado Álvaro deu certo
um bom dia e Deus Lhe abençoe

Olá Roberto,

Obrigado pelo feedback.