Kopi af tabel

Hej denne forudsætter at det altid er den samme tabel der skal tages en kopi af. insæt en kommandoknap på en form under hændelsen ved klik skriver du nedenstående kode, hus at rette objektnavne til dine egne i den aktuelle db.

Dim Tabelnavn As String
Tabelnavn = InputBox("Skriv navnet på den nye tabel!", "Opret tabel")
DoCmd.CopyObject "", Tabelnavn, acTable, "tbldata"

Hvor tabellen tbldata er den tabel der bliver taget en kopi af, navnet på kopien af tabellen bliver så det der skrives i inputboksen (variablen Tabelnavn)

Her med lidt errorhåndtering, tabel bliver kun oprettet hvis der faktisk skrives et tabelnavn, ellers sker der ingenting:

Dim Tabelnavn As String
Tabelnavn = InputBox("Skriv navnet på den nye tabel!", "Opret kopi af tabel")
If Len(Tabelnavn) > 0 Then
DoCmd.CopyObject "", Tabelnavn, acTable, "tbldata"
End If

Kanon det var lige det jeg skulle bruge. Så tror jeg nok jeg kan komme videre.

Fint du kunne bruge mit forslag, og tak for point :o)