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

3 participantes

    [Resolvido]Sair do Access e fazer Logoff

    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Sair do Access e fazer Logoff Empty [Resolvido]Sair do Access e fazer Logoff

    Mensagem  AMarcos 6/10/2018, 17:03

    Estou acessando meu BD em vária máquinas utilizando de acesso remoto.

    Alguns dos mestres amigos saberia me dizer se existe algum comando que o usuário ao Sair do BD em Access através de um botão eu consiga fazer "logoff" do acesso remoto ao mesmo tempo.

    Um abraço,



    ANTONIO MARCOS
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  Alvaro Teixeira 7/10/2018, 01:58

    Olá, pesquese na net fazer via linha de comando.
    Depois será executar via SHELL a partir do Access.

    Talvez resulte.

    Abraço


    Última edição por ahteixeira em 7/10/2018, 22:43, editado 2 vez(es)
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  AMarcos 7/10/2018, 12:04

    Meu amigo muito obrigado pela presteza na resposta,, mas eu gostaria que desse mais detalhes sobre, pois sou iniciante na programação e gostaria saber como criar um botão para que ao sair do access conseguisse ao mesmo tempo efetuar o "logoff" da máquina virtual utilizada.


    AMarcos
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  Alvaro Teixeira 7/10/2018, 17:19

    Olá António Marcos,

    Veja se é o que pretende.
    https://www.maximoaccess.com/t34443-terminar-a-sessao-do-windows-logoff

    Abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  DamascenoJr. 7/10/2018, 19:52

    Mestre ahteixeira, fiz o teste e funcionou perfeitamente para encerrar a sessão remota.

    E buscando imaginar todas as situações, fiz o seguinte: no evento "Ao descarregar" de um formulário coloquei "Cancel = true". E num botão do mesmo formulário coloquei o código dado neste tópico. Resultado: é forçado o fechamento do MS Access para que o logoff aconteça.

    Me pergunto: se o aplicativo tiver uns 20mb e a propriedade Compactar e Reparar estiver setada, não pode dar problema?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  Alvaro Teixeira 7/10/2018, 23:12

    Olá Ivan,

    Para o que pretende será fazer um atraso na chamada.

    Tente na linha de comando:
    shutdown /? |more

    para ver as opções, creio ser o -t ss

    Outra alternativa, criar um batch e coloca a seguinte instrução antes do shutdown, ficando assim.
    Código:
    @echo off
    timeout /t 15
    shutdown -l


    Abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  DamascenoJr. 8/10/2018, 19:36

    Perfeito. Obrigado.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  Alvaro Teixeira 8/10/2018, 23:15

    Olá a todos

    Ivan, obrigado pelo retorno, pode partilhar como ficou a sua solução.

    Antonio, como ficou a situação?

    Abraço a todos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  DamascenoJr. 9/10/2018, 06:01

    ahteixeira, criei um VBS com o código abaixo e chamo por ele no mesmo botão de encerramento do sistema. Ficou bom. Obrigado pelo "shutdown -l". Não imaginei que isso encerrasse o utilitário de acesso remoto, mas que apenas faria logoff na máquina remota permanecendo na tela de logon.

    Código:
    Dim objWMIService
    Dim colItems
    Dim booRodando
    Dim objws

    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
    Set objWS = CreateObject("wscript.shell")

    Do
        Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE" & " Name = 'MSACCESS.EXE'")     
        booRodando = colItems.Count>0
        Set colItems = Nothing
        WScript.Sleep 1000
    Loop While booRodando = True

    Set objWMIService = Nothing
    ObjWS.Run "shutdown -l", 0,"false"
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  Alvaro Teixeira 9/10/2018, 08:17

    Olá a todos,

    Ivan, obrigado pelo retorno, os membros do fórum sgradecem.
    Creio que com o seu exemplo resolve na totalidade todas as questões do nosso coelga.

    Antonio Marcos, aguardamos o retorno.
    Se a questão ficou esclarecida, não se esqueça de dar o tópico como Resolvido.

    Abraço a todos
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  AMarcos 14/11/2018, 13:37

    Obg pela ajuda!

    Me ajudou bastante


    Muito obg pela atenção dispensada!


    AMarcos
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Sair do Access e fazer Logoff Empty Re: [Resolvido]Sair do Access e fazer Logoff

    Mensagem  Alvaro Teixeira 14/11/2018, 15:58

    cheers

      Data/hora atual: 6/10/2022, 08:15