ayuda con teclado

[yogova9]

buenas amigos, tengo un problema con un programa que tengo, tenia win xp y funcioaba bien en la opciones donde daba enter para pasar al siquiente dato, ahora lo tengo en win 7 y le doy enter y me saca error la orden es.

Código (vb) [Seleccionar] Expandir

Private Sub txtNombre_KeyPress(KeyAscii As Integer)
    'QUE PASE A LA SIGUIENTE CAJA DE TEXTO POR MEDIO DE ENTER
        If KeyAscii = 13 Then
            SendKeys "{tab}"    'SE PULSA LA TECLA TAB AUTOMATICAMENTE[/font]
    'CONVIERTE TODO LO QUE EL USUARIO ESCRIBA EN MAYUSCULA
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
   
                End If
       
End Sub

solo la parte de pasar por enter me molesta si me pueden ayudar les agradezco

[raul338]

el "KeyAscii = Asc(UCase(Chr(KeyAscii)))" lo tenes que separar, porque sino solo lo hara cuando presione enter

Practica un poco mas tu programacion

[Elemental Code]

cambia eso del tab por la propiedad focus del siguente elemento