Bom dia pedrohgb7 !!!
A função considera como base o uso da Tabela Cad_Conexao_Usuarios, com os seguintes campos:
-> COD_CONEXAO;
-> COD_STATUS_CONEXAO;
-> USUARIO_UPDATE;
-> DATA_UPDATE
'---------------------------------------------------------------------------------------------------------
' Autor: Kleberson França
'
' Data: 01/08/2017
'---------------------------------------------------------------------------------------------------------
Public Sub Desconectar_Usuarios()
Dim DB As DAO.Database
Dim COD_STATUS As Double
Dim HORARIO As Date
Dim HORARIO_INTERRUPCAO As Date
Set DB = CurrentDb
'---------------------------------------------------------------------------------------------------------
' 1. Verifica o status da conexão do sistema e o horário padrão: 11hrs50min
'---------------------------------------------------------------------------------------------------------
COD_STATUS = Nz(DLookup("[COD_STATUS_CONEXAO]", _
"Cad_Conexao_Usuarios", _
"[COD_CONEXAO] = 1"), 0)
HORARIO = Format(Now(), "hh
ss")
'---------------------------------------------------------------------------------------------------------
' 1.1 Função se aplica eximindo o Administrador do Sistema
'---------------------------------------------------------------------------------------------------------
If COD_PERFIL_LOGIN >= 2 And _
COD_STATUS = 5 Then
DoCmd.OpenForm ("Form003_Desconectar")
'---------------------------------------------------------------------------------------------------------
' 1.2 Critério utilizado, caso deseje agendar um logout dos usuários
'---------------------------------------------------------------------------------------------------------
ElseIf HORARIO = #11:50:00 AM# Then
DoCmd.OpenForm ("Form003_Desconectar")
End If
'---------------------------------------------------------------------------------------------------------
' 2. Seta o Banco de Dados e posteriormente Limpa a Memória
'---------------------------------------------------------------------------------------------------------
DB.Close
Set DB = Nothing
End Sub
Quaisquer dúvidas, acione !
Enjoy !