He..he..he ^_^ bisa aja becandanya mas MBA ini, Sepertinya ada masalah jika angsuran yang dimaksud masuk bulan Agustus ke atas. Error message saya lampirkan di attachment. Kira-kira kurang di bagian mana ya??
Salam Arief Noorshiam --- In [email protected], "MBA" <murid.belajaracc...@...> wrote: > > Karena sudah bil Khusus - untungnya tanpa kata arwahi - khususon ila arwahi > MBA he he he. > > > > Silahkan lihat di attachment terlampir. > > Idenya sangat sederhana karena hanya menggunakan function replace untuk > mereplace format indonesia menjadi format inggris. > > Dan kabar baiknya, dapat berjalan baik di Regional Setting Indonesia maupun > Inggris. :-) > > > > > > 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 > > > > KodeAngsuran = Me.KodeAngsuran.Value > > tgl_JatuhTempo = tReplace(Format(DateAdd("ww", i, Me.Tgl_Pinjam), > "yyyy-mmm-dd")) > > Debug.Print tgl_JatuhTempo > > Jumlah_Angsuran = Me.Jumlah_Angsuran.Value > > Angs_Ke = i > > > > strSQ = "INSERT Into [Angsuran Detail] > (KodeAngsuran,Tgl_JatuhTempo,Jumlah_Angsuran, Angs_Ke ) " & _ > > "VALUES ('" & KodeAngsuran & "',#" & tgl_JatuhTempo & > "#," & Jumlah_Angsuran & "," & Angs_Ke & ")" > > CurrentDb.Execute strSQ, dbFailOnError > > Me.Angsuran_Detail.Requery > > Next > > End Sub > > > > > > Function tReplace(ByVal tglIndo As String) As String > > x = Replace(tglIndo, "Mei", "May") > > x = Replace(x, "Agu", "Aug") > > x = Replace(x, "Des", "Dec") > > x = Replace(x, "Okt", "Oct") > > x = Replace(x, "Nop", "Nov") > > tReplace = x > > End Function
