Tema: Visual Basic
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 15/04/2004, 11:49
enadoquer
 
Fecha de Ingreso: agosto-2002
Mensajes: 22
Antigüedad: 21 años, 9 meses
Puntos: 0
Lo que tenes que hacer es crear un módulo y agregarle esta función:

Public Function ent(k As Integer)
If k = 13 Then
SendKeys "{tab}"
k = 0
End If
End Function

Luego en cada caja de texto llamas a dicha función. Por ejemplo si la caja de texto se llama txtNombre sería:

Private Sub txtNombre _KeyPress(KeyAscii As Integer)
On Error Resume Next
Call ent(KeyAscii)
Exit Sub
End Sub