Kopiere record fra en tabel til en anden

INSERT INTO ... SELECT * FROM WHERE ID = ...

Jeg har prøvet nedenstående men der er tilsyneladende en syntaxfejl:

Dim t_id as String

t_id = "103"

sqltxt = "INSERT * INTO temp_medlem FROM medlemmer " & _
"WHERE id like '" & t_id & "'" & _
"ORDER BY id;"

Data1.RecordSource = sqltxt
Data1.Refresh

Jeg prøvede også lige:

sqltxt = "INSERT INTO temp_medlem SELECT * FROM medlemmer " & _
"WHERE id like '" & t_id & "'"

Så lykkedes det :o)

Dim dbs As Database

    Set dbs = OpenDatabase(App.Path & "\db.mdb")
   
    dbs.Execute " INSERT INTO temp_medlem " _
        & "SELECT * " _
        & "FROM medlemmer " _
        & "WHERE id like    '" & t_iD & "';"

dbs.Close

If the ID is unique then its best to use
WHERE ID =

it may also be faster

are we ready to close blueeye97?

i guess so :o))

tak og god jul