database naam dmv inputbox

[Cyrex01]

Beste,

Ik ben vrij nieuw met vba en ben bezig in progje met access en vba te maken.
Nu wil ik het volgende.

Ik heb een inputbox waar ik de naam van de database invul. Maar hoe kan ik deze gebuiken als naam van de database?

Private Sub create_Click()

Dim str1 As String

str1 = InputBox("Vul het gewenste jaar in", "Jaar weergeven")
MsgBox "Het gewenste jaar" + " " + str1 + " " + "wordt gegenereerd."

DoCmd.RunSQL "CREATE TABLE tabel + str1 (Artikel VARCHAR(50), Omschrijving VARCHAR(100), Rek INT, Schap INT, Aantal INT);"

End Sub

Ik heb ook andere opties geprobeerd, maar lukt niet.

Iemand weet hoe dit werkt?

Alvast bedankt.

 

[Cyrex01]

Het betreft trouwens een table ipv van database

 

[Hoornvan]

Cyrex01,

Heb je al bij Access gekeken, daar worden ook veel macro's gebruikt.