MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Trocar virgula pelo ponto

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4235
    Registrado : 06/11/2009

    Trocar virgula pelo ponto Empty Trocar virgula pelo ponto

    Mensagem  Assis em 27/4/2010, 14:08

    Quer trocar a virgula pelo Ponto ?

    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

      Data/hora atual: 4/12/2020, 05:08