Terima kasih mas MBA atas responnya, Tapi maksud saya bukan itu, yang bertambah ini bulannya, bukan harinya. Jadi misal Tgl_Pinjam = 2010-03-01, angsuran = 3x maka Tgl_Jatuh_Tempo = 2010-04-01, 2010-05-01, 2010-06-01
Btw, sekali lagi terima kasih pencerahannya. Salam Arief Noorshiam --- In [email protected], "MBA" <murid.belajaracc...@...> wrote: > > > > 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 Sub > > > > Salam Hangat dan Jabat Erat, > > MBA >
