Access - Crear tabla con codigo Vb

 
Vista:

Crear tabla con codigo Vb

Publicado por Rodolfo (33 intervenciones) el 05/01/2006 14:07:32
Ante todo saludos.
Les queria pedir si me pueden poner el codigo de cracion de tabla en Vb ya que quiero un metodo alternayivo al de create table de sql.
Use el de ejemplo de Acces con createtabledef y me tira el mensaje de error que no puede crear la tabla porque no se genero ningun campo y a mi entende si lo estoy definiendo. Adjunto codigo que me muestra error

Private Sub Comando4_Click()
Dim base As Database
Dim tabla As TableDef

Set base = OpenDatabase("G:\rodolfo\ConcPaul\Paul.mdb")
Set tabla = base.CreateTableDef("cuentas")

tabla.CreateField "Yo", dbText, 20

base.TableDefs.Append tabla

End Sub

y el mensaje que me tira es el siguiente:

Error 3624
No hay campos definidos no se puede agregar Tabledef o index

Desde ya muchisimas gracias.

Rodolfo
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
Imágen de perfil de Alejandro

Creación de tabla en VBA utilizando CreateField y CreateTableDef

Publicado por Alejandro (4142 intervenciones) el 15/06/2023 22:07:02
Puede utilizar el siguiente código para crear una tabla en Access utilizando VBA y los métodos CreateField y CreateTableDef:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Comando4_Click()
    Dim base As Database
    Dim tabla As TableDef
    Dim campo As Field
 
    Set base = OpenDatabase("G:\rodolfo\ConcPaul\Paul.mdb")
    Set tabla = base.CreateTableDef("cuentas")
 
    ' Crear los campos de la tabla
    Set campo = tabla.CreateField("Yo", dbText, 20)
    tabla.Fields.Append campo
 
    ' Agregar la tabla a la base de datos
    base.TableDefs.Append tabla
 
    Set campo = Nothing
    Set tabla = Nothing
    base.Close
    Set base = Nothing
End Sub

Asegúrese de que la ruta de la base de datos sea correcta y de tener los permisos necesarios para crear tablas en la ubicación especificada.

Espero que esta solución te sea útil para crear tablas en Access utilizando VBA.
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