Private Sub Tgl_Pinjam_AfterUpdate()
CurrentDb.Execute "DELETE * FROM [Angsuran Detail] Where KodeAngsuran='"
& Me.KodeAngsuran.Value & "'", dbFailOnError
For i = 1 To Me.Kali_Angsuran.Value
strSQ = "INSERT Into [Angsuran Detail]
(KodeAngsuran,Tgl_JatuhTempo,Jumlah_Angsuran ) VALUES ('" &
Me.KodeAngsuran.Value & "',#" & Format(Me.Tgl_Pinjam.Value + i,
"dd-mmm-yyyy") & "#," & Me.Jumlah_Angsuran.Value & ")"
CurrentDb.Execute strSQ, dbFailOnError
Me.Angsuran_Detail.Requery
Next
End SubSalam Hangat dan Jabat Erat, MBA [When you eliminate the impossible, then whatever is left, no matter how improbable, must be the truth] _____ From: [email protected] [mailto:[email protected]] On Behalf Of noorshiam Sent: Wednesday, April 07, 2010 16:34 To: [email protected] Subject: [belajar-access] Tabel Tanggal Jatuh Tempo Rekan-rekan Belajar-Access yang baik, Misal saya punya Tabel Angsuran yang field-fieldnya sebagai berikut : KodeAngsuran|Kali_Angsuran|Jumlah_Angsuran|Tgl_Pinjam ANGS001 |3 |100000 |01-Mar-10 dan Tabel Angsuran Detail yang field-fieldnya seperti ini : Kode_Angsuran|Tgl_JatuhTempo|Jumlah_Angsuran Bagaimana caranya menggunakan VBA atau Macro sehingga dengan sekali klik maka Tabel Angsuran Detail otomatis berisi sebagai berikut Kode_Angsuran|Tgl_JatuhTempo|Jumlah_Angsuran ANGS001 |01-Apr-10 |100000 ANGS001 |01-May-10 |100000 ANGS001 |01-Jun-10 |100000 Merujuk pada nilai Kali_Angsuran yaitu 3, maka yang berubah hanya pada bulan di Tgl_JatuhTempo saja, dihitung mulai 1 bulan sejak Tgl_Pinjam. Mohon petunjuk dan bantuan pencerahan rekan-rekan. Sebelumnya saya ucapkan banyak-banyak terima kasih. Salam Arief Noorshiam No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.800 / Virus Database: 271.1.1/2795 - Release Date: 04/07/10 01:32:00
<<04-08-2010 04-24-21.png>>
