Este access esta armado de tal manera que funciona el login. hay que crear los usuarios y los accesos.

hay 2 formularios 1 admin y el otro user.

Creamos 3 tablas y 3 formularios para ahcer el logiin, podemos utilizar este access como base.

Link : accesos_de_usuario_login_base.zip

El scrip utilizado es.

Private Sub CmdEntrar_Click()
     Dim auxContraseña As String
    
    'Comprobamos que hay datos en las cajas de texto
    If Nz(Me.txtLogin.Value, "") = "" Then
        MsgBox "Seleccione un nombre de usuario de la lista para acceder", vbInformation, "ATENCION"
        Me.txtLogin.SetFocus
    ElseIf Nz(Me.TxtPassword.Value, "") = "" Then
            MsgBox "Introduzca la contraseña del usuario seleccionado", vbInformation, "ATENCION"
            Me.TxtPassword.SetFocus
        Else
            If Nz(DLookup("Password", "Usuario", "Id_usuario=" & Me![txtLogin]), "") <> "" Then
                auxContraseña = DLookup("Password", "Usuario", "Id_usuario=" & Me![txtLogin])
            End If
            
            If auxContraseña <> Me.TxtPassword.Value Then
                If NumIntentos > 1 Then
                    NumIntentos = NumIntentos - 1
                    MsgBox "La contraseña introducida es incorrecta" & vbCrLf & _
                        "Le quedan " & NumIntentos & " intentos" & vbCrLf & vbCrLf & _
                        "Por favor, introduzca otra", vbExclamation, "INTRODUCCIÓN INCORRECTA"
                        Me.TxtPassword.Value = ""
                        Me.TxtPassword.SetFocus
                Else
                    MsgBox "Ha superado el numero de intentos", vbCritical, "ADIOS..."
                    DoCmd.Close acForm, Me.Name 'y cerramos el de acceso
                End If
                
            Else
                If DLookup("Id_acceso", "Usuario", "Id_usuario=" & Me![txtLogin]) = 1 Then
                                                
                        MsgBox "Ha entrado el administrador, mostramos todas las tablas", vbInformation, "BIENVENIDO ADMINISTRADOR"
                        Call Admin
                        
                Else
                                                                       
                        MsgBox "Ha entrado un usuario, ocultamos todas las tablas", vbInformation, "BIENVENIDO USUARIO"
                        Call Usuar
                        
                                          
                        
                        
                End If
                        'DoCmd.OpenForm stDocName, , , stLinkCriteria 'Abrimos el formulario correspondiente
                        DoCmd.Close acForm, Me.Name 'y cerramos el de acceso
            End If
    End If
End Sub

Function Admin()
On Error GoTo Admin_Err

    DoCmd.OpenForm "Admin", acNormal, "", "", , acNormal


Admin_Exit:
    Exit Function

Admin_Err:
    MsgBox Error$
    Resume Admin_Exit

End Function

Function Usuar()
On Error GoTo Usuar_Err

    DoCmd.OpenForm "Usuario", acNormal, "", "", , acNormal


Usuar_Exit:
    Exit Function

Usuar_Err:
    MsgBox Error$
    Resume Usuar_Exit

End Function