[belajar-access] Re: tanya update stok barang

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, December 01, 2009 11:06 AM
Subject: [belajar-access] Re: tanya update stok barang

> 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 belajar-access@yahoogroups.com, "di2_shadow" <di2_shadow@...>
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.
> >
>