Public Function QueryExists(Qryname As String) As Boolean

Dim Qry As DAO.QueryDef

On Error Resume Next

Set Qry = CurrentDb.QueryDefs(Qryname)

QueryExists = Not Qry Is Nothing

End Function





Verweis auf die DAO-Bibliothek erforderlich!

Gruß aus dem Norden

Reinhard

---

Bitte immer die Access-Version angeben

---

 

geschrieben von Reinhard Kraasch , 24.04.2006, 19:01 Uhr , 37 mal gelesen