<pedrocorreia.net ⁄>
corner
<mySearch ⁄> <mySearch ⁄>

corner
 
corner
<mySnippets order="rand" ⁄> <mySnippets order="rand" ⁄>

corner
 
corner
<myContacts ⁄> <myContacts ⁄>

<email ⁄>


pc@pedrocorreia.net

<windows live messenger ⁄>


pedrojacorreia@hotmail.com

<myCurriculum type="pdf" ⁄>


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

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

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

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

O homem não vive uma centena de anos, mas preocupa-se o suficiente para mil
corner
 
corner
<myPhoto order="random" ⁄> <myPhoto order="random" ⁄>

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

corner
 
corner
<myVisitorsMap ⁄> <myVisitorsMap ⁄>

corner
 
<php ⁄><asp.net ⁄><vb.net ⁄><csharp ⁄><actionscript ⁄><sql ⁄>

<javascript ⁄><vb6 ⁄><vba ⁄><xml ⁄><css ⁄><asp ⁄>

 

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




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



 
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!



 






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