Home‎ > ‎

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

 
SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

Descargar
Descargue el Ejemplo  19 kb v. 3 11 ene. 2010 7:09 Jefferson Jimenez
Comments