AutoTab
Sub Text1_KeyUp (Keycode as integer, Shift as integer) If KeyCode > 47 and KeyCode < 123 Then If Len(Me.ActiveControl.Text) = (Me.ActiveControl.MaxLength) Then SendKeys "{Tab}", True End if End If End Sub
Sub Text1_KeyUp (Keycode as integer, Shift as integer)
If KeyCode > 47 and KeyCode < 123 Then
If Len(Me.ActiveControl.Text) = (Me.ActiveControl.MaxLength) Then
SendKeys "{Tab}", True
End if
End If
End Sub
( autotab.html )- by Paolo Puglisi
- Modifica del 17/12/2023