Access - Saltar control

...    If Not Me.NewRecord Then 'Evitamos que se produzca un error si estamos en un registro nuevo

        DoCmd.GoToRecord , , acNext 'Vamos al siguiente registro en el formulario actual

    End If

    Me.Vendedor.SetFocus

...

Private Declare PtrSafe Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare PtrSafe Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFilename As String, ByVal nSize As Long) As Long

Private Type OSVERSIONINFO

    dwOSVersionInfoSize As Long

    dwMajorVersion As Long

    dwMinorVersion As Long

    dwBuildNumber As Long

    dwPlatformId As Long

    szCSDVersion As String * 128

End Type

Function OsVersion() As Single

    Dim os As OSVERSIONINFO

    Dim retval As Long

    os.dwOSVersionInfoSize = Len(os)

    retval = GetVersionEx(os)

    OsVersion = Val(os.dwMajorVersion & "." & os.dwMinorVersion)

End Function

Public Function Sendkeys(sSend$, Optional bWait As Boolean = False)

    Static bInit As Boolean, bVistaOrGreater As Boolean, wShell As Object

    If Not bInit Then

        bVistaOrGreater = (OsVersion() >= 6)

        If bVistaOrGreater Then Set wShell = CreateObject("WScript.Shell")

        bInit = True

    End If

    If Not bVistaOrGreater Then

        VBA.Sendkeys sSend$, bWait

    Else

        wShell.Sendkeys sSend$, bWait

   End If

End Function