Pak Haer,
Karena saya backgroud programnya foxpro, maka saya gunakan alur kondisinya saya
gunakan yang biasa di foxpro, dan sudah terbukti bisa jalan di MsAccess, sbb:
Private Sub besar_pinjaman_AfterUpdate()
IF sisa_pinjaman = 0 then
STATUS = "Lunas"
else
STATUS = "Belum Lunas"
End if
End Sub
Nah setiap setelah saya input nilai besar_pinjaman, langsung dapat message
error (run Time error "3164" : Field cannot be updated), selanjutnya kalau saya
klik button debug, maka ada warna kuning pada statement STATUS="Lunas".
demikian infonya mudah-mudahan jadi lebih jelas.
Thanks,
-Reza-
===========
Haer Talib <[EMAIL PROTECTED]> wrote: coba paste ke
sini code anda.
2008/5/29 Reza Ravisqi <[EMAIL PROTECTED]>:
Assalamu'alaikum,
Saya adalah SANGAT pemula dalam penggunaan MsAccess. Saya sedang bikin aplikasi
sederhana, mengenai koperasi simpan-pinjam.
Saya punya Tbl_pinjaman (kode_peminjam, besar_pinjaman,sisa_pinjaman,status),
dengan contoh isi fieldnya sbb :
kode_pinjaman=A11
Besar_pinjaman=15.000
Sisa_pinjaman=1.000
Status="Belum Lunas" (karena masih ada sisa pinjaman, 0 maka lunas)
Nah dalam Form proses pengebalian pinjaman yang saya bikin, dimana event
procedure after update setelah input nilai pembayaran, saya bikin kondisi jika
sisa_pembayaran =0 maka vstatus="Lunas" jika tidak "Belum Lunas", ditutup
setelah end if, saya tulis statement STATUS=vstatus.
namun selalu mendapat message error setelah saya input nilai pembayaran,
langsung menuju Mircosoft Visual Basic dengan warna kuning menunjukakan bahwa
statement di atas salah.
mohon para senior bisa kasih nasihatnya. . .
-Reza-
--
..___
---------------------------------
Yahoo! Toolbar kini dilengkapi dengan Search Assist. Download sekarang juga.
