FORMS ABERTO
Galera !Como faço para saber se existe algum form aberto ?
Dim f as form
For each f in forms
msgbox f.name " está abrrto"
next
For each f in forms
msgbox f.name " está abrrto"
next
Indo pela quantidade então poderia fazer
if forms.count > 0 then
msgbox "Existe Form aberto"
end if
if forms.count > 0 then
msgbox "Existe Form aberto"
end if
Basta fazer
Dim f as form
For each f in forms
unload f
next
Dim f as form
For each f in forms
unload f
next
Tópico encerrado , respostas não são mais permitidas