mas kalo kode yang ini :
private sub form_afterupdate()
on error resume next
DoCmd.RunSQL "UPDATE TBLPembelianHeader SET TBLPembelianHeader.bayar =
True WHERE (((TBLPembelianHeader.NoTransaksi)='" & Me.No_Pembelian & "'));"
if err.number <> 0 then
msgbox err.description & "(" & err.number & ")"
endif
end sub
saya rubah menjadi begini :
private sub form_afterupdate()
on error resume next
if me.totalutang.value - me.totalbyr.value >=0 then
DoCmd.RunSQL "UPDATE TBLPembelianHeader SET TBLPembelianHeader.bayar =
True WHERE (((TBLPembelianHeader.NoTransaksi)='" & Me.No_Pembelian & "'));"
end if
if err.number <> 0 then
msgbox err.description & "(" & err.number & ")"
endif
end sub
bisa ngga???
coz, pengennya kalo pembayarannya belum lunas, dia nggak akan hilang dari
daftar hutang.....
