[Resolvido]Pedido de ajuda Trocar vírgula por ponto, tem como manter as casa decimais

Venho pedir a voces a ajuda pra implementar mais ainda uma conmsulta, verifiquei no Tópico https://www.maximoaccess.com/t20401-resolvidovirgula-por-ponto#150264
tá o que foi dito lá me serverve tanto é que estou anexando um exemplo e dentro desse exemplo além da expressão que tem em substituir a virgula pelo ponto já está funcionando normal
Aí que vem o pedido de ajuda pra além de estar fazendo a troca , eu gostaria que me ajudassem a aprimorar a expressão para que matenha as casas decimais, isso é possivel teria que funcionar dentro da propria consulta
no caso  a coluna consumo seria valor moeda ou padrão com duas casas decimais e são essas duas casa decimais que gostaria de manter na expressão da consulta ou seja apenas trocar a virgula por ponto e manter a numeração exatamente como está
a expressão que troca a virgula pelo ponto é essa
xConsumo: Substituir([consumo];",";".")

no aguardo dos colegas

tente...

Private Sub txtValor_KeyPress(KeyAscii As Integer)

If KeyAscii = 44 Then
KeyAscii = 46
End If

End Sub

não amigo não resolveu essa situação tem que ser na expressão dentro da expressão na consulta , pois esse campo da consulta ficará dentro de um sub form para motrar um subtotal que no rodapé do formaulário tem um campo  =Soma([subtotal]) que antes da de trocar a vírgula estava normal a soma mas agora está multiplicando por dez

eu pensei em algo assim na caixa de texzto final onde vai mostrar o resultado final ao invés de usar essa expressão dentro da consulta usaria na caixa de texto final essa expressão

=Nz([frmsub_venda_servicos].[Formulário]![Texto16]) & Substituir([TOTAL1];",";".")
aí mais algo pra manter os dois zeros como numeros decimais

mas não está dando certo

bom dia

no access eu faria assim...

replace(format(TOTAL1, "0,00"), ",", ".")

Estou tentando em varios eventos do form e da propria caixa de texto e não está dando
o replace que estou fazendo é
Me.txtTotalApagar = Replace(Format(txtTotalApagar, "0,00"), ",", ".")

manda o seu bd

Não tem como eu mandar está muito complexo pra desmembrar ele, pra desmembrar ele pra el funcionar aí teria que mandar muitas partes

eu quero trocar a virgula por ponto na caixa de texto total a pagar da frenteCaixa do exemplo em anexo[img][/img]

Boa noite
Veja se ajuda: (https:)//www.youtube.com/watch?v=RwJvjH3KXVg

Alexandre não entendi porque esse video me ajudaria, sendo que é uma configuração do windows na qual não pretendo preciso altera-la
oque eu não estou conseguindo fazer é formatar a caixa de texto calculada de nome total a pagar, dentro desse útltimo trocando a vírgula pelo ponto isso no access, gostaria de entender onde o vídeo me ajudaria nisso
preciso fazer essa função replace funcionar nessa caixa texto, em uma caixa de texto simples sem expressão no valor de controle funciona muito bem
a expressão que dá certo é
Me.txtTotalaPagar = Replace(Me. txtTotalaPagar, ",", ".")
mais só se a caixa de texto não tiver uma expressão de calculo

raijeweb...

tenta assim

Me.txtTotalApagar = Format(Replace(txtTotalApagar, "," "."), "0.00")

Poxa Ribeiro não deu não eu coloquei e não fez nada
mas eu acho que o caminho é por aí

vc ta tentando formatar o mesmo valor da caixa de texto!

o replace e format é de um campo do bd para mostrar na caixa de texto...

cria uma caixa de texto invisível e calcule lá o "dadosdacaixainvisivel"...

depois faça o replace e format da caixa de texto com o "dadosdacaixainvisivel"!

Me.txtTotalApagar = replace(format(dadosdacaixainvisivel, "0,00), "," ".")

Amigo tente fazer o que sugeriu com o exemplo que anexei na mensagem número 8, última vez eu tentei e não dá resultado, te agradeço se puder fazer isso, que já tô ficando doido

bn...


na fonte do contrôle > "totalPagar" deixe vazio

e acrescente no código... > No Atual > [Procedimento do evento] >


Private Sub Form_Current()

totalPagar = Replace(Format(Forms!frm_vendas!VendaDetalhe!Texto13.Value, "0.00"), ",", ".")

End Sub


agora vai!

Ribeiro, agora deu certo eu tinha entendido mas já de cabeça quente não estava mais racicionando direito, funcinou exatamente como tem que ser se aparecer mais alguma dúvida no decorrer do desenvolvimento do projeto abrirei um novo tópico e vou dar a esse como resolvido
obrigado a todos voces que leram e se empenharam em me ajudar
fiquem com Deus e que ele abençoe a todos