22 August 2019

Mengubah Procedure Untuk Menyisipkan Field Pada Tabel Menjadi Function Untuk Menyisipkan Tabel

www.niguru.com
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)

No comments:

Post a Comment