MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


5 participantes

    [Resolvido]Desconectar Usuários - "Derrubar"

    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desconectar Usuários - "Derrubar" Empty [Resolvido]Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 5/3/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.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 5/3/2013, 20:09

    Veja se ajuda.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui 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.

    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desconectar Usuários - "Derrubar" Empty Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 5/3/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.
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desconectar Usuários - "Derrubar" Empty Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 6/3/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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 6/3/2013, 12:02

    Um dos exemplos mais faceis e praticos de usar;

    http://maximoaccess.forumeiros.com/t2963-resolvidofechar-banco-de-dados



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Desconectar Usuários - "Derrubar" Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desconectar Usuários - "Derrubar" Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desconectar Usuários - "Derrubar" Folder_announce_new Instruções SQL como utilizar...
    linx1010
    linx1010
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  linx1010 6/3/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.
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desconectar Usuários - "Derrubar" Empty Desconectar Usuários - "Derrubar"

    Mensagem  Highlander8 11/3/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.
    linx1010
    linx1010
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  linx1010 12/3/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....


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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Highlander8 12/3/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.
    linx1010
    linx1010
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  linx1010 12/3/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.
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Highlander8 14/3/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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 14/3/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Desconectar Usuários - "Derrubar" Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desconectar Usuários - "Derrubar" Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desconectar Usuários - "Derrubar" Folder_announce_new Instruções SQL como utilizar...
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Highlander8 14/3/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.
    avatar
    THIAGO NOGUEIRA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desconectar Usuários - "Derrubar" Empty Fechar aplicativo

    Mensagem  THIAGO NOGUEIRA 6/7/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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 00:55