Crear una taula en access amb VBA

En general hom fa servir sistemes de tipus DAO o ADO que, personalment, encara trobo bastant complicats.

Pels que simplement volem crear una taula temporal amb VBA, aquesta seria una solució.

Creem una taula tempTaula amb quatre camps:

• ID de tipus integer
• Nom de tipus text amb longitud 10
• Cognom de tipus text amb longitud 20
• Anys de tipus integer

Un cop creada la taula, l'omplim -amb una taula d'annexió- amb els valors 1,Pepe, Gotera i 50

Tot ho fem polsant un botó.

Font: http://www.access-programmers.co.uk/forums/showthread.php?t=149613

El codi (es recomana pasar-ho a Notepad++ amb llenguatge vb)




Option Compare Database
Option Explicit

Private Sub Form_Load()
    DoCmd.SetWarnings False
End Sub

Private Sub cmdCreaTaula_Click()
    crearTaula
    subqryPersonatges
End Sub

Private Sub crearTaula()
'Font: http://www.access-programmers.co.uk/forums/showthread.php?t=149613
    Dim qryCrearTaula As String
        qryCrearTaula = "CREATE TABLE tempTaula (ID integer, Nom text (10), Cognom text (20), Anys integer )"
    DoCmd.RunSQL qryCrearTaula
End Sub

Private Sub subqryPersonatges()
    Dim qryPersonatges As String
        qryPersonatges = "INSERT INTO tempTaula ( ID, Nom, Cognom, Anys )" _
        & "SELECT 1 AS Expr1, ""Pepe"" AS Expr2, ""Gotera"" AS Expr3, 50 AS Expr4;"
    DoCmd.RunSQL qryPersonatges
End Sub




Tags:
Make a table with VBA in Access
Crear una tabla con VBA en Access
Crear una taual amb VBA en Access