Re: Testing to see if a query is open

From: MGFoster (me_at_privacy.com)
Date: 02/27/04 

Date: Fri, 27 Feb 2004 21:47:40 GMT

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Use this:

Function IsOpen(strName As String, _
                  Optional intType As Integer = acForm) As Boolean

' Get the current state of the named object

     isLoaded = SysCmd(acSysCmdGetObjectState, _
                       intType, strName) = acObjStateOpen

End Function

This is sometimes called the IsLoaded() function - available in the
sample database Northwind.

Call it like this:

Dim blnIsOpen As Boolean
blnIsOpen = IsOpen("query name", acQuery)

MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQD+684echKqOuFEgEQKf/wCePzh7dZHGaIBYy4NDsDZsmD8QBK0Amwcr
KDZqtXA0ITY/95QrNLI/Qj46
=kJ3z
-----END PGP SIGNATURE-----

Philippe wrote:

> Hi,
>
> I am trying to write a module to test if a query is open.

< SNIP >

Relevant Pages