Oprettelsesforespørgsel i Acces via VBA

Kan du ikke benytte en tabeloprettelsesforespørgsel ?

Jo, men jeg vil helst gøre det hele direkte fra VBA.

Du kan jo altid konvertere SQL-koden og benytte den i din modulkode

Denne opretter en ny tabel med felter i db47. Husk en reference til DAO:

Dim db47 As Database
Dim tdfNew As TableDef
Set db47 = OpenDatabase("D:\XP\db47")
Set tdfNew = db47.CreateTableDef(TABELNAVN)
With tdfNew
.Fields.Append .CreateField("tekst", dbText, 30)
.Fields.Append .CreateField("memo", dbMemo)
.Fields.Append .CreateField("dato", dbDate)
.Fields.Append .CreateField("tal", dbInteger)
.Fields.Append .CreateField("tal1", dbLong)
.Fields.Append .CreateField("tal2", dbDouble)
db47.TableDefs.Append tdfNew
End With

>Jensen363
Ja, selvfølgelig, svaret bliver så:
CurrentDb.Execute "SELECT felt1 INTO nytabel IN 'D:\Dokumenter\newdb.mdb' from gammeltabel"
Hvis du laver et svar, får du pointene

Tja, det var een måde at gøre det på :o)

Ja, der er sikkert tusind andre måder at gøre det på, men det her er simpelt og løser mit problem.

KIS - Jeg havde nok misforstået spørgsmålet en smule.