[Resolvidos]Login com validade

Olá, a todos.

Tenho um form com login e senha e no form de usuários tenho um campo data de validade do login.

Tenho esse código que está no botão OK para entrar:

Private Sub Cmd_Ok_Click()
setIsmaster (False)
setIsLogado (False)
If senha = Senha_User Then
If Nivel = "Master" Then 'Aqui queria que tivesse um If Data_Valida< Date() Then Mensagem:"Data expirada" Quit.
setIsmaster (True)
Else
End If
setUser (Me.Login_User)
setIsLogado (True)
DoCmd.Close
DoCmd.OpenForm "Frm_Abertura"
Else
MsgBox ("Senha Incorreta!!")
Senha_User = ""
Login_User = ""
Me.Login_User.SetFocus
End If
End Sub

Gostaria que o buscasse na Tabela_Usuarios Campo Data_Valida e não deixasse entrar caso a data expire.

E se o usuário atrasar a hora do Windows ?

É Né, não tinha pensado nisso, kkk.

Recomendo que veja na sala de Exemplos.

Demo por Dias

Mesmo que altere a data do Windows, não vai dar mais.

Ok,vou ver, valeus!!!