Dim SW, SX As Long, ZipNes As String
Private Sub Command5_Click()
    If SX = SW Then SW = 0
  Me.Controls(Split(ZipNes, ";")(SW)).SetFocus
SW = SW + 1
End Sub
Private Sub Form_Load()
SW = 0: SX = 0: ZipNes = ""
    Dim ctl As Control, v As Variant, a
    For Each ctl In Me.Form.Section(acDetail).Controls
        If ctl.ControlType = acTextBox Then
            If Me.Controls(ctl.Name).TabStop = True Then ZipNes = ZipNes & ctl.Name & ";": SX = SX + 1
        End If
    Next ctl
End Sub