<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" ⁄>

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

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

corner
 
corner
<myVisitorsMap ⁄> <myVisitorsMap ⁄>

corner
 
 

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




clicks: 15862 15862 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: 15862 15862 2006-10-11 2006-10-11 goto mySnippets mySnippets vba  Download  Bookmark This Bookmark This