Public Function IsQueryInMdb(cQuery As String, cDb As String) As Boolean
Dim CurDbAs Database Dim Qd As QueryDef Set CurDb = OpenDatabase(cDb, , True) For Each Qd In CurDb.QueryDefs If UCase(cQuery) = UCase(Qd.Name) Then IsQueryInMdb = True Exit For End If Next CurDb.Close End Function Inputs: cQuery -> Il nome della Query cDb-> Il Nome del Database Returns: True se esiste, False se non esiste |