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

    [Resolvido]Fechar vários formulários

    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 04/02/2010

    [Resolvido]Fechar vários formulários Empty [Resolvido]Fechar vários formulários

    Mensagem  jpaulorh 2/9/2014, 17:59

    Caros colegas,

    Alguém tem alguma rotina para fechar todos os formulários abertos ao abrir um novo formulário?
    Consegui isso via macro mas tive que repetir a mesma coisa "fechar forms" citando todos eles... Queri ser mais prático.
    avatar
    PepeTuga
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 91
    Registrado : 17/10/2013

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  PepeTuga 2/9/2014, 18:03

    Viva!

    Tente ver esta solução e depois diga qualquer coisa:
    http://maximoaccess.forumeiros.com/t18853-resolvidofechar-formularios-usando-o-comando-docmdclose?highlight=fechar

    Cumps,
    PepeTuga
    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 04/02/2010

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  jpaulorh 2/9/2014, 18:20

    Pepe,

    Blz, essa solução já tenho, porém gostaria de uma que não fosse necessário descrever os nomes dos forms.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2107
    Registrado : 13/04/2012

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  Fernando Bueno 2/9/2014, 18:32

    http://maximoaccess.forumeiros.com/t1726-resolvidofechar-formularios-menos-um


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Fechar vários formulários 16rzeq
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2107
    Registrado : 13/04/2012

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  Fernando Bueno 2/9/2014, 18:45

    Dessa forma também da certo.

    Código:
    Public Sub Form_Open(Cancel As Integer)

      Dim intContador As Integer
       For intContador = Forms.Count - 1 To 0 Step -1
        Call Access.DoCmd.Close(acForm, Forms(intContador).Name)
       Next intContador
      DoCmd.OpenForm "SeuFormulario"
     Exit Sub
    End Sub


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Fechar vários formulários 16rzeq
    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 04/02/2010

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  jpaulorh 3/9/2014, 16:03

    Não deu certo...
    Está fechando o sistema geral...
    Eu quero que feche todos os formulários abertos e abra um novo...
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2107
    Registrado : 13/04/2012

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  Fernando Bueno 3/9/2014, 16:13

    Amigo basta seguir o codigo veja:

    Public Sub Form_Open(Cancel As Integer)

    Dim intContador As Integer
    For intContador = Forms.Count - 1 To 0 Step -1
    Call Access.DoCmd.Close(acForm, Forms(intContador).Name)
    Next intContador
    DoCmd.OpenForm "SeuFormulario"
    Exit Sub
    End Sub


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Fechar vários formulários 16rzeq
    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 04/02/2010

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  jpaulorh 3/9/2014, 19:25

    Alexandre,

    Nas propriedades do form que está sendo aberto em "Ao Abrir" coloco o código e ao mesmo tempo o nome do form?

    Não consegui, fecha total...
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2107
    Registrado : 13/04/2012

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  Fernando Bueno 3/9/2014, 20:12

    exato, veja as partes em negrito tera que mudar de Private para Public

    Public Sub Form_Open(Cancel As Integer)

    Dim intContador As Integer
    For intContador = Forms.Count - 1 To 0 Step -1
    Call Access.DoCmd.Close(acForm, Forms(intContador).Name)
    Next intContador
    DoCmd.OpenForm "Aqui o nome do form que queira que fique aberto"
    Exit Sub
    End Sub

    Se a duvida persistir anexe seu banco e veremos isso pra você ok.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Fechar vários formulários 16rzeq
    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 04/02/2010

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  jpaulorh 20/9/2014, 15:31

    Obrigado amigos... Deu certo!
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2107
    Registrado : 13/04/2012

    [Resolvido]Fechar vários formulários Empty Re: [Resolvido]Fechar vários formulários

    Mensagem  Fernando Bueno 20/9/2014, 17:24

    Que bom Very Happy

    O forum agradece o retorno!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Fechar vários formulários 16rzeq

      Data/hora atual: 17/4/2021, 18:49