Delete all queries in a database

[eerich]

Is there a way to delete all the queries within a database at once? Is it possible to write a SQL statement or Macro to handle the deletion?

Thanks.

 

[Remou]

I think it might be better in this case to exclude system queries.

   i = CurrentDb.QueryDefs.Count
   For n = 0 To i - 1
      strHold = CurrentDb.QueryDefs(n).Name
      'This next line is the one that will do the damage
      If Left(strHold, 1) <> "~" Then
      'CurrentDb.QueryDefs.Delete strHold
        Debug.Print strHold
      End If
   Next n
   CurrentDb.QueryDefs.Refresh

 

[RoyVidar]

Sometimes this will also cause amusement, as what happens when you remove the first item from a collection?

[tt] i = CurrentDb.QueryDefs.Count
For n = i - 1 To 0 Step - 1[/tt]



Roy-Vidar