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. ____________________________________________________________________ Kunjungi halaman depan Yahoo! Indonesia yang baru! http://id.yahoo.com/
