Forms

3.17 Controllare se una maschera è aperta.
  AntoGal
Public Function FormIsOpen(FormName As String) As Boolean
   'Autore: AntoGal
   'Accetta: FormName = nome della maschera
   'Restituisce: true se la maschera è aperta
   FormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, FormName) And _
         acObjStateOpen) <> False
End Function

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.