Crear Tabla Con Codigo VBA

En Un Formulario Independiente Crea un Boton de Comando y al evento al hacer Click() pega este codigo

Claro esta este es un ejemplo para que te guies y des opcion a los usuarios que no conocen de diseño de access, darle la opcion de craer tablas para un futuro procedimiento

Dim TablaSQL, NombreTabla, Campo1, Campo2, Campo3, Campo4 As String

'Despues de establecer las variables abrimos las Cajas de Texto _

e introducimos cada valor

NombreTabla = InputBox("Indique el nombre de la Tabla", "" _

& "Nombre Tabla : Ejmp Periodico", "Periodico")

If NombreTabla = "" Then: Exit Sub

Campo1 = InputBox("Propiedad Fecha" & vbCrLf & _

"Si Deseas Cambiarla Abre la Tabla, Despues de Crearla", "" _

& "Nombre Campo1 : Ejmp FechaSalida", "FechaSalida")

If Campo1 = "" Then: Exit Sub

Campo2 = InputBox("Propiedad Numero" & vbCrLf & _

"Si Deseas Cambiarla Abre la Tabla, Despues de Crearla", "" _

& "Nombre Campo2 : Ejmp Tiraje", "Tiraje")

If Campo2 = "" Then: Exit Sub

Campo3 = InputBox("Propiedad Texto" & vbCrLf & _

"Si Deseas Cambiarla Abre la Tabla, Despues de Crearla", "" _

& "Nombre Campo3 : Ejmp Editorial", "Editorial")

If Campo3 = "" Then: Exit Sub

Campo4 = InputBox("Propiedad Numero(Doble)" & vbCrLf & _

"Si Deseas Cambiarla Abre la Tabla, Despues de Crearla", "" _

& "Nombre Campo4 : Ejmp PrecioVenta", "PrecioVenta")

If Campo4 = "" Then: Exit Sub

DoCmd.Hourglass True

'Ahora Creamos la Tabla

TablaSQL = "CREATE TABLE " & NombreTabla & "" _

& "(Id" & NombreTabla & " INTEGER PRIMARY KEY, " _

& "" & Campo1 & " DATETIME, " _

& "" & Campo2 & " INTEGER, " _

& "" & Campo3 & " TEXT(60), " _

& "" & Campo4 & " DOUBLE)"

'Corremos la variable en la misma BD

CurrentProject.Connection.Execute TablaSQL

DoCmd.Hourglass False

MsgBox "Tabla: " & NombreTabla & " Creada con Exito", vbInformation, "Creada"

'Compactamos

SendKeys "%huo", False