[Resolvido]Sair do Access e fazer Logoff

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

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

Talvez resulte.

Abraço

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

Olá António Marcos,

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

Abraço

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?

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

Perfeito. Obrigado.

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

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"

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

Obg pela ajuda!

Me ajudou bastante


Muito obg pela atenção dispensada!


AMarcos