mas diki,
no. 1 kira-kira begini :
Private Sub prosesdata()
Dim db As Database
Dim rssw As Recordset 'simpanan wajib
Dim rsswd As Recordset 'simpanan wajib detail
Set db = CurrentDb()
Set rssw = db.OpenRecordset("simpanan", dbOpenDynaset)
Set rsswd= db.OpenRecordset("simananwajibdetail", dbOpenDynaset)
rssw.MoveFirst
While Not rssw.EOF
rsswd.AddNew
rsswd!nik = rssw!nik
rsswd!setoran = rssw!setoran
............tambahkan field yang lain disini
rsswd.Update
rssw.MoveNext
Wend
rssw.Close
rsswd.Close
db.Close
End Sub
diki wahyudin <[EMAIL PROTECTED]> wrote:
Mohon maaf sebelumnya, adakah yang bisa membantu memberikan solusi
masalah yang dulu pernah saya sampaikan.
1. Dalam database koperasi karyawan, setiap bulan tiap karyawan menyetorkan
simpanan wajib.
Karena jumlah anggotanya ada 1200 orang dan nilai simpanan dan tanggal
penyetorannya sama, maka input data setoran untuk tiap-tiap karyawan tersebut
dilakukan secara otomatis.
Pada saat menginput satu record pada tabel SIMPANAN (menggunakan form
SIMPANAN), dengan menekan tombol PROSES, maka secara otomatis menambahkan semua
record yang ada pada query TEMP_SIMPANAN_WAJIB ke tabel SIMPANAN_WAJIB_DETAIL.
Bagaimanakah penulisan scipt VBA pada tombol tersebut ?
2. Dalam database koperasi tersebut ada :
Tabel SETORAN
NIK NAMA SETORAN
001 DIKI 10000
007 WAHYUDIN 5000
Tabel PINJAMAN
NIK NAMA PINJAMAN
007 WAHYUDIN 100000
Ingin digabung dalam suatu Query menjadi :
NIK NAMA TRANSAKSI
007 WAHYUDIN 100000
001 DIKI 10000
007 WAHYUDIN 5000
Bagaimanakah cara menggabungkannya ?
Kepada para pakar access mohon bantuannya untuk memecahkan masalah tersebut.
Terima Kasih.
diki wahyudin
__________________________________________________________
Dapatkan nama yang Anda sukai!
Sekarang Anda dapat memiliki email di @ymail.com dan @rocketmail.com.
http://mail.promotions.yahoo.com/newdomains/id/
---------------------------------
Try cool new emoticons, skins, plus more space for friends. DownloadYahoo!
Messenger Singapore now.
