-------- Forwarded Message --------
Subject: [AstroDigi] Function Untuk Menyisipkan Field Dengan Tipe Data
Autonumber
Date: Sun, 26 Feb 2017 19:00:15 +0000
www.AstroDigi.com <http://www.astrodigi.com/> AstroDigi.com
<http://www.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 <http://www.astrodigi.com/> (Nino Guevara Ruwano)
--
Posted By Blogger to AstroDigi
<http://www.astrodigi.com/2017/02/function-untuk-menyisipkan-field-dengan.html>
at 2/27/2017 02:00:00 AM
