VBA untuk Menghapus Tabel

AstroDigi.com | sabtu, 12 Apr 2014 | Seorang siswa dalam kelas pelatihan MSAccess pernah menanyakan bagaimana cara untuk menghapus tabel? Sebelum menjawabnya saya lebih dahulu menanyakan apakah ingin menghapus record didalam tabel atau menghapus (menghilangkan) tabelnya?

Siswa saya menjawab bahwa ia ingin mengetahui bagaimana cara menghapus record dan juga bagaimana menghapus tabelnya. Jadi ia ingin mengetahui kedua cara tersebut dilakukan dengan menggunakan perintah VBA.

'Untuk menghapus ISI/RECORD tabel:

DoCmd.RunSQL "DELETE namaTabel.* FROM namaTabel"

'-----------------------------------
'Untuk menghapus (menghilangkan) tabel dari database:
'Cara 1

DoCmd.DeleteObject acTable, "namaTabel"

'-----------------------------------
'Cara 2

Dim cdb As DAO.Database
Set cdb = CurrentDb
cdb.Execute "DROP TABLE namaTabel", dbFailOnError

'-----------------------------------
'Cara 3

Dim cdb As DAO.Database
Set cdb = CurrentDb
cdb.TableDefs.Delete "namaTabel"
'-----------------------------------

Silahkan pilih VBA script mana yang sesuai dengan kebutuhan. Selamat mencoba  . . . Have a nice day :-)


 www.AstroDigi.com (Nino Guevara Ruwano)

AllBlogToolsFacebook comments for blogger brought to you by AllBlogTools.com , Get Yours?