[belajar-access] Re: Menentukan Denda

sewaktu mengisi tabel jadwal pembayaran , kan melakukan insert, agar dapat tak bertambah terus , maka data yang ada perlu dihapus , gunakan "DELETE * from ........"

Lebih cocok gunakan DAO ata ADO  untuk mengolah perhitungan . karena pengecekan dan perhitungan dilakukan per record.

1. Untuk melakukan pengecekan semua pinjaman gunakan do while not rstPinjaman.eof.

2. untuk pengulangan ( jadwal pembayaran tiap  no. pinjaman ), gunakan do while not rstjadwal.eof.

rstPinjaman berisi data pinjaman

rstjadwal  berisi data jadwal harus bayar

Hal yang perlu dipelajari :

1. ADODB.Connection
2. ADODB.Recordset

3. ADODB.Open

kalau ingin belajar dari contoh , cari di help , kata kunci ado.connection

kalau sudah coba ada kesulitan , silakan kirim file mdb / accdb ke belajar-access@yahoogroups.com

'===========

--- In belajar-access@yahoogroups.com, "Bozz" <hermawan_b29@...> wrote:
>
> Maksih pak.
> Maksudnya sub rutin hitung denda bgmna pak maksudnya?
> apakah hitung brp lama nasabah nunggak dari pembayaran terakhir.
> ini sdh saya buat pak.
> dr lasttgl pembayaran trakir. tp knapa ya pak, waktu saya cari last ang pokok, di query tdk muncul. pdhl di first muncul. salah di mana pak klo begitu?
> Kita menetapkan yg no 2 pak, Jadi jika semua angsuran pokok dan bunga full dibayar , maka tak ada denda lagi.
>
>
> Fungsi ini untuk apa ya pak?
> ditambahkan juga sebelum statement For I = 1 To Me.JkWaktu.Value :
>
> strSQL = "DELETE * FROM PinjamanSub WHERE NoPinjam = " &
> NoPinjaman
> CurrentDb.Execute strSQL, dbFailOnError
> dengan tujuan menghapus data yang seblumnya.
>
> Krn pada waktu di generate, yg muncul hanya yg trakir saja.
>
> Boleh minta masukan lebih Pak.
>
> Suwun
>
> --- In belajar-access@yahoogroups.com, "sudarsono" jkssbma@ wrote:
> >
> >
> > untuk menghitung denda , sebaiknya dibuat control command sendiri. Tidak
> > dari event Afterupdate.
> > karena kebijakan perhitungan denda , harus ditetapkan lebih dahulu.
> > misal :
> > 1. Hitung ulang dari awal jadwal pembayaran ( harus bayar ).
> > 2. jika semua angsuran pokok dan bunga full dibayar , maka tak ada
> > denda lagi ( apa denda lama dihilangkan ? ).
> > 3. ulangi hitung denda untuk periode berikutnya ( sampai tanggal hari
> > ini ).
> >
> > penggunaan datediff tetap dapat digunakan .
> >
> > coba dahulu buat subrutin hitung denda.
> > '=========
> >
> > --- In belajar-access@yahoogroups.com, "hermawan" <hermawan_b29@>
> > wrote:
> > >
> > > Bkn itu mas yg saya maksud.
> > >
> > > Tgl Jatuh Temponya di Subform kan berubah-ubah..
> > >
> > > Misalkan telat satu bulan memang enak. Pakai rumus datediff tadi.
> > >
> > > Klo misalkan telat berapa bulan, saya ingin mengetahui telat nya itu
> > mas.
> > >
> > >
> > >
> > > Ini coba saya lampirkan, biar ada gambaran.
> > >
> > >
> > >
> > > Hermawan
> > >
> > >
> > >
> > > --- In belajar-access@yahoogroups.com, Aksan Kurdin aksan.kurdin@
> > > wrote:
> > >
> > > >
> > >
> > > > pasang recordsourcenya menjadi: datediff("d",me.[Tgl Jatuh
> > Tempo],date())
> > >
> > > >
> > >
> > > > aksan kurdin
> > >
> > > >
> > >
> > > >
> > >
> > > > On 5/26/2011 4:40 PM, Bozz wrote:
> > >
> > > > >
> > >
> > > > > Dear Para master access,
> > >
> > > > >
> > >
> > > > > Saya ingin menanyakan ttg masalah yg saya hadapi sekarang.Langsung
> > >
> > > > > saja ya:
> > >
> > > > >
> > >
> > > > > Saya ingin menentukan berapa lama customer nunggak.
> > >
> > > > > Di FormPinjam: nama, alamat, pinjam,
> > >
> > > > > di Subform Pinjaman: No, Tgl Jatuh Tempo, Tgl Bayar, dan
> > jumlahangsuran.
> > >
> > > > >
> > >
> > > > > Saya ingin menambahkan text box satu lagi yakni, berapa lama cust
> > >
> > > > > nunggak, karena untuk menentukan dendanya.
> > >
> > > > > Rumusnya seharusnya Tgl hari ini dikurangi Tgl Jatuh Tempo. Pdhl
> > jatuh
> > >
> > > > > temponya di Subform kan berubah-ubah..
> > >
> > > > > Klo misalkan telat satu bulan memang enak.
> > >
> > > > > nah masalahnya klo telat sampai 2 bulan ke atas.
> > >
> > > > >
> > >
> > > > > Mungkin master-master disini bisa membantu saya?
> > >
> > > > >
> > >
> > > > > Suwun.
> > >
> > > > > Hermawan
> > >
> > > > >
> > >
> > > > >
> > >
> > > >
> > >
> >
>

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___