validacion de salto de caracteres

[eberrios]

Hola les cuento:

Tengo a el siguiente código de validación para ingresar solo numero

If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 13 Then
If KeyAscii = 13 Then

End If
Else
MsgBox "solo caracteres"
KeyAscii = 8
End If

Este código lo tengo en un modulo y lo llamo como una función en la línea dos hasta la 4 quiero agregar un código de tabindex con la tecla enter, o sea si aprieta entre en vez de un numero que salte a a la siguiente textbox como puedo hacer para reconocer que textbox ejemplo text30 y que el salto sea text31 (son muuuuchos campos aprox. 100 que ingresar un par de números) espero haberme explicado bien muxas gracias

Salu2

[David]

Iniciado por eberrios

Hola les cuento:

Tengo a el siguiente código de validación para ingresar solo numero

If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 13 Then
If KeyAscii = 13 Then

End If
Else
MsgBox "solo caracteres"
KeyAscii = 8
End If

Este código lo tengo en un modulo y lo llamo como una función en la línea dos hasta la 4 quiero agregar un código de tabindex con la tecla enter, o sea si aprieta entre en vez de un numero que salte a a la siguiente textbox como puedo hacer para reconocer que textbox ejemplo text30 y que el salto sea text31 (son muuuuchos campos aprox. 100 que ingresar un par de números) espero haberme explicado bien muxas gracias

Salu2

Pues debes setear correctamente la propiedad TabIndex de acuerdo a cada TextBox.....

[eberrios]

no es solo eso lo que quiero quiero que sea con el entre o sea el keyascii = 13

no quiero que sea con el tab

gracias

[eberrios]

lo e visto asi
form1.text1(0).setfocus

pero la verdad es que no me funciona espero que alguien me pueda ayudar con esto

[David]

Primeramente, la forma como estás filtrando los números está incorrecta, así va a ser mejor:

Código:

Private Sub Text1_Change()
If Not IsNumeric(Text1) Then
    Text1 = Text1.Tag
    MsgBox "Ingrese solo numeros", vbCritical, "Numeros"
Else
    Text1.Tag = Text1
End If
End Sub

Y en el KeyPress solo colocas el KeyAscii 13 para filtrar el Enter y KeyAscii 9 para anular el Tab.... nos vemos

[zabait]

Estoy de acuerdo con David el Grande, pero te queda otro punto.

Pasar por los textoscon el intro
Para ello tienes que hacer una matriz de controles y cuando has detectado el intro hacer lo siguiente

text1(index+1).setfocus

Ten cuidado con el último!!!!!
Perono te voy a dar toda la solución, no???

Si quieres más ayuda... ya sabes donde estamos

[eberrios]

estoy de acuerdo con uds.
pero mi idea es agregarlo como función no especificar un textX determinado
y como verán en el código que les envió sirve para validar cualquier cuadro de texto que su ingreso sea numérico el problema que me sucede es al saltar de uno a otro...:

If KeyAscii = 13 Then

End If

en ese espacio deberá haber un código como el que me explica zabait "una matriz de controles" que en realidad nunca e tenido la necesidad de hacerla si me pudieran explicar de que se trata se los agradecería muxo

Public Function validar_numerico()
If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 13 Then
If KeyAscii = 13 Then
End If
Else
MsgBox "solo caracteres"
KeyAscii = 8
End If
End Function


aaaa y por sia ca la idea de esta funcion es la sig:

Private Sub Text1_KeyPress(KeyAscii As Integer)
validar_numerico
End Sub

agregarla en ese cuadro x y en el resto de los 100 para hacerlo mas facil a la hora de arreglar el codigo ;) o modificarlo

saludos