Isloaded Compile Error

[Serious Sam]

Hello,
I have copied a piece of code from the Time Billing template, adapted it slightly for my database, abut can't get it to work.

Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "frmSummaryCriteria", , , , , acDialog, "rptTimeCards"
If Not IsLoaded("frmSummaryCriteria") Then
Cancel = True
End If
End Sub

When I open the report rptTimeCards, I want the frmSummaryCriteria to open.
Instead, on the bolded line above I get:
Compile Error: Sub or Function not defined

I must need to define something, but I can't work out what the Time Billing template has that I don't. The code I copied is:

Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Report Date Range", , , , , acDialog, "Clients Billings by Project"
If Not IsLoaded("Report Date Range") Then
Cancel = True
End If
End Sub

Any help much appreciated

 

[Serious Sam]

IsLoaded Solution

I found a module in the Time Billing database that I did not have in my database. It is listed below.
I don't fully understand it, but I know it's needed to make the isloaded code work. If someone wants to give a laymans explanation of what's below, please feel free.

Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open in Form view or Datasheet view.

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

 

[SydneyGeek]

Sam,

Here's the quick rundown. This line is checking to see if the form you are interested in is loaded:

If Not IsLoaded("frmSummaryCriteria") Then

What it does, is call the custom function IsLoaded, which checks whether frmSummaryCriteria is loaded. The rest of the routine after that line dictates what to do with the result: If the form has not loaded successfully,

 Cancel = True

will abort the process.

The IsLoaded function itself uses some special calls to determine if:
1. The form has been loaded somehow, and
2. It is not just in Design view.

If both of these tests pass, then the function returns IsLoaded = True.

Back in the original procedure, that is what the If Not IsLoaded... line is testing. In this case it's looking for IsLoaded = False.

Hope that helps

Denis

 

[Serious Sam]

Thank you very much Denis.