RE:Creación de BD basada en un Formulario
Una vez elabore un codigo parecido, para un amigo.
Solo debes adaptarlo a tus necesidades y cambiar los inputbox por los CampoTexto independientes del formulario....
Si quieres probarlo, crea un boton de comando y al evento al hacer click, Pega esto:
Dim TablaSQL, NombreTabla, Campo1, Campo2, Campo3, Campo4 As String
'*************************************************
'***** Codigo Cortesia de Jefferson Jimenez ******
'*************************************************
'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")
Campo1 = InputBox("Propiedad Fecha" & vbCrLf & _
"Si Deseas Cambiarla Abre la Tabla, Despues de Crearla", "" _
& "Nombre Campo1 : Ejmp FechaSalida", "FechaSalida")
Campo2 = InputBox("Propiedad Numero" & vbCrLf & _
"Si Deseas Cambiarla Abre la Tabla, Despues de Crearla", "" _
& "Nombre Campo2 : Ejmp Tiraje", "Tiraje")
Campo3 = InputBox("Propiedad Texto" & vbCrLf & _
"Si Deseas Cambiarla Abre la Tabla, Despues de Crearla", "" _
& "Nombre Campo3 : Ejmp Editorial", "Editorial")
Campo4 = InputBox("Propiedad Numero(Doble)" & vbCrLf & _
"Si Deseas Cambiarla Abre la Tabla, Despues de Crearla", "" _
& "Nombre Campo4 : Ejmp PrecioVenta", "PrecioVenta")
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
Espero y te sea de Ayuda
Desde Venezuela
Jefferson