MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


5 participantes

    Derrubar arquivo Access

    avatar
    pedrohgb7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 23/04/2012

    Derrubar arquivo Access Empty Derrubar arquivo Access

    Mensagem  pedrohgb7 22/9/2017, 07:47

    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.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Derrubar arquivo Access Empty Re: Derrubar arquivo Access

    Mensagem  Cláudio Machado 22/9/2017, 13:51

    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.



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Derrubar arquivo Access 90dssg para agradecer a dica que solucionou seu problema.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Derrubar arquivo Access Empty Re: Derrubar arquivo Access

    Mensagem  JPaulo 22/9/2017, 15:44

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Derrubar arquivo Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Derrubar arquivo Access Folder_announce_new 102 Códigos VBA Gratuitos...
    Derrubar arquivo Access Folder_announce_new Instruções SQL como utilizar...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Derrubar arquivo Access Empty Re: Derrubar arquivo Access

    Mensagem  Cláudio Machado 22/9/2017, 18:03

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Derrubar arquivo Access 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    pedrohgb7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 23/04/2012

    Derrubar arquivo Access Empty ok

    Mensagem  pedrohgb7 23/9/2017, 05:30

    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.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    Derrubar arquivo Access Empty Re: Derrubar arquivo Access

    Mensagem  Cláudio Más 23/9/2017, 22:52

    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.
    kleber.arruda
    kleber.arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/09/2016

    Derrubar arquivo Access Empty Derrubar arquivo Access

    Mensagem  kleber.arruda 27/9/2017, 19:47

    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.
    avatar
    pedrohgb7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 23/04/2012

    Derrubar arquivo Access Empty Re: Derrubar arquivo Access

    Mensagem  pedrohgb7 28/9/2017, 16:52

    Kleber, joia?

    Tem como me enviar esse código?

    Obrigado.
    kleber.arruda
    kleber.arruda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/09/2016

    Derrubar arquivo Access Empty Derrubar arquivo Access

    Mensagem  kleber.arruda 28/9/2017, 16:58

    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 !

    Conteúdo patrocinado


    Derrubar arquivo Access Empty Re: Derrubar arquivo Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:34