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("SisaHutang")=Data1.Recordset.Field("Hutang")-Data2.Recordset.Field("Bayar")
if Data1.Recordset.Field("SisaHutang") = 0 Then
Data1.Recordset.Field("SisaHutang") = 0
Data1.Recordset.Field("Bayar")=Data2.Recordset.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.
