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

Assis 30/6/2014, 20:21

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº1

[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** 30/6/2014, 21:08

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº2

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 30/6/2014, 22:13

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº3

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** 30/6/2014, 22:16

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº4

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 30/6/2014, 22:24

daniloreiis

daniloreiis: Avançado; Respeito às regras :

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

Mensagem nº5

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 30/6/2014, 22:28

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº6

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 1/7/2014, 13:44

daniloreiis

daniloreiis: Avançado; Respeito às regras :

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

Mensagem nº7

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 1/7/2014, 15:16

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº8

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 1/7/2014, 18:23

daniloreiis

daniloreiis: Avançado; Respeito às regras :

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

Mensagem nº9

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 1/7/2014, 19:12

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº10

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** 1/7/2014, 20:37

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº11

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 1/7/2014, 21:26

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº12

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

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº13

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

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

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

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

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

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

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

Trocar Virgula (,) por ponto (.) teclado numerico

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

Trocar Virgula (,) por ponto (.) teclado numerico

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

Trocar Virgula (,) por ponto (.) teclado numerico

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

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

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

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

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada