FORM ABERTO

USUARIO.EXCLUIDOS 12/11/2004 14:05:22
#50058 Resposta escolhida

crie a seguinte funcao em um módulo

Public Function IsFormOpen(byval FormName as string) as boolean
dim frm as form

for each frm in forms
if ucase$(formName) = frm.name then
IsFormOpen = true
Exit For
endif
set frm = nothing
end Function

para chamar basta usar

if IsFormName("FrmCadastro") then
'esta aberto
else
'nao esta aberto
endif

por favor verifique o site antes de fazer uma pergunta - este mesmo assunto já foi discutido antes algumas vezes...