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]Desconectar Usuários - "Derrubar"

    Compartilhe
    avatar
    Highlander8
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 em Ter 05 Mar 2013, 19:50

    Prezados amigos,

    Não achei um topico que falasse sobre isso.
    Teria um jeito de criar um botão ou qualquer outro controle para desconectar/derrubar usuários conectados a um sistema?

    Aqui na empresa temos bancos de dados em access 2003 com muitos usuários e toda vez que dá um erro de sistema ou preciso reparar e compactar o BD, tenho que pedir um a um par fechar o sistema em questao.
    Todos são em BE e FE.

    E sabe como eh?! Alguns fecham....outros nao fecham.....e ai complicada tudo.

    Bom, muito obrigado.
    Mestres JPaulo e Criquio, poderiam me ajudar?

    Grande abraço.


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11235
    Registrado : 30/12/2009

    Re: [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  criquio em Ter 05 Mar 2013, 20:09

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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Highlander8
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 em Ter 05 Mar 2013, 20:57

    Mestre Criquio,

    Muito obrigado pelo retorno.
    Acessei o link e li muitos artigos, porém o que que se aproximou mais do que preciso, o usuário deu como resolvido sem solicitar o código.

    Voce chegou a escrever: "Geralmente, usamos "derrubar" os fronts via comando em um front central"

    Aproveitando a "deixa", gostaria de saber como faço para "derrubar" via comando em um front central?
    O que seria este front central?

    Muito obrigado mais uma vez e aguardo retorno.


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    avatar
    Highlander8
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 em Qua 06 Mar 2013, 11:54

    Alguém poderia me ajudar ?

    Ainda no aguardo...


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  JPaulo em Qua 06 Mar 2013, 12:02

    Um dos exemplos mais faceis e praticos de usar;

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



    .................................................................................
    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.]
    avatar
    linx1010
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 03/10/2011

    Re: [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  linx1010 em Qua 06 Mar 2013, 12:14

    Uma forma mais rapida tambem.
    Faça uma bat chamada "Status.Bat" com o seguinte código:

    SET status="OK"

    em seguida, crie um .bat que abre o seu sistema, mas antes de carregar o mdb ele leia uma variavel na status.bat:

    CALL STATUS.bat
    IF %status%=="OK" (
    start C:\"Arquivos de programas"\"Microsoft Office"\"Office10"\"MSACCESS.EXE" c:\caminho_do_seu_mdb\sys.mdb
    ) ELSE (
    msg %username% "Sistema em reparo, espere alguns minutos"
    )
    entao voce poderá deconectar pela propriedade do servidor "Gerenciamento do Computador" em "usuários e grupos locais"

    Ao derrubar os usuarios altere o status.bat ai ninguem mais abre o seu sistema até voce permitir.


    .................................................................................
    Leio playboy pelo mesmo motivo que assisto national geographic, para poder ver lugares que sei que nunca irei visitar.
    avatar
    Highlander8
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 em Seg 11 Mar 2013, 18:36

    Linx1010,

    Muito obrigado.
    Excelente meio de travar e avisar ao usuário sobre o reparo.
    Irei precisar deste tbm! Este me atende durante o momento do reparo, ou seja, em Tempo de Projeto. Em verdade eu gostaria de um para derrubar os usuários enquanto utilizam o sistema(Em Tempo de Execução). O exemplo do Mestre JPaulo penso que seria este caso.

    Mas tentei este procedimento do .bat e aparecem os erros conforme abaixo:

    1º ERRO: "A linha de comando que você utilizou para abrir o programa Microsoft Office Access, conte´m uma opção que o Microsoft Office Access não reconhece. Saia e reinicie o Microsoft Access utilizando linhas de comandos válidas"

    Clico "ok" e aperece esta mesma msg mais umas 4 vezes.
    Em seguida aparece:

    2º ERRO: "O Microsoft Office Access não pode localizar o arquivo de banco de dados 'S:\Funnel.mdb'. Certifique-se de ter inserido o nome e caminho do arquivo corretos." Neste te confesso que deixei o nome das pastas e arquivos com espaço. Talvez possa ser isso.

    Aguardo retorno sobre o que pod ser.....

    ***
    Grande Meste JPaulo,
    Penso que este exemplo seria o mais adequado em Tempo de Execução.
    Pois a minha intenção realmente é esta, de avisar ao usuário para fechar o sistema.
    Muito obrigado mais uma vez.
    Assim que testar, darei retorno.

    Obrigado.


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    avatar
    linx1010
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 03/10/2011

    Re: [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  linx1010 em Ter 12 Mar 2013, 12:25

    Bem, para avisar todos na rede eu utilizo o net send do DOS

    No executar mesmo digite:

    net send * "Fechar O Sistema por 10 min"

    Obs:
    Usuarios com windows 7 ou superior nao recebem nem enviam a mensagem

    O comando que uso da bat é assim:

    start C:\"Arquivos de programas"\"Microsoft Office"\"Office10"\"MSACCESS.EXE" /wrkgrp Z:\caminho\mdw\sistema.mdw z:\caminho\sistema.mdb

    z: é uma unidade compartilhada.

    Como uso arquivo mdw para as senhas ela fica deste modo, verifique se o caminho do executavel do access é igual a este acima

    Para derrubar no computador onde esta compartilhada a base eu simplesmente derrubo os arquivos compartilhados abertos como na imagem em anexo.


    Ve se ajuda deste modo....
    Anexos
    derrubar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (17 Kb) Baixado 220 vez(es)


    .................................................................................
    Leio playboy pelo mesmo motivo que assisto national geographic, para poder ver lugares que sei que nunca irei visitar.
    avatar
    Highlander8
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Re: Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 em Ter 12 Mar 2013, 20:57

    Amigo Linx1010,

    Muito obrigado!
    Funcionou perfeitamente.

    Estava dando erro porque eu havia usado "espaço" noi nome da pasta e do arquivo. Como eu havia imaginado....
    Agora está tudo perfeito!
    Obrigado tbm pelo arquivo em anexo, vai me ajudar bastante.

    Só tnho uma dúvida, como altero o titulo da mensagem que aparece quando o sistema está em Reparo? Atualmente ele pega o %username%. Gostaria de eu mesmo informar um texto....

    Estou tentando agora implementar o método do Mestre JPaulo.
    Assim que eu tiver uma posição e funcionando tudo, farei o tópico como encerrado.

    Muito obrigado mais uma vez.


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    avatar
    linx1010
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 03/10/2011

    Re: [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  linx1010 em Ter 12 Mar 2013, 21:06

    Creio que a msg nao dá pra alterar o titulo.
    Voce pode criar um mdb com um pop-up e chama-lo no lugar da msg do DOS
    poe um botao OK q fecha o arquivo.
    Como disse o meu é somente rapido para implementar mas pode ocorrer algumas falhas pois ele nega o acesso ao mdb primario não as bases compartilhadas
    Tive problemas onde tinha de reparar as bases e o pessoal usava elas atraves do Excel.

    Bom trabalho e manda um like pois nao tenho nenhuma pontuação ainda. Sad


    .................................................................................
    Leio playboy pelo mesmo motivo que assisto national geographic, para poder ver lugares que sei que nunca irei visitar.
    avatar
    Highlander8
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Re: Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 em Qui 14 Mar 2013, 10:58

    Grande Linxx 1010,

    Muito obrigado mais uma vez pelo retorno e pela dica.

    Bom, retorno para avisar que está tudo funcionando perfeitamente, graças às mentes brilhantes deste fórum brilhante que merece os parabéns de todos!

    Como dito antes, consegui implementar a msg do DOS e a estou usando junto com a dica do nosso amigo Senna, citado pelo mestre JPAulo e Criquio.

    Testei e todos os usuários agora recebem a msg informando que o sistema será fechado para reparo, logo após eu altero o status do DOS e ninguém consegue abrir sem eu liberar antes. Somente após o reparo.

    Quero agradecer a ajuda de todos mais uma vez.

    Afirmo este tópico como encerrado.

    Valeu, grande abraço e ótimo trabalho! What a Face

    "Quanto mais sei, mais sei que nada sei". study
    Vivo aprendendo a cada dia em constante evolução...


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  JPaulo em Qui 14 Mar 2013, 11:38

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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.]
    avatar
    Highlander8
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Re: [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 em Qui 14 Mar 2013, 11:55

    Mestre JPaulo,

    Eu que agradeço.

    Grande abraço meu camarada.,


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.

    THIAGO NOGUEIRA
    Novato
    Novato

    Respeito às Regras 100%

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

    Fechar aplicativo

    Mensagem  THIAGO NOGUEIRA em Qui 06 Jul 2017, 05:13

    Utilizei o sistema no amigo Paulo, porém não consigo executa-lo em rede, para que todos os usuarios que estejam com o sistema aberto recebam a mensagem e posteriomente fechem os aplicativos.

      Data/hora atual: Qua 22 Nov 2017, 10:40