programmstically finding and deleting append update queries

[Carol Chisholm]

I need to clean some manually created queries out of a database.
I cannot find the append delete and update queries.

Here is what I have done so far. This deletes all but append and
update queries that don't have names beginning with qry.

Set cnn = CurrentProject.Connection
Set cat.ActiveConnection = cnn
n = cat.Views.Count
While n > 0
ViewName = cat.Views(n - 1).Name
If Left(ViewName, 3) <> "qry" Then
cat.Views.Delete (n - 1)
End If
n = n - 1
Wend

 

[JohnFol]

Sounds like you need to open up the query definition and look for the words
"Delete" and "Append"