[Resolvido]Fechar Banco de Dados

Amigos
Você já me ajudou muito..

Estou fazendo um esquema para derrumar os usuarios que estão logado no
access, é bem simples.. esta funcionando.. se o formulario achar o
arquivo Kickout.. ele fecha...

mas queria deixa uma msg para fechar com tmepo. vi um forum seu que esta
abaixo. masn ão consegui adaptar..dá erro. vc tem alguma solução?

Era só colocar uma msg que irá fechar em 60 segundos.

MEU CODIGO
Private Sub Form_Timer()


If Len(Dir("W:\A\B\C\teste bd\kickout.txt")) > 0 Then

DoCmd.Quit acQuitSaveAll
End If
End Sub


CODIGO QUE ACHEI AQUI
'Variavel publica
Public strInicia As Integer

Private Sub Form_Load()
'No evento ao carregar do form, coloca o intervalo do cronometro = 1000
Me.TimerInterval = 1000
Form_Timer
End Sub

Private Sub Form_Timer()
'By JPaulo ® Maximo Access
Static strInicioDaContagem As Date

Dim ContaSegundos As Integer

ContaSegundos = 60 'numero de segundos pretendidos

If strInicia = 0 Then strInicioDaContagem = Time

Min = (ContaSegundos - DateDiff("s", strInicioDaContagem, Time)) \ 60
Sec = (ContaSegundos - DateDiff("s", strInicioDaContagem, Time)) Mod 60
Me.lblContagem.Caption = "Este Banco irá Fechar para Manutenção em: " & Format(Sec, "00")
strInicia = strInicia + 1

If Sec=0 Then
DoCmd.Quit
End If

End Sub

Mas com sse não consegui fazer funcionar alguém tem alguma sugestão
Obrigado

O KickOut é do Amigo WSenna, e já abre um form de aviso durante algum tempo, estude-o com carinho.

https://www.dropbox.com/s/y1abbd4xc6qjgj3/KickOut2006.zip?dl=0


Veja a explicação do Grande WSenna noutro fórum;


1) Você cria um minúsculo formulário que permanece aberto o tempo todo e no evento No Timer você cria um procedimento que verifica num diretório de sua escolha se existe um arquivo texto com um nome qualquer, no caso escolhi o KickOut.txt.

If Len(Dir("C:\KickOut\KickOut.txt")) Then
DoCmd.OpenForm "Out", acNormal, "", "", , acNormal
End If

2) Observe que se existir êle abrirá um outro formulário, o Out, que contem uma mensagem qualquer avisando aos demais usuários que o aplicativo será encerrado em alguns segundos ou minutos, o tempo você define no evento No Timer desse segundo formulário de modo a encerrar o aplicativo.

3) Em resumo, você cria um arquivo texto, mesmo que em branco, salve-o como KickOut1.txt no diretório de sua escolha não se esquecendo de ajustar a partícula grifada em vermelho para indicar o caminho.

4) Assim, quando você precisar que todos os usuários saiam do programa basta que você renomeie o KickOut1.txt para KickOut.txt e todos os usuários que tiverem o aplicativo aberto receberão a mensagem do formulário Out e em seguida terão o programa encerrado.

5) Dessa forma sempre que algum usuário tentar abrir o aplicativo receberá a mesma mensagem e terá o programa encerrado automaticamente até que você renomeie o arquivo texto para KickOut1.txt novamente, valew?

É só isso, simples não?

Abraços, WSenna

o link não está disponível.
Poderia verificar um novo?

Link corrigido.

Excelente tópico e explicações. Parabéns.

Utilizei o codigo do Junior, porém nao esta funcionando para desligar os demais aplicativos conectados em rede, poderia me auxiliar?

Boa tarde,
O meu não está encerrando, baixei, fica aparecendo a mensagem porém não encerra. Poderia me ajudar?

Boa tarde a todos!!!
Consegui fazer o procedimento acima do nosso amigo JPaulo. Excelente trabalho apresentado....

Todos os bancos ligados em rede fecharam, porém no uso do dia a dia tive problemas e não consegui fechar mais.

Motivo: Alguns formulário para cadastro estão com alguns campos com "Critérios" Énullo para que não gere um novo registro com o campo em branco, e com isso o banco não fecha até os colaboradores finalizar o cadastro ou darem os "Esc" da vida até cancelar o registro.

Alguém consegue me ajudar?

Grato!!!