hallo semua rekan di groups in,
bisa minta tolong dunk, aku buat database pembelian, penjualan dan
stok barang.
trouble ada di penjualan form penjualandetail, pada saat quantity
terupdate dan cek ke tbl stok tyt data yang dimasukan ttp terupdate
walaupun stok sebenarnya 0. harusya dia tidak mengupdate dan
menghasilkan nilai minus (-)
ini potongan scriptnya:
Tabel Stok :NoItem,NamaBrg,QtyStock
Tabel Penj : NoTransaksi,Tgl,CustID,Status,SubTotal,Potongan,GrandTotal
Tabel DetailPenj : NoTransaksi,NoItem,NamaBrg,Harga,Qty,Total
Public Sub Qty_AfterUpdate()
Dim Db as Database
Dim rsStock as Recordset
if Me![Qty] <> "" then
Set Db = CurrentDb
Set rsStok = dpOpenRecordset("SELECT TblDetailJual.* FROM
TblDetailJual.NoItem WHERE ("TblDetailJual.NoItem='" & Me![NoItem]
&"')dbOpenSnapshot)
If Val(Me.Qty) > Val(rsStok.Fields(Me![QtyStock])) then
MsgBox "Stock Barang Tidak Mencukupi !!", vbOkOnly + vbCritical,"Stok
Barang""
doCmd.CancelEvent
Cancel = True
End If
Db.Close
End If
NoItem.SetFocus
End Sub
ada yang salah dg script diatas ? hlp plz... :(
thx in advance
