Function Untuk Menyisipkan Field Dengan Tipe Data Autonumber

AstroDigi.com | Senin, 27 Feb 2017 | Field dengan tipe data Autonumber seringkali dibutuhkan sebagai field yang digunakan sebagai index dari sebuah tabel dan juga dipergunakan sebagai field penghubung (relationship) dengan tabel yang lainnya. Untuk menambahkan field dengan tipe data Autonumber mudah dilakukan secara manual, namun perlu function yang sedikit agak panjang untuk menambahkan lewat VBA.

Ada 2 jenis field yang penanganannya sedikit berbeda yaitu pembuatan field dengan tipe data Hyperlink dan field dengan tipe data Autonumber. Pembuatan field dengan tipe data Hyperlink sudah pernah saya bahas pada artikel sebelumnya beberapa waktu yang lalu. Kali ini giliran saya bahas pembuatan function untuk field dengan tipe data Autonumber. Berikut ini susunan instruksinya:

Public Function InsertAutoNumField(tableKu As String, fieldKu As String, PKtrue As Boolean) As Boolean
On Error Resume Next    'lanjut saja kalau ada kesalahan
InsertAutoNumField = False
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, dbLong)
Fld.Attributes = dbAutoIncrField + dbVariableField
.Fields.Append Fld
End With

If PKtrue = True Then
'menambahkan primary key
Db.Execute "ALTER TABLE " & tableKu & " ADD CONSTRAINT " & fieldKu & " primary key (" & fieldKu & ");"
End If

InsertAutoNumField = True
Set Tbl = Nothing
Db.Close
End Function

Function diatas tidak melakukan pengujian terhadap eksistensi (keberadaan) tabel yang merupakan target dimana field akan disisipkan. Bila terjadi error maka hasil dari function akan "false".

Cara penggunaannya, cukup dengan membuat sebuah variabel bertipe data Boolean untuk menampung data dari hasil function diatas, bila function berjalan dengan baik maka hasilnya adalah "true". Untuk parameter ketiga isi dengan "false" bila field yang dibuat tidak perlu dijadikan Primary Key, sebaliknya isi parameter ketiga dengan "true" bila diinginkan field yang dibuat sebagai Primary Key. Berikut ini contoh penggunaannya:

Dim Hasil As Boolean
InsertAutoNumField(tabel_karyawan, id_karyawan, True)
Selamat mencoba! :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

AllBlogToolsFacebook comments for blogger brought to you by AllBlogTools.com , Get Yours?