Kalo kasusnya spt itu, saya ko cenderung pake alternatifnya mas harry
jadi nggak ada record yang di pindah. cukup bikin satu field "status", atau
apalah di tabel karyawan.
nah di field tsb bisa di kasih combo pilihan status misalnya :"aktif",
"pindah",
"meninggal","pensiun" dsb.
Dari tabel tsb tinggal di ditarik ke query sesuai keinginan, jadi tidak ada
proses
delete-append.
kecuali kalo tabel kedua strukturnya berbeda dengan tabel pertama.
tapi kalo semula copy-paste saja, artinya struktur tabel khan sama

begitu barangkali ....

2009/8/11 hari yanto <[email protected]>

>
>
> Pengalaman saya begini:
> Dim rs, rst as recorset
> 'buka tabel asal
> set rs = currentdb.openrecordset("SELECT * FROM
> TABEL_YANG_AKAN_DIPINDAH_DG_KRITERIA_TERTENTU")
> 'jika tabel asal berisi data
> If not rs.EOF Then
>     'lakukan berulang sampai data paling akhir
>     Do while if not rs.EOF
>        'buka tabel tujuan
>        set rst = currentdb.openrecordset("TABEL_TUJUAN")
>            'menambah data pada field Tabel tujuan
>             rst.addnew
>             rst!Nama_Field_Tujuan = rs!Nama_Field_ASAL
>            dst....
>            rst.update
>            rst.close
>           'seteleh disimpan, data di tabel asal dihapus
>            rs.delete
>            rs.movenext
>           'ulangi lagi
>     Loop
> End if
> rs.close
> Mungkin ini bisa membantu. Tx
> Hariyanto (Surabaya)
>
> ------------------------------
> *From:* vanbredo <[email protected]>
> *To:* [email protected]
> *Sent:* Tuesday, August 11, 2009 7:14:41
> *Subject:* [belajar-access] Memindahkan satu data ke tabel lain dgn
> perintah commandbutton
>
>
>
> sy membuat commandbutton pindah, didlmnya ada kriteria pindah krn meninggal
> dunia, pensiun, pindah ke kab/kota lain dll, gimana cara agar data tsb bisa
> pindah ke tabel lain tsb, selama ini saya cut di dbnya dn paste di tabel
> lainnya,trims before
>
>
> ------------------------------
>  New Email names for you!
> <http://sg.rd.yahoo.com/aa/mail/domainchoice/mail/signature/*http://mail.promotions.yahoo.com/newdomains/aa/>
> Get the Email name you've always wanted on the new @ymail and @rocketmail.
> Hurry before someone else does!
>  
>



-- 
---------------------------------------------
  grapyak-semanak-cluthak
http://djmumun.wordpress.com
http://facebook.com/djmumun
---------------------------------------------

Kirim email ke