IsLoaded function not defined??

[Mark Richards]

I have this code behind a report (same report as previous post);

Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Report Date Range", , , , , acDialog, "Activity By
Location"

If Not IsLoaded("Report Date Range") Then
Cancel = True
End If
End Sub

This was copied from the sample database. It pops up a dialog to set the
date range filter. At run I get the compile error "function not defined" on
IsLoaded. if i comment out IF ...>>>>...End IF all is fine but I throw an
error if someone cancels the dialog box.

This works fine in the other database. The help file suggests: "You tried
to call a procedure from another project without explicitly adding a
reference to that project in the References dialog box."

Ummm........What? (realizing that he jumped into the deep end without
knowing how to swim)

This must be simple.

TIA
--
Mark Richards
ro********@hotmail.com

[PC Datasheet]

Yes, very simple!

You can find the IsLoaded function in the Northwind sample database's
modules. Just copy it from there and paste it into a module in your database
and you will be good to go.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com
"Mark Richards ro********@hotmail.com>" <<delete_this_part> wrote in message
news:O8********************@metrocastcablevision.c om...

I have this code behind a report (same report as previous post);

Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Report Date Range", , , , , acDialog, "Activity By
Location"

If Not IsLoaded("Report Date Range") Then
Cancel = True
End If
End Sub

This was copied from the sample database. It pops up a dialog to set the
date range filter. At run I get the compile error "function not defined" on IsLoaded. if i comment out IF ...>>>>...End IF all is fine but I throw an
error if someone cancels the dialog box.

This works fine in the other database. The help file suggests: "You tried to call a procedure from another project without explicitly adding a
reference to that project in the References dialog box."

Ummm........What? (realizing that he jumped into the deep end without
knowing how to swim)

This must be simple.

TIA
--
Mark Richards
ro********@hotmail.com

[MGFoster]

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

Found somewhere out there:

Function isLoaded(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

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

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

iQA/AwUBQdx3xYechKqOuFEgEQIE3ACfZ3+7Hl6rRVXDzlcKOIVrwz I8EXoAnjGs
vObQ2OVvfH2JQqz41z+ig31c
=/urL
-----END PGP SIGNATURE-----
Mark Richards < wrote:

At run I get the compile error "function not defined" on IsLoaded.

[John Mishefske]

Mark Richards < wrote:

I have this code behind a report (same report as previous post);

Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Report Date Range", , , , , acDialog, "Activity By
Location"

If Not IsLoaded("Report Date Range") Then
Cancel = True
End If
End Sub

This was copied from the sample database. It pops up a dialog to set the
date range filter. At run I get the compile error "function not defined" on
IsLoaded. if i comment out IF ...>>>>...End IF all is fine but I throw an
error if someone cancels the dialog box.

This works fine in the other database. The help file suggests: "You tried
to call a procedure from another project without explicitly adding a
reference to that project in the References dialog box."

Ummm........What? (realizing that he jumped into the deep end without
knowing how to swim)

This must be simple.

TIA

Access 2000 and newer can also use:

Public Function isLoaded(strFormName As String) As Boolean
IsLoaded = CurrentProject.AllForms(strFormName).IsLoaded
End Function

--
'---------------
'John Mishefske
'---------------