Mensajes

Me da la impresión de que te has hecho un lio...
Mira:

Código [Seleccionar] Expandir

Private Sub Text1_Keydown(Keycode As Integer, shift As Integer)

Select Case Keycode
Case vbKeyUp
   Text1.SetFocus
Case vbKeyDown
   Text2.SetFocus
Case vbKeyLeft
   Text3.SetFocus
Case vbKeyRight
   Text4.SetFocus
End Select

End Sub

En el primer case al ser el primer objeto que toma el foco y no tener otro por encima, no hace falta que le pongas vbkeyup para que se tome el foco  puesto que ya lo tiene, lo he dejado para que te hagas una idea de como van el resto de txt y poder  tenerlos controlados con las flechas.

Con la funcion SelStart=0 si hay texto introducido toma el foco en la posicion 0 (en el principio) por si te es de utilidad.

Código [Seleccionar] Expandir

Private Sub Text1_Keydown(Keycode As Integer, shift As Integer)

Select Case Keycode
Case vbKeyUp
   Text1.SetFocus:  Text1.SelStart = 0
Case vbKeyDown
   Text2.SetFocus:  Text2.SelStart = 0
Case vbKeyLeft
   Text3.SetFocus:  Text3.SelStart = 0
Case vbKeyRight
   Text4.SetFocus:  Text4.SelStart = 0
End Select

End Sub


Un saludo.

En mi opinión la forma correcta seria :

Código [Seleccionar] Expandir


Private Sub Tex1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Text2.SetFocus
End Sub


Prueba con  DVDShrink

El que no sabe, es como el que no ve..
Gracias.

Tengo un programa de contabilidad en vb y me gustaria saber como puedo sumar todos los registros de una columna(ej. Gasto) y que el resultado lo muestre en un textBox.
El programa corre con Adodc y  la tabla con Access 2003.

Muchas gracias a todos de verdad, y bueno ya habeis leido lo que a puesto el administrador asi que lo siento de verdad intentar bajaros el acrobat 7 , y ya ver si puedo subir la version en html

Te lo agradeceria que lo pasases a Html asi lo imprimire.
Ya lo he leido y te doy la enhorabuena por el manual.