Access - Creación de BD basada en un Formulario

   
Vista:

Creación de BD basada en un Formulario

Publicado por Geraldinne (1 intervención) el 22/05/2009 00:47:10
Hola!!
Espero me puedan ayudar.
Para empezar conozco muy poco de Access y quisiera saber si ¿es posible que una vez creado un Formulario, se cree una base de datos con los datos introducidos en el mismo?
Es decir, invertir el orden... Base de Datos---> Formulario a Formulario----> Base de Datos.
Conozco como hacerlo en Excel, pero ¿se puede en Access?.
Gracias y espero su ayuda.
Edo de Mex. Mex
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Creación de BD basada en un Formulario

Publicado por Jefferson (381 intervenciones) el 22/05/2009 07:18:30
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar