MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 553
    Registrado : 09/11/2012

    [Resolvido]Fechar Formulários Ativos

    Mensagem  =>Nois em Seg 16 Jan - 5: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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  Silvio em Seg 16 Jan - 7: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
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  ahteixeira em Seg 16 Jan - 7: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 : 553
    Registrado : 09/11/2012

    Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  =>Nois em Ter 17 Jan - 10: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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"
    avatar
    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Fechar Formulários Ativos

    Mensagem  ahteixeira em Qua 18 Jan - 11:54

    cheers

      Data/hora atual: Ter 25 Abr - 14:28