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.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 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
