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