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 addresses available on Yahoo!
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!
http://mail.promotions.yahoo.com/newdomains/aa/
