MS ACCESS MAILING LIST: [belajar-access] Re: Menentukan Denda

Maaf pak, krn blajar otodidak utk code VB sama sekali kurang paham pak.
Pengennya c yg simple.
Code VB kmrn juga dari sini.
bisa di bantu pak?

Thx.

--- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@...> wrote:
>
>
> 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 <mailto: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
> > > >
> > > > > >
> > > >
> > > > > >
> > > >
> > > > >
> > > >
> > >
> >
>