proses nya aja yang di balik... coba code di bawah ini
semoga membantu...
Sub Bayar()
Dim i, j
Dim nBayar
' Text1 saya konekkan dgn tabel Bayar dan
' Data1 dgn tabel Bayar
' Data2 dgn tabel Hutang
Data1.RecordSource = "Select * from Bayar where Nama='" & trim(text1) &"'"
If Data1.Recordset. RecordCount = 0 Then
On Error Resume Next
Else
For i = 1 to Data1.Recordset. RecordCount
nBayar = Data2.Recordse t.Field(" Bayar")
Data2.RecordSource = "Select * from Hutang where Nama='" &
trim(text1) &"'"
If Data2.Recordset. RecordCount = 0 Then
On Error Resume Next
Else
For j = 1 to Data2.Recordset. RecordCount
Data2.Recordset.Field("Bayar") = nBayar
If nBayar > Data2.Recordset.Field("Hutang") Then
nBayar = nBayar -
Data2.Recordset.Field("Hutang")
Data2.Recordset.Field("SisaHutang") = 0
Else
Data2.Recordset. Field("SisaHutang")
= Data2.Recordset. Field("Hutang" ) - nBayar
End If
Data2.Recordset.MoveNext
Next j
End If
Data1.Recordset.MoveNext
Next i
End If
----- Pesan Asli ----
Dari: Among Saliro <[EMAIL PROTECTED]>
Kepada: [email protected]
Terkirim: Rabu, 3 September, 2008 14:22:30
Topik: Re: [Programmer-VB] Update nilai pembayaran
coba ditambahkan kode ini
for i=...
data1.recordset. movenext ('akan pindah record ke posisi berikutnya, otomatis
update)
next i
data1.recordset. update ('bila diposisi terakhir perintah ini akan dijalankan
sehingga
perubahan thd recodset diupdate.
--- On Wed, 9/3/08, yongki <yungkivaldi@ gmail.com> wrote:
From: yongki <yungkivaldi@ gmail.com>
Subject: Re: [Programmer- VB] Update nilai pembayaran
To: Programmer-VB@ yahoogroups. com
Date: Wednesday, September 3, 2008, 6:39 AM
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: Programmer-VB@ yahoogroups. com
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 <yungkivaldi@ gmail.com> menulis:
Dari: yongki <yungkivaldi@ gmail.com>
Topik: [Programmer- VB] Update nilai pembayaran
Kepada: Programmer-VB@ yahoogroups. com
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!
___________________________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
