Option Compare Database
Option Explicit

'------------------------------------------------------------------------------------
Public Function QueryExists(QueryName As String) As Boolean
'------------------------------------------------------------------------------------
' Syfte: Kontrollera om en sparad fråga finns i Access.
' Tar emot: Ett namn på en fråga.
' Returnerar: En boolean.
' Notering: Returnerar true ifall den finns annars false.
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
QueryExists = False
Set db = CurrentDb
For Each qdf In db.QueryDefs
If qdf.Name = QueryName Then
QueryExists = True
Exit Function
End If
Next qdf
End Function