[Resolvido]Desconectar usuário na rede

Para fazer isso é simples. Primeiro você criará um formulário
simples, não vinculado ao qual você denominará de KickOut. Esse
formulário terá as dimensões reduzidíssimas tipo largura = 0,199 e
altura = 0,101

O importante é que este formulário permanecerá constantemente aberto e
você deverá criar uma macro para dimensiona-lo com Direito = 0, Abaixo =
0, Largura = 0 e Altura = 0,101

No evento No Timer crie um procedimento com o seguinte código:

Private Sub Form_Timer()
If Len(Dir("C:\UmDiretórioQualquer\KickOut.txt")) Then
DoCmd.OpenForm "Out", acNormal, "", "", , acNormal
End If
End Sub

Observe que C:\UmDiretórioQualquer indica o caminho onde você criará
um arquivo texto (através do bloco de notas) mesmo que não tenha nada
escrito, o importante é que você salve-o com o nome KickOut.txt no
diretório que você escolheu.

No Intervalo do cronômetro digite 3000

salve o formulário KickOut e feche-o

Você poderá observar no código acima que existe um comando para que
seja aberto um formulário denominado Out. Êsse formulário deve ser
simples também, não vinculado e conter apenas um Rótulo com uma
explicação do tipo:

Por órdem do Administrador do Sistema este aplicativo será encerrado em 10 segundos.

Isso é só para dar uma explicação ao usuário que estiver trabalhando no momento em que você decidir fechar o aplicativo.

No evento No Timer desse formulário Out crie uma macro Sair que
encerre o aplicativo e no evento Intervalo do Cronômetro digite 8000

Tradução: O seu aplicativo terá um formulário KickOut que ficará a
cada 3 segundos procurando se existe um arquivo KickOut.txt no diretório
que você indicou. Caso não o encontre nada acontecerá, entretanto, se
você cria o tal arquivo texto KickOut.txt no diretório o seu formulário
KickOut disparará a abertura do Out e esse após 8 segundos fechará o
aplicativo automáticamente esteja êle em que máquina da rede estiver.