Como validar estado usuario antes de acceder a BD Access

Por ejemplo, si tengo las tabla Usuarios, donde he dejado a la vista la contraseña, aunque deberías ponerle la máscara de entrada.

Cuando abro el formulario de Login, aunque por comodidad le he puesto también Usuarios y escribo al amigo Adrián

Y pulso el botón validar aunque no sería necesario el botón, me abre sin problemas el formulario

Si hubiera escrito al amigo Juan

Pero mientras dure la "validez" se repite lo de arriba. Cuando la validez llega a cero te pone un mensaje, actualiza lo de Temporal a bloqueado y lo manda a la mier... se cierra.

y en el caso del caradura de Pepe, que no ha querido renovar la suscripción

Acepta y se cierra la aplicación hasta que reúna la pasta para pagar.

El código es

Private Sub Comando15_Click()
If Nz(DCount("usuario", "usuarios", "contraseña = forms!usuario!contraseña and usuario=forms!usuario!usuario and cuenta=""Activa""")) >= 1 Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "insert into registro(usuario,fecha,hora)values(Usuario,date(),time())"
    DoCmd.OpenForm "Clientes"
ElseIf Nz(DCount("usuario", "usuarios", "contraseña = forms!usuario!contraseña and usuario=forms!usuario!usuario and cuenta=""Bloqueada""")) >= 1 Then
MsgBox "Tu cuenta está bloqueada", vbOKOnly, "Adios"
Application.Quit
ElseIf Nz(DCount("usuario", "usuarios", "contraseña = forms!usuario!contraseña and usuario=forms!usuario!usuario and cuenta=""Temporal""")) >= 1 Then
    Dim d
    d = DLookup("fechavalidez", "usuarios", "usuario='" & Me.Usuario & "'") - Date
    If d > 7 Then
    DoCmd.RunSQL "insert into registro(usuario,fecha,hora)values(Usuario,date(),time())"
    DoCmd.OpenForm "Clientes"
    ElseIf d <= 7 Then
    MsgBox "Piénsalo, te quedan " & d & " días", vbOKOnly, "El que avisa no es traidor"
        DoCmd.RunSQL "insert into registro(usuario,fecha,hora)values(Usuario,date(),time())"
    DoCmd.OpenForm "Clientes"
    ElseIf d = 0 Then
    MsgBox "Se acabó", vbOKOnly + vbInformation, "Renueva la suscripción"
    DoCmd.RunSQL "update usuarios set cuenta=""Bloqueada"" where usuario='" & Me.Usuario & "'"
    DoCmd.Quit
    End If
Else
    Contador = Contador + 1
    MsgBox "No eres " & Me.[Usuario], vbOKOnly, "Aviso, llevas " & Me.Contador & " intento(s)"
    DoCmd.CancelEvent
        If Contador = 3 Then
        MsgBox "Como he comprobado que no eres quien dices me cierro", vbOKOnly + vbCritical, "Otra vez será"
        DoCmd.Quit
        End If
End If
End Sub

¡Gracias! Julián... lo implemente funciona impeque también... solo quiero ver como agrego el campo fechabloqueo a esta línea.

DoCmd.RunSQL "update usuarios set cuenta=""Bloqueada"" where usuario='" & Me.Usuario & "'"

Antes de nada, en el primer If estás duplicando la misma condición

If InStr(Me.TxtUsuario, "'") = 0 And InStr(Me.TxtUsuario, "'") = 0 Then

Por otro lado, en la instrucción que citas puedes concatenar hasta 99 condiciones AND ó OR, por ejemplo

docmd.runsql"Update..............usuario & "' and Fechabloqueo >Date +....and Ciudad=""Londres"" and Nombre=""Juan"""

ó

docmd.runsql"update..........where fechabloqueo between [fechainicial] and [fechafinal] OR cuenta=""Bloqueada"" and estado=""Cuarentena"""

Otra forma de hacer lo mismo, pero con otra organización del código:

