Procedure Untuk Menyisipkan Field Pada Tabel Yang Sudah Eksis (Sudah Ada Sebelumnya)

Niguru.com | Selasa, 20 Ags 2019 | Bila sebelumnya Niguru.com beberapa kali menjelaskan tentang cara untuk membuat tabel, baik penjelasan mengenai dasar-dasar pembuatan tabel, ataupun bagian dari langkah pembuatan aplikasi dengan menggunakan aplikasi MS (Microsoft) Access.

Pada posting kali ini Niguru.com akan menjelaskan langkah-langkah untuk membuat sebuah procedure (= sub program) yang berfungsi untuk menyisipkan sebuah field bertipe data TEXT pada suatu tabel yang eksis (sudah ada sebelumnya).



Berikut ini script VBA-nya:

Private Sub InsertTable()
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim tableKu As String, fieldKu As String

Set Db = CurrentDb()
tableKu = "table1"
fieldKu = "field1"

Set Tbl = Db.TableDefs(tableKu)
With Tbl
Set Fld = .CreateField(fieldKu, dbText)
.Fields.Append Fld
End With
Set Tbl = Nothing
Db.Close

End Sub

Penggunaan yang umum adalah dengan menghubungkan suatu tombol dengan procedure ini. Misal sebuah tombol dengan nama INSERT FIELD ditekan, maka pada properties tombol tersebut harus dipilih event ON CLICK, dengan mengisikan INSERTTABLE (nama procedure-nya) pada sub program event tersebut.

Ganti "table1" dengan nama tabel anda, dan ganti "field1" dengan nama field yang akan disisipkan.

Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)