Monday, February 27, 2017

Function Untuk Menyisipkan Field Dengan Tipe Data Autonumber

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

Comments :

4 comments to “Function Untuk Menyisipkan Field Dengan Tipe Data Autonumber”

20170320 junda
ralph lauren polo
ray ban sunglasses
polo ralph lauren
true religion jeans
nike outlet store
louis vuitton
coach outlet online coach factory outlet
oakley sunglasses
swarovski crystal
louis vuitton handbags

Unknown said...
on 

yeezy boost 350
adidas shoes
gucci outlet
nike outlet
michael kors outlet
ralph lauren uk
christian louboutin shoes
adidas outlet
pandora jewelry
swarovski jewellery
20170324huazhen

Unknown said...
on 

For far better results, wattpad.com/ it ought to not be much less thanMention Know More your sexual preference. It is an application both for straight individuals Tinder Download Tinder (APK) for PC, Android, iPhone Free as well gay people. It is up to you which to set choice Tinder Online You could specify the age you're looking Tinder your day for.

jennahoagland said...
on 

you could also hack Android video games bravesites.com/ as well as apps in-app acquisitions in Click Here your Android phone. If you're any favorite Leo Playcard Install Download For Android Free | Leo Playcard APK video game or app is offered in-app Leo Playcard acquisitions then utilizing this app you can acquire or acquire most Android contemporary Leo Playcard APK games absolutely totally free.

jennahoagland said...
on 

Post a Comment