Kopiere en tabel vha VBA

docmd.CopyObject ,"Ny tabel", acTable, "Original tabel"

docmd.runsql "Select * from Tabel into NyTableNavn"

Det var godt nok hurtigt, thomas, point til dig.
dit forslag, rbj, var heller ikke dårligt, men det var thomas' svar jeg var ude efter.

:o)

Men hvordan ser kaldet til funktionen ud (parametermæssigt)?

Function CopyTable(DestinationTable As ?, SourceTable As ?)
  DoCmd.CopyObject , DestinationTable, acTable, SourceTable
End Function

...As String

Hmm...ok, var det bare så nemt, troede der skulle angives at det var tabeller der var tale om, men så så jeg parameteren acTable! :)

kk.... :-) Jeg bruger dog mest "select * from Tabel into Tabellen" fordi jeg oxo kan sætte den ind i en anden database

Grunden til at det er String, er at nr du kigger på sætningen:

docmd.CopyObject ,"Ny tabel", acTable, "Original tabel"

...så er "ny tabel" i anførselstegn, hvorfor Access læser det som en tekststreng.

Havde der stået f.eks.:

docmd.CopyObject , Tables!NyTabel, acTable, Tables!OriginalTabel '(Tables!Nytabel er slet ikke gyldigt)

...så skulle DestinationTable defineres As Table

rbj_fp-> Det kan du også med denne, idet den første parameter (som vi har valgt at lade være blank) angiver destinationsdatabasen. Fordelen ved denne metode, er at indekser, defaultværdier m.m. medtages.

kk.... man lærer nyt hver dag :-) Og ja det er nok fordi at jeg sjældent skal arbejde inde i access