MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Assis 30/6/2014, 20:21

    Boa noite amigos

    Uso este codigo para trocar a virgila por ponto.

    Private Sub txtFiltro_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 44 '(,)
    KeyAscii = 46 ' troca para (.)
    End Select
    End Sub

    Mas se clikar no ponto do teclado numerico não funciona.

    Qual é o numero da tecla que tem um (.) e ( Del ) no teclado numérico ao lado do ( 0 Zero )

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Alexandre Neves 30/6/2014, 21:08

    Boa noite, Assis
    Penso ser o 46


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Assis 30/6/2014, 22:13

    Boa noite Alexandre

    Veja a imagem


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Alexandre Neves 30/6/2014, 22:16

    Sim, teste
    Private Sub Txt1_KeyPress(KeyAscii As Integer)
    msgbox KeyAscii
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  daniloreiis 30/6/2014, 22:24

    Boa noite!

    Select Case KeyCode
    Case Is = vbKeyDecimal
    ' troca para (.)

    ajuda?


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Assis 30/6/2014, 22:28

    Certo Alexandre
    nos dois casos é 46, mas o código não tem a mesma função para as duas teclas.


    .................................................................................
    *** Só sei que nada sei ***
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  daniloreiis 1/7/2014, 13:44

    Bom dia Assim para mim funcionou na teclado numérico

    Select Case KeyCode
    Case Is = vbKeyDecimal
    End Select


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Assis 1/7/2014, 15:16

    Boa tarde Danilo

    Assim não dá:

    Private Sub txtFiltro_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 44
    KeyAscii = 46
    Case Is = vbKeyDecimal
    KeyAscii = 46
    End Select
    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  daniloreiis 1/7/2014, 18:23

    Boa tarde!

    mude o evento de Press para Down
    e Select Case KeyAscii por Select Case KeyCode
    assim:

    Código:
    Private Sub txtFiltro_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case Is = vbKeyDecimal
    MsgBox "troca ponto"
    KeyAscii = 46
    End Select
    End Sub

    segue teste abaixo:
    http://www.4shared.com/rar/7YrZJSR_ba/virgulaeponto.html


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Assis 1/7/2014, 19:12

    Não resulta



    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Alexandre Neves 1/7/2014, 20:37

    Boa noite,
    É isto, Assis?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Assis 1/7/2014, 21:26

    Grande Alexandre
    Já não tinha ideia de ter passado por aí .... è do ADN ( Afastamento Data Nascimento)
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico Empty Re: [Resolvido]Trocar Virgula (,) por ponto (.) teclado numerico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 22:14