MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Seg 30 Jun 2014, 16: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 100%

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

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

    Mensagem  Alexandre Neves em Seg 30 Jun 2014, 17: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 100%

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

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

    Mensagem  Assis em Seg 30 Jun 2014, 18:13

    Boa noite Alexandre

    Veja a imagem


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

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Seg 30 Jun 2014, 18: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 100%

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

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

    Mensagem  daniloreiis em Seg 30 Jun 2014, 18: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 100%

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

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

    Mensagem  Assis em Seg 30 Jun 2014, 18: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 100%

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

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

    Mensagem  daniloreiis em Ter 01 Jul 2014, 09: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 100%

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

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

    Mensagem  Assis em Ter 01 Jul 2014, 11: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 100%

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

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

    Mensagem  daniloreiis em Ter 01 Jul 2014, 14: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:
    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 100%

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

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

    Mensagem  Assis em Ter 01 Jul 2014, 15:12

    Não resulta



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

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Ter 01 Jul 2014, 16: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 100%

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

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

    Mensagem  Assis em Ter 01 Jul 2014, 17: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: Qua 16 Out 2019, 16:24