SOMENTE NUMEROS EM TXT'S DE UMA SÓ VEZ

JORGESALES 28/07/2015 23:53:32
#449344
Pessoal eu utilizo o código abaixo no evento KeyPress da textbox, gostaria
de saber se existe alguma função para não precisar repetir tantas vezes este código
uma vez que tenho 15 txt's que só podem conter números, estava pensando em
algo usando as tag's ou outra coisa, se alguém puder ajudar....
  If Not IsNumeric(VBA.Chr(KeyAscii)) And KeyAscii <> 8 And KeyAscii <> 44 _
  And KeyAscii <> 3 And KeyAscii <> 23 And KeyAscii <> 24 And KeyAscii <> 22 And KeyAscii <> 22 Then KeyAscii = 0
TUNUSAT 29/07/2015 06:30:41
#449346
JORGESALES,

Tente assim:

SOMENTE NUMEROS
http://www.vbmania.com.br/index.php?modulo=detalhe&id=8652
Private Sub txtAno_KeyPress(KeyAscii As Integer)
    If InStr([Ô]0123456789[Ô], Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then KeyAscii = 0
End Sub


[][ô]s,
Tunusat.
OMAR2011 29/07/2015 08:53:38
#449350 Resposta escolhida
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = SoNumeros(KeyAscii)
End Sub
Function SoNumeros(Key As Integer) As String
[ô]selecione os caracteres que desejar
Const Números$ = [Ô]0123456789[Ô]
[ô]Pode habilitar virgula e ponto
[ô]Const Números$ = [Ô]0123456789,.[Ô]
SoNumeros = Key
If Key <> 8 Then [ô]conferindo se é backspace
[ô]vê se é um caracter permitido
If InStr(Números$, Chr(Key)) = 0 Then
SoNumeros = 0
End If
End If
End Function
LUIZCOMINO 29/07/2015 10:04:54
#449355
If not isnumeric(Chr(KeyAscii)) AND KeyAscii <> 8 Then KeyAscii = 0
Tópico encerrado , respostas não são mais permitidas
Voltar