OK banget rumusnya Kang MBA, maknyuss Terima kasih
Salam Arief Noorshiam --- In [email protected], "MBA" <murid.belajaracc...@...> wrote: > > > > Tinggal mengganti yang bulan agustusnya kang. > > x = Replace(x, "Agu", "Aug") --> diganti jadi x = Replace(x, "Agust", "Aug") > > > > salam hangat dan jabat erat, > > MBA > > > > _____ > > From: [email protected] [mailto:[email protected]] > On Behalf Of Arief Noorshiam > Sent: 10 Mei 2010 15:53 > To: [email protected] > Subject: [belajar-access] Re: DateAdd Indonesian Setting Problem [1 > Attachment] > > > > > > [Attachment(s) from Arief Noorshiam included below] > > 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 belajar-access@ <mailto:belajar-access%40yahoogroups.com> > yahoogroups.com, "MBA" <murid.belajaraccess@> 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 > > > > No virus found in this incoming message. > Checked by AVG - www.avg.com > Version: 9.0.819 / Virus Database: 271.1.1/2864 - Release Date: 05/10/10 > 01:26:00 > OK
