Btw tidak semua tabel yang ada di file access kan yang akan di delete isinya. kalau mau semua isinya didelete lebih baik membuat copy dari file accessnya saja trus direplace deh dengan file backup yang kosong. Sedangkan untuk pengaturannya ke form bisa menggunakan link table.
Untuk vbanya ada sih cuma saya lupa (dengan teknik for each), ini saya berikan vba agar yang tabel yang didelete isinya bisa diatur (tidak untuk semua tabel yang ada). Silahkan di coba, ini saja yang biasa saya pakai untuk mengahapus tabel-tabel temporary/dummy. Pertama-tama buat tabel yang isinya nama tabel yang akan dihapus.. mis, nama tabelnya tbHapusTemp dengan satu field text Nama set sebagai primary key pada tabel tsb isi nama tabel yang akan dihapus seluruh isi datanya pada field Nama (pastikan ada tabelnya) trus pakai fungsi ini.. Function DeleteTempTable() '############################################################### '## Fungsi menghapus pada beberapa tabel yang terdaftar disebuah tabel ## '## @ roland tambunan tuk milis [email protected] ## '############################################################### on error goto ErrAja dim rs as new adodb.recordset rs.open "Select tbHapusTemp.Nama from tbHapusTemp;",currentproject.connection if dcount("[Nama]","tbHapusTemp")>0 then for i=1 to dcount("[Nama]","tbHapusTemp") docmd.setwarnings false docmd.runsql "Delete "& rs!Nama &".* from "& rs!Nama &";" docmd.setwarnings true rs.movenext next i end if rs.close ErrAja: msgbox err.Description exit function end function selamat menghapus data..... -----Original Message----- From: him mah [mailto:[email protected]] Sent: Thursday, October 15, 2009 07:37 To: [email protected] Subject: Re: Bls: [belajar-access] Menghapus semua isi tabel yg ada dalam file access kalau pakai query, kalau tabelnya banyak berarti harus banyak query delete nya Pada 14 Oktober 2009 13:01, Aan Nadiman <[email protected]> menulis: kalo pakai query delete...?? DoCmd.SetWarnings False tsql = "delete from tbl_bpb" 'tbl_bpb adalah contoh nama tabel yg mau dihapus DoCmd.RunSQL tsql --- Pada Sel, 13/10/09, him mah <[email protected]> menulis: Dari: him mah <[email protected]> Judul: [belajar-access] Menghapus semua isi tabel yg ada dalam file access Kepada: [email protected] Tanggal: Selasa, 13 Oktober, 2009, 4:00 PM maaf mau minta tolong. Bagaimana script atau macrn o untuk menghapus semua isi table pada file access. misal kita punya 5 tabel. dgn menjalankan macro maka semua record yg ada dalam 5 tabel tsb terhapvs. makasih ---------------------------------------------------------------------------- Yahoo! Mail Kini Lebih Cepat dan Lebih Bersih. Rasakan bedanya sekarang!
