[Resolvido]Fechar vários formulários

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.

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

Pepe,

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

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

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


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

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

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

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.

Obrigado amigos... Deu certo!

Que bom

O forum agradece o retorno!