I want to try to check if an object exists in the database before I do the command to delete it. Any help on how to do that?

At this point I am stuck at the following point:

If dbs("Feed_CslLiveJobs") .:(.. Exists? = True Then
        DoCmd.DeleteObject acQuery, "Feed_CslLiveJobs"
End If


Thanks,
Coby

Here is the lazy man's way of doing this:

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllQueries
    If obj.Name = "Feed_CslLiveJobs" Then
           DoCmd.DeleteObject acQuery, "Feed_CslLiveJobs"
    End If
Next obj

Did that help?


mmcdonal

You've helped me before and you've helped me once again!

Thanks a million.

Coby.