Oprette en kopi af en forespørgsel fra en form

docmd.CopyObject ,Me!DitFelt,acQuery,"Din Forespørgsel"

Hi Mikael

You need a referecne to DAO for this to work.
You call the function with the name of the query you want to copy and the form name (me.name)

Function CopyQuery(OldQueryName, NewQueryName As String)
    Dim db  As DAO.Database
   
    Set db = CurrentDb
   
    db.CreateQueryDef (NewQueryName)
    db.QueryDefs(NewQueryName).SQL = db.QueryDefs(OldQueryName).SQL
   

    db.Close

   
End Function

Terry, er det ikke lidt besværligt?

Jeg har kun prøvet Thomas's og der løste problemet upåklageligt.
Tak for hjælpen til jer begge :o)

selv tak :)