[Resolvido]Ocultar Botão se Formulário estiver Aberto

Olá amigos

Tenho um formulário com botões para abrir outros formulários.
Preciso que ao clicar no botão e abrir o formulário, o botão desapareça apenas enquanto o formulário estiver aberto - ao fechar o formulário o botão deve reaparecer.

Tentei assim:

Código:

Private Sub bot_ocorr01_Click()
If bot_ocorr01.Enabled = True Then
DoCmd.OpenForm "frm_atendimento01", acNormal
ElseIf frm_atendimento01.IsLoaded = True Then
Me.bot_ocorr01.Enabled = False
Me.bot_ocorr01.Visible = False

End If

End Sub


Não deu certo. O form abre mas o botão não some.

Que tal assim amigão?

No botão do Formulario1, que abre o Formulário2 coloque:

DoCmd.OpenForm "Formulário2", acNormal
Me.Comando37.Enabled = False


Agora no seu Formulário2, no Botão que fecha o Formulário coloque:

DoCmd.Close
Forms![Formulário1]![Comando37].Enabled = True


Sendo que Comando37 é o Nome do Meu botao que está no formulario1, e que abre o Formulário2 ao clicar.



Agora se realmente quiser montar com a verificação do formulario aberto ou nao, a condição fica assim:

Código:


'Verifica se o Formulario2 está carregado, se tiver desabilita o Botão
If CurrentProject.AllForms("Formulário2").IsLoaded = True Then
Me.Comando37.Enabled = False
Else
Me.Comando37.Enabled = True
End If

Resolvido o problema,
muito obrigado!