MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Fechar Banco de Dados

    Compartilhe

    raejunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 26/05/2011

    [Resolvido]Fechar Banco de Dados

    Mensagem  raejunior em Sex 17 Jun 2011, 03:35

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Banco de Dados

    Mensagem  JPaulo em Sex 17 Jun 2011, 09:48

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

    [Você precisa estar registrado e conectado para ver este link.]


    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


    Última edição por JPaulo em Qui 04 Set 2014, 13:16, editado 1 vez(es)


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    lebersa12
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    [Resolvido]Fechar Banco de Dados

    Mensagem  lebersa12 em Qui 04 Set 2014, 09:24

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

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Banco de Dados

    Mensagem  JPaulo em Qui 04 Set 2014, 13:16

    Link corrigido.


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Miguel001
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 03/09/2013

    Sobre o tópico.

    Mensagem  Miguel001 em Seg 03 Nov 2014, 15:38

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

    THIAGO NOGUEIRA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 04/07/2017

    Re: [Resolvido]Fechar Banco de Dados

    Mensagem  THIAGO NOGUEIRA em Qua 05 Jul 2017, 10:31

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

    erickhonorio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 13/02/2017

    Encerrar

    Mensagem  erickhonorio em Seg 28 Ago 2017, 20:45

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

      Data/hora atual: Sab 18 Nov 2017, 08:18