Membuat Tabel Access Dengan VBA

Hai Semua...

Baiklah, sekarang kita akan membahas langsung mengenai cara membuat table di Microsoft access dengan menggunakan VBA script.
ini bertujuan agar semua bisa membuat program access dengan mudah tanpa harus manual membuat table dengan menu wizard di access. sehingga jika ada struktur table yang bisa berubah setiap bulan atau tahun, table akan otomatis di buat sesuai dengan yang di inginkan...

dan yang pasti ini harus bermanfaat dan berguna bagi kita semua.

di bab ini kita akan memulai dengan pembuatan table roster yang mana isi table tersebut akan menyesuaikan dengan format kolom bulan sekarang sampai dengan 12 bulan kedepan

Sub CreateTableA()
on error resume next
Dim db As Database
Dim tbldef1 As TableDef
Dim sekarang As Long
Dim nanti As Long
Dim skolom As Long
Dim kolom As String
Dim maxkolom As Long
Set db = CurrentDb()
db.TableDefs.Delete "Table_Roster" & Format(Date, "mmmm yyyy")
Set tbldef1 = db.CreateTableDef("Table_Roster" & Format(Date, "mmmm yyyy"))
With tbldef1
.Fields.Append .CreateField("Nama", dbText)
.Fields.Append .CreateField("Jabatan", dbText)
.Fields.Append .CreateField("Departement", dbText)
.Fields.Append .CreateField("Level", dbText)
.Fields.Append .CreateField("TglMasuk", dbDate)
.Fields.Append .CreateField("TglCuti", dbDate)
End With
sekarang = Format(Date, 0)
nanti = Format(Month(Date)  & "/1/" & Year(Date) + 1, 0)
For skolom = sekarang To nanti
If Format(skolom, "d") = 1 Then
kolom = Format(skolom, "mmm-yy")
With tbldef1
.Fields.Append .CreateField(kolom, dbText)
End With
Next skolom
end if
db.TableDefs.Append tbldef1
End Sub
ok...
Demikian script nya, semoga bermanfaat