Vérifier l'existence d'une requête

Public Function IqQueryExist(NomdeRequête As String) As Boolean

On Error Resume Next

IqQueryExist = (CurrentDb.QueryDefs(NomdeRequête).Name = NomdeRequête)

CurrentDb.Close

End Function