penyelesaian sederhana bisa anda lakukan melalui catch event before update dari
form isian detail penjualan barang. anda bisa mengecek saldo dari tabel master
barang untuk menentukan boleh tidaknya lanjut isi penjualan.
sub formanu_beforeupdate(cancel as integer)
dim dummy as integer
dummy = nz(dlookup("saldo","tabelbarang","kodebarang='" & me.txtKodeBarang
& "'"),0)
if dummy < me.txtQuantity then
msgbox "Barang tidak cukup"
cancel = -1
endif
end sub
sub formanu_afterupdate
docmd.runsql "UPDATE tabelbarang SET saldo = saldo - " & me.txtQuantity & "
WHERE kodebarang = '" & me.txtKodeBarang & "'"
end sub
kira-kira seperti itu ......
recordset dari form tidak bisa di simpan selama saldo tidak cukup, dan sesaat
setelah recordset terupdate, otomatis stok langsung berkurang.
ini cuma pseudo kode, belum di test di access, tetapi idenya seperti itu.
aksan kurdin
--- In [email protected], "di2_shadow" <di2_sha...@...> wrote:
>
> para suhu semua
> saya mau tanya donk gimana sintax sql untuk update stok barang ??
> kasusnya begini : ketika melakukan penjualan barang lalu dimasukan jumlah
> barang yang akan dibeli,jika jumlah lebih besar dari stok yang ada maka akan
> error tetapi jika kurang dari stok bisa lanjut.
> databasenya : ada table master barang yang menyimpang nama
> barang,harga,stok,dll.
> thx.
>
