Amigos, como saber se o formulário está aberto ou fechado.

Meu ploblema: quero fazer no evento do form2, "ao fechar", forms!form1.visible=false, se o form1 estiver aberto.

marcelo teles

Procure no banco de dados do Northwind sobre a função EstáCarregado()

t+

quote:

Northwind

como faço esta pesquisa?

Desculpe, sou novo nesse assunto.


marcelo teles

quote:

EstáCarregado()

Eu achei esta função no forum, mas não está dando certo!

marcelo teles

Olá, a função é:

Function EstáCarregado(ByVal strNomeDoFormulário As String) As Integer
' Retorna True se o formulário especificado está carregado.

Const conModoEstrutura = 0
Const conEstadoObjFechado = 0

EstáCarregado = False
If SysCmd(acSysCmdGetObjectState, acForm, strNomeDoFormulário) <> conEstadoObjFechado Then
If Forms(strNomeDoFormulário).CurrentView <> conModoEstrutura Then
EstáCarregado = True
End If
End If

End Function

mais simples ainda, sem usar função.

Dim stDocName As String
stDocName = "frmIsLoaded2"
If CurrentProject.AllForms(stDocName).IsLoaded = True Then
MsgBox "O formulário " & stDocName & " está carregado!"
Else
If (MsgBox("O Formulário " & stDocName & " não está carregado!" _
& vbCrLf & "Deseja Abrir o Formulário?", vbYesNo) = vbYes) Then
DoCmd.OpenForm stDocName
End If
End If

Régis
Access 2K - win XP

Oi Régis,

quote:

mais simples ainda, sem usar função.

Fiquei na dúvida, preciso colocar o seu código a cada vez que vou fazer a verificação ?

Não seria mais prático utilizar a função Está Carregado de qualquer lugar do banco de dados ?

Andrea

Sem dúvida andrea além de mais prático, obdece regras básicas das boas práticas de programação, coloque esta função em um módulo desta forma que possa ser acesado por todo o projeto a qq momento

Me diga uma coisa, a função, é só copiar no modulo e pronto?

Nos forms, tenho que por algum outro codigo?

É que eu não entendi muito a lógica da função, mas quero aprender. Pretendo tb me enriquecer com os códigos postado de Régis.

marcelo teles

Olá, copie a função e cole num módulo qualquer.

Para usar utilize, a partir de qualquer form ou em outra função:

If EstáCarregado ("NomeDoForm") Then
' faz isso
Else
' faz aquilo
End If

Ok pessoal, vou fazer isto!

Jorge, deu certo!

Eu havia tentado antes mas creio que era algum errinho.

obrigado,

Demorei um pouquinho, mas estou aqui novamente.
Eu postei aquele codigo com a intenção de simplificar, porem é pra um form só, porém da pra ser adaptado pra uma função publica sim, mas nesse caso, pode-se usar a função EstáCarregado mesmo.
Atenciosamente

Régis

Ok Sr. regis.

colega ja tentou usar a condição if loaded("seu formulario") then msgbox "esta carregaqdo"


Abraços


Rogério