Lukke alle aabne queries

Function AllQueries()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData

    For Each obj In dbs.AllQueries
        If obj.IsLoaded = True Then
            DoCmd.Close acQuery, obj.Name, acSaveNo
        End If
    Next obj
End Function

Perfekt! Lige som det skal vaere. Takker