Re: [belajar-access] Tanya Lagi Soal Looping

coba pasang break point di code vbe untuk trace error, atau untuk kasus berikut, periksa isi strsq dengan message box.
Hasilnya bisa kelihatan.
dengan seting indonesia, desimal menjadi {,} menyebabkan perintah sql seolah2 field yang akan di insert melebihi field yang disediakan.
salah satu jalan bisa dengan memberikan format setiap numerik menjadi model yang tidak menggunakan tanda , sebagai pemisah desimal.
Cuma saja jeleknya, hanya bisa berjalan untuk seting regional Indonesia. Begitu di apply ke seting English, fungsi ini tidak akan berjalan.


Private Sub GenerateAngsuran()
    CurrentDb.Execute "DELETE * FROM [PinjamanSub] Where NoPinjaman='" & Me.NoPinjaman.Value & "'", dbFailOnError
    For I = 1 To Me.LamaPinj.Value
        NoPinjaman = Me.NoPinjaman.Value
        tgl_JatuhTempo = tReplace(Format(DateAdd("ww", I, Me.TglPinjaman), "dd-mmm-yyyy"))
        Debug.Print tgl_JatuhTempo
        Jumlah_Angsuran = Me.JmlCicilanModal.Value
        Angs_Ke = I
        CicilanBunga = Me.JmlCicilanBunga.Value
        ProsenBunga = Me.ProsenBunga.Value
        SaldoModal = Me.Sisa
        SaldoBunga = Me.SisaBunga
               
        strsq = "INSERT Into [PinjamanSub] (NoPinjaman,TglJatuhTempo,JumlahAngsuran, AngsuranKe, CicilanBunga, ProsenBunga, " _
            & "SaldoAkhirModal, SaldoAkhirBunga ) VALUES ('" & NoPinjaman & "',#" & tgl_JatuhTempo & "#," & FormatNumberEn(Jumlah_Angsuran) _
            & "," & Angs_Ke & "," & FormatNumberEn(CicilanBunga) & "," & ProsenBunga & "," & SaldoModal & "," _
            & SaldoBunga & ")"
        'MsgBox strsq
        CurrentDb.Execute strsq, dbFailOnError
        Me.AngsDetail.Requery
    Next
End Sub

Public Function FormatNumberEn(aNumber) As String
    FormatNumberEn = Replace(aNumber, ",", ".")
End Function










aksan kurdin



On 11/26/2010 9:44 AM, Arief Noorshiam wrote:

Mas Aksan,

Coba regional setting sampean ganti ke Indonesia, dijamin... bakal nemuin masalah seperti saya :-P

Hmm... gimana ya ngakalinya? Soalnya sy perlu Regional Setting Indonesia, saya kan cinta tanah air ^_^

Salam

Arief Noorshiam

---

From: Aksan Kurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Thu, November 25, 2010 9:08:30 AM
Subject: Re: [belajar-access] Tanya Lagi Soal Looping

Mas Arief,
Normal - normal saja saya jalankan.
Pesan error itu menandakan query append mas arief antara field yang di tuju dengan field sourcenya jumlahnya tidak sama.



aksan kurdin



On 11/24/2010 9:41 PM, Arief Noorshiam wrote:

 

Dear All,

Mau tanya lagi soal looping seperti terlampir dalam attachment. Field Jangka
Waktu merupakan pembagi Jumlah Pinjaman sehingga menjadi jumlah dalam field
Angsuran Modal. Jika field Jumlah Pinjaman dibagi Jangka Waktu menghasilkan
angka bulat (tidak ada angka di belakang koma) maka ketika button Schedule di
klik secara otomatis Sub Form Angsuran Detail akan terisi. Akan tetapi jika
angka yang dihasilkan dari pembagian tersebut menunjukkan adanya angka
dibelakang koma, maka muncul Error Message : "Run Time Error '3346' Number of
query values and destination fields are not the same"

Mohon pencerahan sekali lagi atas permasalahan ini.

Atas perhatian dan bantuan rekan-rekan saya ucapkan terima kasih

Salam

Arief Noorshiam