I'm making a form that deletes certain query's. But I don't know how to check if the query's are present in the databases because I'm gonna use this form in different databases.

I'm trying to do this:
DoCmd.DeleteObject acQuery, "name"

This works of course but if i run the form again it gives an error because the query isn't present any more. What code do i use to check if the query is present and if so, then do the above deleteobject command?

I'm new to VB so I'm sorry if this is a very noobish question. But I looked on the forum and couldn't find the answer I need.

btw:
I'm using Visual Basic in Microsoft Access.

Learn about EXISTS Clause, it might help u to fine whether any queries exists in database or not? if not, u need not to go for DELETE operation..




                                            ~~Dev~~

Some guy came up with this and it works.
----------------------------------------------------------
Function VindQuery(Naam As String) As Boolean

  Dim Db As dao.database
  Dim QueryDefinitie As QueryDef

  Set Db = CurrentDb

  For Each QueryDefinitie In Db.QueryDefs
    If QueryDefinitie.Name = Naam Then VindQuery = True
  Next
End Function
------------------------------------------------------------

Hey,

 Could u tell me how "VindQuery" is working and where we have to use this function..

~ ~ ~ There is no Right, There is no Wrong, KNOWLEDGE is Only the POWER ~ ~ ~

Well it's for checking if a query is in the database. The Boolean either gives a true or false signal. When true, do this. When false, do that.

I needed it to see if a query was there, and if so delete it.

it should have been
----------------------------------------------------------
If QueryDefinitie.Name = Naam Then
   VindQuery = True
   exit for
endif
----------------------------------------------------------
because there is no need to continue the loop if the query is found.
But it is much faster to do:

----------------------------------------------------------
Function QueryExists(Naam As String) As Boolean
  on error resume next
  QueryExists = not (CurrentDb.QueryDefs(Naam) is nothing)
end function
----------------------------------------------------------

Marco

Ok thx for the tip Marco.