Membuat Table Ms Access Dengan VBA
Untuk membuat sebuah tabel di Microsoft Access menggunakan Visual Basic
for Applications (VBA), pertama-tama Anda harus membuka modul VBA di
Access. Caranya adalah dengan mengklik tombol "Modules" di "Database
Tools" ribbon. Kemudian, tambahkan kode berikut untuk membuat sebuah
tabel baru:
Dim db As DAO.Database
Dim tbl As TableDef
Set db = CurrentDb
Set tbl = db.CreateTableDef("NamaTabel")
tbl.Fields.Append tbl.CreateField("NamaKolom1", dbText)
tbl.Fields.Append tbl.CreateField("NamaKolom2", dbLong)
db.TableDefs.Append tbl
Set tbl = Nothing
Set db = Nothing
Kode di atas akan membuat sebuah tabel baru dengan nama "NamaTabel", dan menambahkan dua kolom ke dalam tabel tersebut, yaitu "NamaKolom1" dengan tipe data teks, dan "NamaKolom2" dengan tipe data integer. Anda dapat mengganti nama tabel dan nama kolom sesuai dengan kebutuhan Anda. Juga, Anda dapat menambahkan lebih banyak kolom dengan menambahkan baris tbl.Fields.Append seperti yang telah ditunjukkan di kode di atas.
Sebagai catatan, Anda perlu mengimport modul DAO sebelum menggunakan kode di atas. Caranya adalah dengan mengklik tombol "References" di "Database Tools" ribbon, kemudian mencari dan mencentang modul DAO.
Selamat mencoba!
0 Response to "Membuat Table Ms Access Dengan VBA"
Post a Comment