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)
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
michael kors outlet clearance
kobe 9
ed hardy clothing
lions jerseys
michael kors outlet online
michael kors handbags
air max 90
seattle seahawks jerseys
pandora charms
michael kors handbags
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
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.
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.