Access - Error en código formulario de inicio

Buenas tardes,
a raíz de este vídeo:
https://www.youtube.com/watch?v=GaGm7qCsUbI

He replicado el código con los datos de mi BBDD, pero al ir a usar el formulario de inicio me da error en la parte señalada (set.focus) ¿Sabríais cual es el problema y como podría solucionar? ¡GRACIAS!


Private Sub Comando10_Click()
Dim UserLevel As Integer

If IsNull(Me.TxtUsuario) Then
MsgBox "Por favor, escribe tú Usuario", vbInformation, "Usuario requerido"
Me.TxtUsuario.SetFocus
ElseIf IsNull(Me.TxtContraseña) Then
MsgBox "Por favor, escribe tú Contraseña", vbInformation, "Contraseña requerida"
Me.TxtContraseña.SetFocus
Else
If (IsNull(DLookup("[Usuario]", "Empleados/Colaboradores", "[Usuario] ='" & Me.TxtUsuario.Value & _
"' And Contraseña = '" & Me.TxtContraseña.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"
Else
UserLevel = DLookup("Nivel_Seguridad", " Empleados/Colaboradores ", "Usuario = '" & Me.TxtUsuario.Value & "'")

If UserLevel = 1 Then
DoCmd.Close
MsgBox "Bienvenido!!!", , "Administrador"
Else
DoCmd.OpenForm "Detalle Ofertas"
End If
End If

En lugar de ponerlo así

ponlo en modo ruta absoluta:


Desconozco el motivo exacto, pero a mi me ha pasado varias veces de que SetFocus me dio problemas si lo ponía como lo tienes tu en código, pero poniendo en ruta absoluta deja de darlo.

Si se necesita poner la ruta absoluta, es que Access no reconoce al objeto, como un elemento del formulario en el que corre el código.

Un clásico es cuando se utiliza una rutina de código (con 'Me.') en el formulario activo y tras ello (por ser útil y desear compartirlo) se traslada a un modulo.