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 <[EMAIL PROTECTED]> wrote:
From: yongki <[EMAIL PROTECTED]>
Subject: Re: [Programmer-VB] Update nilai pembayaran
To: [email protected]
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: [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 <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!
