Indsætte en tabel i en db med kode

Du kan tilføje en ny tabel med denne, dit spørgsmål er dog lidt kryptisk, så det er ikke sikkert du kan bruge koden:

Dim db47 As Database
Dim tdfNew As TableDef
Dim a As String
On Error GoTo Errorhandler
a = InputBox(Prompt:="Indtast navnet på den nye tabel:", Title:="Opret ny tabel.", Default:="")
Set db47 = OpenDatabase("D:\VBA\XP\db47")
Set tdfNew = db47.CreateTableDef(a)
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
Errorhandler:
If Err = 3010 Then
MsgBox "Der findes allerede en tabel med dette navn." & vbNewLine & vbNewLine & "Procedüren forlades."
Else:
MsgBox Err.Description
End If

--mugs Problemet er at jeg har en del bruger, hvor data bliver gemt i en db hvor der er kode på. Nu er der nogle der gerne hvil gemme en ny type oplysninger til det formål skal jeg havde lagt en ny tabel ind i den db der er kode på, håber at dette kan uddybe ?

Hvis du vil ændre en db med sikkerhed på, er det nødvendigt at brugerne har rettighederne.

Du kan muligvis ved en db i et flerbrugermiljø med front- og backend db, ændre frontend uden rettigheder til backend.