15/04/2004, 11:49
|
| | Fecha de Ingreso: agosto-2002
Mensajes: 22
Antigüedad: 22 años, 5 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 |