Private Sub validaUsuario()
  Dim IdUsuario As Integer
  Dim elEstado As String
  Dim laFecha As Date
  If InStr(Me.TxtUsuario, "'") = 0 And InStr(Me.TxtUsuario, "'") = 0 Then
    If DCount("*", "Tabla_Usuarios", "[Usuario] = '" & Me.TxtUsuario & "' AND [pass] = '" & Me.TxtContrasena & "'") Then
       IdUsuario = DLookup("[Id_Usuario]", "Tabla_Usuarios", "[Usuario]= '" & Me.TxtUsuario & "' AND [pass] = '" & Me.TxtContrasena & "'")
       elEstado = DLookup("[Estado]", "Tabla_Usuarios", "[Id_Usuario]=" & IdUsuario)
       Select Case elEstado
          Case "ACTIVA"  'Si la cuenta está activa, permites el acceso
             MsgBox "USUARIO ENCONTRADO", vbInformation, "Avíso"
             CurrentDb. Execute "insert into Tabla_RegistroUsuarios(usuario, fecha, horaentrada)values(TxtUsuario, date(), time())"
             DoCmd.OpenForm "PORTADA_ACCESO", , , , , , IdUsuario
             DoCmd.Close acForm, "LOGIN"
          Case "BLOQUEADA"  'Si la cuenta está bloqueada, deniegas el acceso
             MsgBox "USUARIO BLOQUEADO", vbInformation, "Avíso"
          Case "TEMPORAL"   'Si la cuenta tiene acceso temporal...
             laFecha = DLookup("[Fecha_Caducidad]", "Tabla_Usuarios", "[Id_Usuario]=" & IdUsuario)
             If laFecha >= Date Then   '...si la fecha de caducidad es superior a la del sistema, accedes e informas de los días que quedan
                MsgBox "USUARIO ENCONTRADO LE QUEDAN " & Abs(DateDiff("d", laFecha, Date)) & " DIAS DE ACCESO", vbInformation, "Avíso"
                CurrentDb. Execute "insert into Tabla_RegistroUsuarios(usuario, fecha, horaentrada)values(TxtUsuario, date(), time())"
                DoCmd.OpenForm "PORTADA_ACCESO", , , , , , IdUsuario
                DoCmd.Close acForm, "LOGIN"
             Else                      '....si no, deniegas el acceso
                 MsgBox "USUARIO BLOQUEADO", vbInformation, "Avíso"
             End If
       End Select
    Else
       Contador = Contador + 1
       MsgBox "Usuario o contraseña no corresponde " & Me.[TxtUsuario], vbOKOnly + vbInformation, "Aviso, llevas " & Me.Contador & " intento(s)"
       DoCmd.CancelEvent
       TxtContrasena.Value = ""
       TxtContrasena.SetFocus
       If Contador = 3 Then
         MsgBox "Usuario no validado, aplicación se cerrara", vbOKOnly + vbCritical, "USUARIO INVALIDADO..."
         'Como falló 3 veces la contraseña, bloqueas al usuario:
         CurrentDb.Execute "UPDATE Tabla_RegistroUsuarios SET Estado='BLOQUEADO' WHERE [Usuario]= '" & Me.TxtUsuario & "'"
         DoCmd.Quit
       End If
    End If
  End If
End Sub

He supuesto que los campos en la tabla tabla_RegistroUsuarios se llaman "Estado" y "Fecha_Caducidad", y si no me equivoqué (ya que no lo puedo probar) al escribir el código, debería hacer todo lo que pides, incluido el bloqueo del usuario al fallar 3 veces la contraseña.

Gracias Sveinbjorn El Rojo, por la respuesta funciona a la perfección... solo una pregunta más, a esta línea

CurrentDb.Execute "UPDATE Tabla_RegistroUsuarios SET Estado='BLOQUEADO' WHERE [Usuario]= '" & Me.TxtUsuario & "'"

Como le puedo agregar el campo FechaBloqueo, es para validar el día que se genero el bloqueo

Pues así:

CurrentDb.Execute "UPDATE Tabla_RegistroUsuarios SET Estado='BLOQUEADO',FechaBloqueo=#" & Date & "# WHERE [Usuario]= '" & Me.TxtUsuario & "'"

o así:

CurrentDb.Execute "UPDATE Tabla_RegistroUsuarios SET Estado='BLOQUEADO',FechaBloqueo=Date WHERE [Usuario]= '" & Me.TxtUsuario & "'"