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

Errornya mungkin karena field noAngota , bertipe bukan text ?
kalau ya , nilaikan "'" pada
WHERE NoAnggota = '" & Me.NoAnggota & "'"
sehinggan menjadi
WHERE NoAnggota = " & Me.NoAnggota

'===========
--- In belajar-access@yahoogroups.com, "Bozz" <hermawan_b29@...> wrote:
>
> Klo ini salahnya di mana ya pak?
>
> Private Sub NoAnggota_BeforeUpdate(Cancel As Integer)
> Dim SqlAng As New ADODB.Recordset
>
> SqlAng.Open "SELECT Max(PinjamanKe) As PinjamanKe FROM Pinjaman WHERE NoAnggota = '" & Me.NoAnggota & "'", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
> If Not (SqlAng.BOF Or SqlAng.EOF) And (SqlAng!Pinjaman <> "Null") Then
> Me.PinjamanKe = SqlAng!Pinjaman + 1
> Else
> Me.PinjamanKe = 1
> End If
> Set SqlAng = Nothing
> End Sub
>
> kok error trus? bisa di bantu?
>
>
> --- In belajar-access@yahoogroups.com, "sudarsono" jkssbma@ wrote:
> >
> >
> > saya anjurkan baca buku ttg access, misal karangan Ahmad Muhlis dan
> > Abdul Kadir.
> >
> > Karena pengetahuan dasar perlu dipeljari dalam membuat aplikasi, baik
> > Access , VB 6.0 , Foxpro , dsb.
> >
> > Setelah itu baru coba2 membuat aplikasi ( dari contoh yang ada dibuku )
> > , sambil bertanya pada milis ini.
> >
> > Cara tsb saya gunakan dalam belajar bahasa Pemrograman Access, VB , PHP
> > , Java dan Delphi ( delphi lebih ringkas dan powerfull ) .
> >
> > '===========
> >
> >
> > --- In belajar-access@yahoogroups.com, "Bozz" <hermawan_b29@> wrote:
> > >
> > > 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
> > > > > > >
> > > > > > > > >
> > > > > > >
> > > > > > > > >
> > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > >
> > >
> >
>