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


3 participantes

    [Resolvido]Fechar Formulários Ativos

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    [Resolvido]Fechar Formulários Ativos Empty [Resolvido]Fechar Formulários Ativos

    Mensagem  =>Nois 16/1/2017, 10:49

    Olá!

    Srs,

    Preciso desenvolver uma ferramenta que me ajude quando eu for dar algum tipo de manutenção nas tabelas do sistema.

    Utilizo recursos para fechar o sistema remotamente, no entanto dependendo da manutenção não seria necessário bloquear a aplicação toda e sim algum formulário específico que obviamente esta vinculado a alguma tabela.

    Suponhamos que alguma estação estivesse ligado ao formulario1 que é vinculado a tabela1, gostaria de criar algum recurso que o retirasse do formulario1 "fechando" e abrindo qualquer outro até a manutenção for concluída.



    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Fechar Formulários Ativos Empty Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  Silvio 16/1/2017, 12:40

    Bom dia...

    Tente algo parecido com isso abaixo:


    Utilize esta função:

    Private Sub Form_Load() ' formulário de manutenção
    call CloseAllForms
    End Sub



    Function CloseAllForms()

    'Ele fechará todos os formulários antes de abrir o novo formulário (se necessário)

    Dim obj As Object
    Dim strName As String

    For Each obj In Application.CurrentProject.AllForms
    If obj.Name <> "Seu formulário de manutenção" Then
    DoCmd.Close acForm, obj.Name, acSaveYes
    End If
    Next obj

    End Function


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Fechar Formulários Ativos Empty Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  Alvaro Teixeira 16/1/2017, 12:42

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    [Resolvido]Fechar Formulários Ativos Empty Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  =>Nois 17/1/2017, 15:25

    obrigado a todos, nao vou poder me empenhar nessa pergunta por hora; mas as dicas sao valiosas

    dou o topico por resolvido,


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Fechar Formulários Ativos Empty Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  Alvaro Teixeira 18/1/2017, 16:54

    cheers

    Conteúdo patrocinado


    [Resolvido]Fechar Formulários Ativos Empty Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:22