Koding membuat tabel Access otomatis Menggunakan VBA Access

 Untuk membuat tabel di Microsoft Access secara otomatis menggunakan Visual Basic for Applications (VBA), Anda dapat menggunakan kode seperti ini:

Sub BuatTabel()

    'Deklarasikan variabel

    Dim db As Database

    Dim tbl As TableDef

    'Buat objek database

    Set db = CurrentDb

    'Buat tabel baru

    Set tbl = db.CreateTableDef("NamaTabel")

    'Tambahkan kolom ke tabel

    tbl.Fields.Append tbl.CreateField("Kolom1", dbText)

    tbl.Fields.Append tbl.CreateField("Kolom2", dbText)

    tbl.Fields.Append tbl.CreateField("Kolom3", dbInteger)

    'Tambahkan tabel ke database

    db.TableDefs.Append tbl

End Sub

Anda dapat mengganti NamaTabel dan Kolom1, Kolom2, Kolom3 sesuai dengan nama tabel dan kolom yang ingin Anda buat. Selain itu, jika Anda ingin menambahkan kolom dengan tipe data yang berbeda, Anda dapat mengganti dbText dan dbInteger dengan tipe data yang diinginkan. Misalnya, jika Anda ingin menambahkan kolom numerik dengan desimal, Anda dapat mengganti dbInteger menjadi dbDouble.

Terimakasih

Tweet

Subscribe to receive free email updates: