-------- Forwarded Message --------
Subject: [AstroDigi] Membuat Function Untuk Melakukan Cek Keberadaan
Tabel Dan Menghapusnya Bila Perlu
Date: Thu, 09 Feb 2017 10:12:32 +0000
www.AstroDigi.com <http://www.astrodigi.com/> AstroDigi.com
<http://www.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
<http://www.astrodigi.com/2017/02/3-langkah-untuk-menguji-keberadaan.html>
2. Membuat Function Di MS Access (Disertai Contoh)
<http://www.astrodigi.com/2017/02/membuat-function-di-ms-access-disertai.html>
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 <http://www.astrodigi.com/> (Nino Guevara Ruwano)
--
Posted By Blogger to AstroDigi
<http://www.astrodigi.com/2017/02/membuat-function-untuk-melakukan-cek.html>
at 2/09/2017 02:00:00 AM
