Mengubah Procedure Untuk Menyisipkan Field Pada Tabel Menjadi Function Untuk Menyisipkan Tabel
Niguru.com | Kamis, 22 Ags 2019 | Pada posting dua hari yang lalu Niguru.com sudah menjelaskan mengenai langkah-langkah untuk membuat procedure yang dapat digunakan untuk menyisipkan field baru bertipe data TEXT pada tabel yang sudah eksis (sudah ada sebelumnya).
Pada posting kali ini Niguru.com akan menjelaskan mengenai cara untuk mengubah procedure tersebut menjadi function. Dimana keuntungan dari function adalah dia dapat memberikan nilai balik (feed back) dari hasil pengolahan yang dilakukannya.
Berikut ini function yang dibuat dengan mengkonversi procedure tersebut:
Private Function InsertTable(tableKu As String, fieldKu As String) As Boolean
InsertTable = False
On Error Goto ErrorInsert
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Set Db = CurrentDb()
Set Tbl = Db.TableDefs(tableKu)
With Tbl
Set Fld = .CreateField(fieldKu, dbText)
.Fields.Append Fld
End With
Set Tbl = Nothing
Db.Close
InsertTable = True
ErrorInsert:
End Fucntion
Untuk cara penggunaannya adalah dengan membuat sebuah variabel atau textbox diisi nilainya dengan function tersebut, seperti pada contoh berikut:
Dim InsertCheck As Boolean
InsertCheck = InsertTable(“t_employee”, “Title”)
Bila function bekerja dengan benar maka InsertCheck = True
Sebaliknya bila function tidak bekerja dengan benar maka InsertCheck = False
Demikianlah function untuk menyisipkan field pada tabel yang sudah eksis.
Selamat mencoba .. Have a nice day :-)
www.Niguru.com (Nino Guevara Ruwano)
Posting Komentar untuk "Mengubah Procedure Untuk Menyisipkan Field Pada Tabel Menjadi Function Untuk Menyisipkan Tabel"