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 Formulários Ativos

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Fechar Formulários Ativos

    Mensagem  =>Nois em Seg 16 Jan 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.



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  Silvio em Seg 16 Jan 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.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  ahteixeira em Seg 16 Jan 2017, 12:42

    Olá a todos,

    Com uma "busca" aqui no fórum ...
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  =>Nois em Ter 17 Jan 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,


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  ahteixeira em Qua 18 Jan 2017, 16:54

    cheers

      Data/hora atual: Sex 28 Jul 2017, 11:50