<pedrocorreia.net ⁄>
<mySnippets order="rand" ⁄> <mySnippets order="rand" ⁄>

 
<myContacts ⁄> <myContacts ⁄>

<email ⁄>


pc@pedrocorreia.net

<windows live messenger ⁄>


pedrojacorreia@hotmail.com

<myCurriculum type="pdf" ⁄>


Download
 
<myBlog show="last" ⁄> <myBlog show="last" ⁄>

 
<myNews show="rand" ⁄> <myNews show="rand" ⁄>

 
<myNews type="cat" ⁄> <myNews type="cat" ⁄>

 
<myQuote order="random" ⁄> <myQuote order="random" ⁄>

 
<myPhoto order="random" ⁄> <myPhoto order="random" ⁄>

<pedrocorreia.net ⁄>
 
<myAdSense ⁄> <myAdSense ⁄>

 
<myVisitorsMap ⁄> <myVisitorsMap ⁄>

 
<php ⁄><asp.net ⁄><vb.net ⁄><csharp ⁄><actionscript ⁄><sql ⁄><javascript ⁄><vb6 ⁄><vba ⁄><xml ⁄><css ⁄><asp ⁄>
 

<Verificar se um formulário (form) se encontra aberto ⁄ >




clicks: 2480 2480 2006-10-11 2006-10-11 goto mySnippets mySnippets vba  Download  Bookmark This Bookmark This


Subscribe Snippets RSS  Subscribe Snippets Updates by E-mail


Este pequeno snippet tenta demonstrar como poderemos saber se um formulário se encontra aberto (poderá estar por exemplo escondido).
Foi testado com versões MSAccess >=2000, porém em versões anteriores também deverá funcionar correctamente, mas como não tenho não consegui testar.

  1. Public Function isOpen(Form) As Boolean
  2.     formOpen = (SysCmd(acSysCmdGetObjectState, acForm, Form) And acObjStateOpen)
  3. End Function
  4.  



Qualquer erro/ dúvida é só dizer!



Subscribe Snippets RSS  Subscribe Snippets Updates by E-mail





clicks: 2480 2480 2006-10-11 2006-10-11 goto mySnippets mySnippets vba  Download  Bookmark This Bookmark This