Thursday, February 9, 2017

Membuat Function Untuk Melakukan Cek Keberadaan Tabel Dan Menghapusnya Bila Perlu

www.AstroDigi.com AstroDigi.com | Kamis, 09 Feb 2017 | Artikel ini merupakan kelanjutan dan juga penggabungan dari dua buah artikel AstroDigi.com sebelumnya yaitu:
1. 3 Langkah Untuk Menguji Keberadaan Tabel Dan Menghapus Tabel
2. Membuat Function Di MS Access (Disertai Contoh)

Pada artikel kali saya akan memberikan cara membuat function yang berfungsi untuk menguji keberadaan data dan user bisa memilih untuk menghapus tabel yang ditemukan atau hanya sekedar memberitahukan bahwa tabel yang diuji eksis atau tidak.
Berikut ini adalah kode instruksinya:

Public Function chkDel(tableKu As String, OKdel As Boolean) As Boolean
chkDel = False
criteriaKu = "[Name]= '" & tableKu & "'"
If DCount("[Name]", "MSysObjects", criteriaKu) = 1 Then
If OKdel Then
 DoCmd.DeleteObject acTable, tableKu
End If
chkDel = True
End If
End Function


Simpan baris instruksi diatas pada modul, dan selanjutnya siap untuk digunakan. Cara penggunaannya:
1. Untuk hanya menguji keberadaan data:
hasil_uji = chkDel("nama_tabel", False)

Bila tabel eksis maka hasil_uji = True, bila tabel tidak eksis maka hasil_uji = False

2. Untuk menguji keberadaan tabel dan sekaligus menghapusnya setelah ditemukan:
hasil_uji = chkDel("nama_tabel", False)

Sama seperti pada contoh nomor 1 diatas, tabel eksis maka hasil_uji = True, bila tabel tidak eksis maka hasil_uji = False
Perbedaannya adalah tabel akan dihapus apabila ditemukan eksis.

Silakan mencoba .. have a nice day :-)

www.AstroDigi.com (Nino Guevara Ruwano)