Проверить наличие запроса?

[alco84]

Добрый день уважаемые. Появился такой вопрос как проверить существование запроса перед его удалением?

[alco84]

Public Function ObjExists(strObjType As String, strObjName As String) As Boolean
On Error Resume Next
Select Case strObjType
Case "Table"
ObjExists = (CurrentDb.TableDefs(strObjName).Na me = strObjName)
Case "Query"
ObjExists = (CurrentDb.QueryDefs(strObjName).Na me = strObjName)
Case Else
ObjExists = (CurrentDb.Containers(strObjType & "s").Documents(strObjName).Name = strObjName)
End Select
Err.Clear
End Function

[Teslenko_EA]

Здравствуйте alco84.
Для удобочитаемости, заключайте выкладываемый код в тэги [соde]...[/соde]
для этого можно воспользоваться кнопкой #.
Евгений.