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
> > >
> > > > >
> > >
> > > > >
> > >
> > > >
> > >
> >
>
Komentar ini telah dihapus oleh pengarang.
BalasHapussaya mau nanya, gimana cara bikin rumus pada denda jika pengembalian buku terlambat pada aplikasi perpustakaan dengan microsoft accesss, mohon pencerahannya min, terima kasih
Hapus