Check if objects exist

[Spidy6123]

Hey guys..

I can't get this to work

http://support.microsoft.com/?kbid=210598

it keeps giving me a false..

when I debug.. it crashes here:
Set C = DB.Containers(ObjectNum)
Find_Object = C.Documents(ObjectName$).Name

"Item not found in this collection"
It's something to do with C.Documents... thx guys

 

[Spidy6123]

Nevermind..

just did this

Function DoesObjectExist(ObjectType$, ObjectName$)
On Error Resume Next

Dim Found_Object, Find_Object As String, ObjectNum As Integer
Dim DB As Database, T As TableDef
Dim Q As QueryDef, C  As Container
Dim Msg As String
Found_Object = -1
Set DB = DBEngine(0)(0)

Select Case ObjectType$
Case "Tables"

    Find_Object = DB.TableDefs(ObjectName$).Name

Case "Queries"

    Find_Object = DB.QueryDefs(ObjectName$).Name

Case Else

Find_Object = DB.Containers(ObjectType$).Documents(ObjectName$).Name

If Err = 3265 Or Find_Object = "" Then
    Found_Object = 0
End If

End Select

DoesObjectExist = Found_Object

End Function

 

[Spidy6123]

Correction:

Function DoesObjectExist(ObjectType$, ObjectName$)
On Error Resume Next

Dim Found_Object, Find_Object As String, ObjectNum As Integer
Dim DB As Database, T As TableDef
Dim Q As QueryDef, C  As Container
Dim Msg As String
Found_Object = -1
Set DB = DBEngine(0)(0)

Select Case ObjectType$
Case "Tables"

    Find_Object = DB.TableDefs(ObjectName$).Name

Case "Queries"

    Find_Object = DB.QueryDefs(ObjectName$).Name

Case Else

Find_Object = DB.Containers(ObjectType$).Documents(ObjectName$).Name

If Err = 3265 Or Find_Object = "" Then
    Found_Object = 0
End If

End Select

DoesObjectExist = Found_Object

End Function