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
_____
From: [email protected] [mailto:[email protected]]
On Behalf Of Arief Noorshiam
Sent: Monday, May 10, 2010 10:17 AM
To: [email protected]
Subject: [belajar-access] DateAdd Indonesian Setting Problem [3 Attachments]
Dear All,
Wabil khusus mas MBA ^_^, saya ada permasalahan mengenai sistem angsuran
menggunakan module yang dulu pernah dibahas di forum kita tercinta ini.
Module angsuran tersebut dapat berjalan sesuai yang diharapkan jika Regional
Setting dalam format English (US). Akan tetapi jika Regional Setting diubah
ke Indonesian, maka hasilnya tidak sesuai. Untuk fungsi DateAdd saya gunakan
yang Week, karena sistem angsuran mingguan.
Lebih jelas saya sertakan dalam attachment. Atas perhatian dan bantuan
rekan-rekan saya ucapkan banyak terima kasih.
Salam
Arief Noorshiam
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
