[Resolvido]A questao do Ponto ou Virgula em campos para valores do tipo moeda.

Caso alguem possa, necessito de opiniões quanto a esta questão..

Em uma caixa texto onde se digita determinado valor pata inserir em um campo do Tipo Double..

Suponhamos que o usuário digite 2000.00, na introdução na tabela será inserido: 200000
Para que aceita corretamente é necessário separar por vírgula.. agora se o usuário digitar: 2,000,00.. o valor não será inserido na tabela..

Qual a melhor solução para se evitar erros do usuário?

Eu fiz algo porém se o usuário digitar tudo com ponto, substitui todos os pontos por vírgula o que gera erro..
A forma correta de digitação é: 2000,00 ou 2.000,00

If InStr(1, Me.txtValor2, ".") > 0 Then
    MsgBox "Para os valores decimais coloque . (Ponto) para separá-los"
    Me.txtValor2 = Format(Replace(Me.txtValor2, ".", ","), "Currency")
Else
    Me.txtValor2 = Format(Me.txtValor2, "Currency")
End If
End Sub

Cumprimentos.

Uma solução pode ser usar o "Ao alterar" dos campos para só permitir números e o "Após atualizar" para formatar da forma correta.

De um pequeno exemplo Mestre..

Cumprimentos.

Veja se algo assim quebra o galho, considerando o nome do campo como txtNum:

No evento "Ao pressionar tecla":

Código:

Private Sub txtNum_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Or (KeyAscii >= 48 And KeyAscii <= 57) Then
    Else
        KeyAscii = 0
    End If
End Sub


No evento "Após atualizar"

Código:

Private Sub txtNum_AfterUpdate()
    Me.txtNum = Replace(Replace(Me.txtNum, ".", ""), ",", "")
    Me.txtNum = Format(Left(Me.txtNum, Len(Me.txtNum) - 2), "#,0") & "," & Right(Me.txtNum, 2)
End Sub

Perfect..

    Me.txtValor2 = Replace(Replace(Me.txtValor2, ".", ""), ",", "")
    Me.txtValor2 = Format(Left(Me.txtValor2, Len(Me.txtValor2) - 2), "#,0") & "," & Right(Me.txtValor2, 2)

Obrigado.

Grato pelo retorno. O fórum agradece

Só a título de curiosidade, eu manteria o evento do KeyAscii para evitar que alguem digite coisa errada no campo, como letras e símbolos junto com números.