Derrubar arquivo Access

Boa noite, tenho uma aplicação em Access e de vez em quando preciso derrubar a aplicação para fazer alguns ajustes. Tenho o código abaixo que por várias vezes funciona.., Quando coloco o arquivo Kickout.txt no caminho abaixo o programa fecha. Mas nem sempre funciona.

Tem uma outra forma de eu derrubar todos os usuários do sistema?


Private Sub Form_Timer()

If Len(Dir("G:\Relatórios\Gerência de Manutenção\Relatório de Turno\kickout.txt")) > 0 Then

DoCmd.OpenForm "Aviso"

End If

End Sub


Está no form Aviso
Private Sub Form_Timer()

DoCmd.Quit

End Sub

Obrigado.

Bom dia.
Eu utilizo este código e funciona perfeitamente desta forma:

Código:


If Len(Dir("\\Server\sistemas\GESTOR\GESTOR\KickOutEng.txt")) Then
DoCmd.OpenForm "1-AVISO_FECHAR_GESTOR", acNormal, "", "", , acNormal
End If


Quando o txt está disponível ele abre o form "1-AVISO_FECHAR_GESTOR"

Avisa:

"O SISTEMA IRÁ FECHAR AUTOMATICAMENTE PARA MANUTENÇÃO EM 45 SEGUNDOS."

Faz a contagem e em seguida fecha o sistema.
Derrubando todos da rede.

Funciona na perfeição sim e está mais que testado.

Uma recomendação que faço é a seguinte;

Deixem lá na pasta o kickout.txt, apenas renomeiem tirando-lhe a extensão, ficará "kickout".

Desta forma não salta á vista de quem lá entrar, que tipo de ficheiro é e quando quiser derrubar, apenas acrescente o ".txt" ao ficheiro.

Exatamente João Paulo.
É assim que faço. Deixo ele quieto e quando preciso renomeio.

ok, na maioria das vezes funciona. Porém tem vez que não funciona de jeito nenhum.. Isso geralmente acontece final de semana.. Parece que o pessoal bloqueia a chave e deixa o sistema aberto, e trava na chave e não derruba nem por reza braba...kkk

eu tirei o >0 que estava diferente no meu código.

Vou testar se vai funcionar toda vez agora.

Obrigado.

pedrohgb7, se o código estivesse errado não funcionaria em nenhuma oportunidade.

Parece que a única possibilidade de não funcionar é se o formulário que tem o código estiver fechado.

Boa Tarde pedrohgb7 !!!

Somente contribuindo... é possível realizar o logout dos usuários sem a necessidade do arquivo .txt .

Como ?

Particulamente, já usei a rotina com o arquivo .txt, porém utilizo hoje um registro na tabela que dependendo do seu status, realiza o logout dos usuário a partir de click de botão.

Kleber, joia?

Tem como me enviar esse código?

Obrigado.

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(), "hhss")

'---------------------------------------------------------------------------------------------------------
' 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 !