[Resolvido]Retornar ao formulario principal, após varios subform abertos

Tenho um Bd o qual dependendo da ação a ser executada, se faz necessário a abertura de subformularios, ficando assim, por exemplo, uns 3 ou 4 abertos, dependendo.

Preciso que no último formulário, ao executar a ação, que no caso faz retornar ao formulario anterior, feche todos os abertos e volte ao formulario inicial.


Grato

Na ação que voce quer que volte o formulário:

DoCmd.OpenForm "MeuForm", acNormal ' Abri o form que voce quer
DoCmd.Close acForm, "MeuFormAtual" ' Fecha atual

Troque os nomes em vermelho pelos os nomes dos seus form's

Ok, irei tentar aplicar.

Grato!!!

Talvez não tenha sido claro.

Existe um form principal onde há botões que levam a abertura de outro form, que por sua vez, também há botões que abrem outro form.

Dessa forma ficam 3 form abertos/sobrepostos, e nesse último, executando a ação, quero que ao finalizar o procedimento via VBA, haja um cód que feche todos esses forms e direcione apenas para o form principal ficando o mesmo aberto.

Grato

Tem que indicar o fechamento do form no botão do ultimo form ativo..

é exatamente a solução indicada pelo colega Marcelo...

Cumprimentos

Bom dia Harysohn!

Mas foi o que tentei fazer.

No botão "SIM" do F_SAIDA, que é o 3° form aberto, acrescentei apenas a linha de cód DoCmd.Close acForm, "MeuFormAtual" '

Mas fecha só o form atual, ficando o anterior aberto.

Não entendi o porquê de ter de usar o cod que se refere a abrir form, uma vez que o form já está aberto DoCmd.OpenForm "MeuForm", acNormal .

Amigão, para abrir o form é apenas um exemplo...
Outra detalhe é que voce deve trocar o nome MeuFormAtual para o nome do seu formulário.
Como voce postou, parece que está pondo o código sem fazer referencia a seu form. Veja:

DoCmd.Close acForm, "MeuFormAtual"

No código acima, o nome em vermelho deve ser trocado pelo nome do seu formulário, exatamente como aparece no painel de navegação...
Teste aí, caso não funcione mande seu bd que eu faço...

Segue o cód usado no botão "SIM" usado para executar a ação conf. cód abaixo.

Tentei colocar a linha de instrução de acordo como vc descreveu, mas só fecha o formulário atual, não fecha os outros para voltar ao formulário principal.

Private Sub Comando11_Click()

CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao) VALUES('" & Me.NumP & "', '" & Me.txtNome & "', '" & Me.txtData & "', '" & Me.txtFuncao & "')"

If Not IsNull(DLookup("cod", "Tab1ENTRADA", "cod=" & Me.NumP)) Then
MsgBox "Dados copiados com sucesso. A seguir o registro da tabela anterior será excluído", vbOKOnly + vbInformation, "Sucesso"
CurrentDb.Execute "DELETE * FROM Tab1ENTRADA WHERE cod=" & Me.NumP & ""

DoCmd.Close acForm, "F_SAIDA"

Else
MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOKOnly + vbCritical, "Erro"
End If

End Sub


Enumerando dos formulários em ordem crescente para exemplificação:

1 - F_PRINCIPAL ( menu )
2 - F_PESQUISA ( Onde pesquiso o reg que preciso )
3 - F_SAIDA ( Form onde finaliza a ação ref. a esse reg. )

Ou seja, preciso fechar os forms 2 e 3 e retornar ao 1.

Grato

Explique a ordem de abertura dos forms.. e em qual form quer o comando para fechar os demais..

Cumprimentos.

Isso é simples.. não entendi o porque não conseguiu..


Private Sub Comando11_Click()

CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao) VALUES('" & Me.NumP & "', '" & Me.txtNome & "', '" & Me.txtData & "', '" & Me.txtFuncao & "')"

If Not IsNull(DLookup("cod", "Tab1ENTRADA", "cod=" & Me.NumP)) Then
MsgBox "Dados copiados com sucesso. A seguir o registro da tabela anterior será excluído", vbOKOnly + vbInformation, "Sucesso"
CurrentDb.Execute "DELETE * FROM Tab1ENTRADA WHERE cod=" & Me.NumP & ""

DoCmd.Close acForm, "F_SAIDA"
DoCmd.Close acForm, "F_Pesquisa"

Else
MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOKOnly + vbCritical, "Erro"
End If

End Sub

Bom dia Harysohn!!!

Não consegui porque não usei um simples pensei um pouco+.

Agora vai funcionar sim, nem precisarei testar para saber.

Grato +1 vez.

Harysohn vc é mestre!

O Fórum Agradece o Retorno. Bom trabalho