moving cursor to next tabindex on enter key press

[summerisland]

Hi
I have a form and I want to allow user to navigate all fields using "enter key" but I don't want to do it using arrays.I have to use this in many form so I need just one function which i will write inside form_keypress() event.It will read the current tabindex and shift cursor to next tabindex on enter ket press.


Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

MsgBox KeyAscii

' THE CODE

End If

End Sub


Please reply ASAP.


thanks,

sincerely,
summerisland

[HanneSThEGreaT]

Use SendKeys.

SendKeys "{ENTER}"

[Pradeep1210]

Here is a simple single line code
For this code to work, first set KeyPreview = True at design time.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then SendKeys "{TAB}"
End Sub

[mowafy]

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys ("{tab}")
KeyAscii = 0
End If
End Sub

[trisuglow]

Here is an alternative solution. It's more complicated, but may be of interest.

Option Explicit
 
Private Sub Form_KeyPress(KeyAscii As Integer)
  Dim c As Control
  Dim f As Boolean
  If KeyAscii = Asc(vbCr) Then
    For Each c In Me.Controls
      If c.TabIndex = ActiveControl.TabIndex + 1 Then
        c.SetFocus
        f = True
        Exit For
      End If
    Next
    'If we are at the end of the tab order then set focus to the first control.
    If Not f Then Text1.SetFocus
  End If
End Sub