MS ACCESS MAILING LIST: [belajar-access] Re: Tanya Lagi Soal Looping

Klo itu kan untuk mingguan mas..
Padahal saya coba untuk Pinjaman Musiman, Bulanan dan mingguan.
Jadi klo dipilih Musiman, Bulanan atau mingguan saat klik tombol shcedule, bisa langsung trisi otomatis..
bisa di bantu source code nya..

thanks..

--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> 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@...>
> > *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
> >>
> >
> >
>