Variable not defined error 2

[mmiram]

Hi:

I am trying to run a report of a parameter query populated by a form.

I am using the method described under the heading "Creating a form to supply parameters to a report" in the link below

http://office.microsoft.com/en-us/assistance/HA011170771033.aspx

I even downloaded the same DB in the link and when I try to run the report, I get the following error in the module created

"Compile Error...variable not defined" and it opens up the VB editor with the following code...


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

Set oAccessObject = CurrentProject.AllForms(strFormName)
If oAccessObject.IsLoaded Then
If oAccessObject.CurrentView <> acCurViewDesign Then
IsLoaded = True
End If
End If

End Function


"acCurViewDesign" is highlighted and a yellow arrow points to the first line
"Function IsLoaded(ByVal strFormName As String) As Boolean"

And this happens with the sample DB I downloaded from Microsoft's web site. Is something wrong with my Access installation? Is it missing some libraries etc.

I am really confused. Any help will be appreciated.

Thanks,
Ram.

 

[HitechUser]

mmiram,

I believe you need to add a reference too.. Darn it's one of these...

Windows Script Host Object Model
or
Microsoft DAO 3.6 Object Library

Just press Alt + F11 then set your references..

I hope this helps...

 

[mmiram]

Hitechuser:

The DAO reference was already set. I set the Windows Script Host Object Model Reference but that did not solve the issue. I uninstalled and reinstalled office 2000 and that did not solve it. I finally installed office XP and it works in that. It still does not work in office 2000.
I wonder why? Maybe some of the references are corrupt.

Ram.

 

[RoyVidar]

I don't think the acCurViewDesign constant exists in Access 2000 - I'm not entirely sure, either drop the line testing for design view, or try replacing it with 0 (the value of the constant in 2002).

Roy-Vidar

 

[sleonard1432]

acCurViewDesign constant does not exist in Access 2000. Replace your code with this:

Function IsLoaded(ByVal strFormName As String) As Integer

Const conObjStateClosed = 0
Const conDesignView = 0

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

 

[mmiram]

Thank You guys, that was it...as soon as I replaced the code with yours it worked. I had to add "Isloaded=True" after the then condition. But everything works fine now.

Ram.