Missing: Microsoft Office 11.0 Object Library! 1

[deweb]

I have written function:

Public Function IsOpen(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view.

Const conDesignView = 0
Const conObjStateClosed = 0

IsOpen = False
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then

If Forms(strFormName).CurrentView <> conDesignView Then
IsOpen = True
End If
End If

End Function

And I've used the function in a form event:

Private Sub Form_Open(Cancel As Integer)
' Open the View/Edit Trainings form

If Not IsOpen(frmViewEditTrainings) Then

DoCmd.OpenForm &quot;frmViewEditTrainings&quot;

End If

End Sub

After I split the database, the form gives me a compile error (can't find the project or library). When I check the references, Microsoft Office 11.0 Object Library is missing.

Access 2000 only has the 9.0 Object Library. I used Access 2000 to create the database, but I have 2002 on my computer. The weird thing is, it worked fine before I split the database.

My question is can Access 2000 use the 11.0 library and if so, where would I find it. And, if not, is there code to do this same thing using the 9.0 Object Library.

Thanks.

Denise

 

[RoyVidar]

Hi!

Use the 2000 library on 2000 (9.0). Deselect the missing 11.0 reference and check the 9.0. Those libraries are the versions of Access, and might change/go mising when moving between xp and 2000.

Tips - always check things on 2000 before distributing, my little experience is that there's no problem when moving &quot;up&quot; to xp. (11.0 - isn't that 2003?)

Roy-Vidar

 

[deweb]

Roy -

You are my hero!

You know you're right, 11.0 is 2003. I think I have Visio 2003 on my machine, perhaps that's how I have the library.

Thank goodness it was only distributed in my office!

Thanks so much.

Denise