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
> > > > > >
> > > > > > > >
> > > > > >
> > > > > > > >
> > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > >
> > >
> >
>
Tidak ada komentar:
Posting Komentar