jika dijadikan query, mungkin cukup dari tanggal tiap hutang aja dulu, namun yg saya antisipasi adalah jika user hanya membayar hutang dengan nilai apa adanya sehingga pengurangannya pun juga tergantung dari pembayaran tsb dan mengakibatkan adanya sisa hutang.
thanks, ----- Original Message ----- From: Ajoe To: [email protected] Sent: Wednesday, September 03, 2008 9:56 isuk Subject: Bls: [Programmer-VB] Update nilai pembayaran btw kenapa tiap hutang tidak ada nomor transaksinya mas, misal dia utang 3 kali, tapi dia mau lunasi hutang yang ke dua dulu bukan 1 ato 3 gimana ? kalo ada nomor reference lebih enak. bisa langsung pakai query t_hutang noreference idpegawai tgl nominal t_hutanga_lunas noreference tglpelunasan nominal --- Pada Sen, 1/9/08, yongki <[EMAIL PROTECTED]> menulis: Dari: yongki <[EMAIL PROTECTED]> Topik: [Programmer-VB] Update nilai pembayaran Kepada: [email protected] Tanggal: Senin, 1 September, 2008, 8:11 AM Salam VB mania, Mohon bantuan dari rekan2 VB Mania, saya ada kendala saat bikin update nilai pembayaran hutang, kasusnya seperti ini : Tabel Hutang. Tanggal Nama Hutang Bayar SisaHutang ------------ --------- --------- --------- --------- --------- --------- --------- --------- -- 14/01/2008 Andri 5,000 0 0 24/01/2008 Andri 2,000 0 0 28/01/2008 Andri 3,000 0 0 Tabel Bayar. Tanggal Nama Bayar ------------ --------- --------- --------- --------- ---- 31/01/2008 Andri 8,500 Sedangkan source code yg saya buat,seperti ini : Sub Bayar() Dim i ' Text1 saya konekkan dgn tabel Bayar dan ' Data1 dgn tabel Hutang ' Data2 dgn tabel Bayar Data1.RecordSource = "Select * from Hutang where Nama='" & trim(text1) &"'" If Data1.Recordset. RecordCount = 0 Then On Error Resume Next Else For i = 1 to Data1.Recordset. RecordCount Data1.Recordset. Field("SisaHutan g")=Data1. Recordset. Field("Hutang" )-Data2.Recordse t.Field(" Bayar") if Data1.Recordset. Field("SisaHutan g") = 0 Then Data1.Recordset. Field("SisaHutan g") = 0 Data1.Recordset. Field("Bayar" )=Data2.Recordse t.Field(" Bayar") end if Next i End If End Sub Tapi gagal terus, sedangkan yg saya inginkan dengan hasil seperti ini : Tabel Hutang. Tanggal Nama Hutang Bayar SisaHutang ------------ --------- --------- --------- --------- --------- --------- --------- --------- --------- ------- 14/01/2008 Andri 5,000 8,500 0 24/01/2008 Andri 2,000 3,500 0 28/01/2008 Andri 3,000 1,500 -1,500 Tolong bantuannya ya. Thanks All. ------------------------------------------------------------------------------ Nama baru untuk Anda! Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang lain!
