TEXTBOX

SARAGIOTTO 20/04/2010 13:22:28
#339788
OI PESSOAL
PROCUREI AQUI NO FORUM MAS NAO ACHEI,
COMO Q EU FAÇO PARA SOMENTE DIGITAR NUMEROS EM UM TEXTBOX?
E OUTRA PERGUNTA, EU UM TEXTBOX, COMO QUE EU FAÇO PARA QUE, AO DIGITAR POR EXEMPLO, 3,5 (com virgula) eu transforme automaticamente em 3.5 (PONTO) PQ NO FIREBIRD TEM Q SER COMO PONTO E NAO COMO VIRGULA
ABRAÇOS
DANIKULL 20/04/2010 13:45:06
#339790
SARAGIOTTO, boa tarde.

1º. Pergunta:
Citação:

COMO Q EU FAÇO PARA SOMENTE DIGITAR NUMEROS EM UM TEXTBOX?


-> Resposta:

If Not ((KeyAscii >= Asc([Ô]0[Ô]) And KeyAscii <= Asc([Ô]9[Ô])) Or KeyAscii = 8 Or KeyAscii = 44) Then
    KeyAscii = 0
End If


2º. Pergunta:
Citação:

EU UM TEXTBOX, COMO QUE EU FAÇO PARA QUE, AO DIGITAR POR EXEMPLO, 3,5 (com virgula) eu transforme automaticamente em 3.5 (PONTO) PQ NO FIREBIRD TEM Q SER COMO PONTO E NAO COMO VIRGULA


-> Resposta:

Na verdade você deve fazer o tratamento desta informação na hora de gravar no banco de dados, por isso faça da seguinte forma.

Replace(Text1.Text, [Ô],[Ô], [Ô].[Ô])


Ok???

Teste ai e nos dê um retorno.
JANDER 20/04/2010 14:10:50
#339793 Resposta escolhida
a = 1.000,00

b = replace(replace(a,[Ô].[Ô],[Ô][Ô]),[Ô],[Ô].[Ô])

esse é o correto, pq se fizer com esse comando Replace(a, [Ô],[Ô], [Ô].[Ô]) vai fica assim o resultado: 1.000.00
SARAGIOTTO 20/04/2010 14:24:32
#339794
ok, valeu amigo, mto obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar