Gemme i en tabel

Prøv med:

Dim Tabelnavn As String
Dim base2 As String
dim nytnavn as string
Tabelnavn = InputBox("Skriv navnet på den nye tabel!", "Opret kopi af tabel")
base2 = InputBox("skriv navnet på database tilhør!", "info")
If Len(Tabelnavn) > 0 Then
nytnavn = Tabelnavn & base2
DoCmd.CopyObject "", nytnavn, acTable, "arbejdstabel"

Denne er måske mere korrekt:

Dim Tabelnavn As String
Dim base2 As String
dim nytnavn as string
Tabelnavn = InputBox("Skriv navnet på den nye tabel!", "Opret kopi af tabel")
base2 = InputBox("skriv navnet på database tilhør!", "info")
nytnavn = Tabelnavn & base2
If Len(nytnavn) > 0 Then
DoCmd.CopyObject "", nytnavn, acTable, "arbejdstabel"

Mugs jeg tror ikke det er det rigtig du svare på.
Jeg vil gerne have de 2 felter Tabelnavn og base2 tilføjet til tabellen Oversigt.
Oversigt har 2 felter nemlig tabelnavn og base 2

Nej det har jeg midforstået. Jeg troede det var tabelnavnet. Et øjeblik.

Du kna oprette et nyt felt således med en reference til DAO:

Dim db As Database, tdf As TableDef, fld As Field
Set db = CurrentDb
Set tdf = db.Tabledefs!Tabelnavn
Set fld = tdf.CreateField("felt4", dbLong)
Set db = Nothing

Du skal rette dbLong til den korrekte felttype f.eks dbText.

der skal ikke oprettes et nyt felt blot tilføjes i den eksisterende tabel
---------tabel oversigt-----------
Tabelnavn|base2|
test1    sxxxx

Så skal input fra de 2 msg boxe sættes ind

Hvis du vil tilføje data fra en eksisterende tabel, kan du bruge denne:

CurrentDb.Execute "SELECT FELTNAVN INTO TABELNAVN IN 'STI TIL DB.mdb' from TABELNAVN"

Jeg skal ikke hente men skrive til tabellen oversigt. Det der skal tilføjes i tabeloversigt er de indput der kommer fra tabelnavn og base2
Input tabelnavn-> ind i feltet tablenavn i databasenoversigt
Input base-> ins i feltet base2 i databasenoversigt

CurrentDb.Execute("INSERT INTO databaseoversigt (tablenavn, base2) VALUES(form!tabelnavn, form!base)")

Tror jeg nok... :-)

Eller vel snarere:

CurrentDb.Execute("INSERT INTO databaseoversigt (tablenavn, base2) VALUES('" & form!tabelnavn & "', '" & form!base & "')")

Svaret blev følgende
Private Sub Kommandoknap0_Click()
Dim Tabelnavn As String
Dim base2 As String
Tabelnavn = InputBox("Skriv navnet på den nye tabel!", "Opret kopi af tabel")
base2 = InputBox("skriv navnet på database tilhør!", "info")

If Len(Tabelnavn) > 0 Then
DoCmd.CopyObject "", Tabelnavn, acTable, "arbejdstabel"
CurrentDb.Execute ("INSERT INTO oversigt (databasenavn, region) VALUES('" & Tabelnavn & "', '" & base2 & "')")

End If
End Sub
Tak til mugs for hjælpen. Det rigtige svar kom fra kjulius, så smid et svar

Tak.