MS ACCESS MAILING LIST: Re: [belajar-access] Re: Edit Update Stok Barang

Hilangkan oldValue di baris berikut, only use NZ(Me.Quantity_Barang,0)

Private Sub Form_Current()
    If Me.NewRecord Then
        oldQty = 0
    Else
        oldQty = Nz(Me.Quantity_Barang, 0)
    End If
End Sub

aksan kurdin

On 6/8/2011 1:48 PM, Fajrie Shine wrote:

gk bisa pak???
setelah di enter kan itu sudah menambahkan stok keluar
kalau di edit yg terjadi malah menambah stok keluar lagi dengan data yg baru

From: sudarsono <jkssbma@live.com>;
To: <belajar-access@yahoogroups.com>;
Subject: [belajar-access] Re: Edit Update Stok Barang
Sent: Wed, Jun 8, 2011 5:04:27 AM

seperti yang bapak kirim :

DoCmd.RunSQL "Update Tbl_Barang SET [Stok Keluar] = [Stok Keluar] + " &
Me.Quantity_Barang & " - " & oldQty & " WHERE [KodeBarang] = '" &
Me.cb_kode_barang & "'"

bentuk kodenya seperti apa pak???
gambaran saya seperti ini
stok keluar = stok keluar - quantity (awal) + quantity (setelah di edit)

--- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@...> wrote:
>
>
> koding tsb sudah berjalan . untuk pembelian tinggal di modif dengan
> dasar logika :
>
> 1. Penjualan : mengurangi stock
>
> 2. pembelian : menambah stock
>
> Yang penting anda masukan koding tsb pada Form:
>
> frm_D_Pjl
>
> sedangkan pada form :
>
> frm_Transaksi Penjualan
>
> tidak perlu berubahan .
>
> aplikasi yang anda sudah Bagus.
>
>
> --- In belajar-access@yahoogroups.com, Fajrie Shine <fajrie_shine@>
> wrote:
> >
> > Dear Master Access
> >
> > Mohon lagi Bantuannya nih,,,,,
> >
> > ini bentuk VBA Access yang saya miliki yang saya dapat dari Master2
> Access yg
> > baik hati
> >
> > Option Compare Database
> > Option Explicit
> >
> > Dim oldQty As Integer
> > Private Sub cb_kode_barang_AfterUpdate()
> > Me![Nama Barang] = cb_kode_barang.Column(1)
> > Me![Product] = cb_kode_barang.Column(2)
> > Me![Type] = cb_kode_barang.Column(3)
> > Me![Satuan] = cb_kode_barang.Column(4)
> > Me![Harga Jual Satuan] = cb_kode_barang.Column(5)
> > Me![Disc%] = cb_kode_barang.Column(6)
> > Me![PPn%] = cb_kode_barang.Column(7)
> > End Sub
> >
> > Private Sub Form_AfterUpdate()
> > DoCmd.SetWarnings False
> > DoCmd.RunSQL "Update Tbl_Barang SET [Stok Keluar] = [Stok Keluar] + "
> &
> > Me.Quantity_Barang & " - " & oldQty & " WHERE [KodeBarang] = '" &
> > Me.cb_kode_barang & "'"
> > DoCmd.SetWarnings True
> > End Sub
> >
> > Private Sub Form_Delete(Cancel As Integer)
> > DoCmd.SetWarnings False
> > DoCmd.RunSQL "Update Tbl_Barang SET [Stok Keluar] = [Stok Keluar] - "
> &
> > Me.Quantity_Barang & " WHERE [KodeBarang] = '" & Me.cb_kode_barang &
> "'"
> > DoCmd.SetWarnings True
> > End Sub
> >
> > Private Sub Form_Current()
> > If Me.NewRecord Then
> > oldQty = 0
> > Else
> > oldQty = Nz(Me.Quantity_Barang.OldValue, 0)
> > End If
> > End Sub
> >
> > Pertanyaan saya.....
> >
> > Bagaimana cara edit detail penjual yang nantinya berpengaruh terhadap
> stok
> >
> > Misalkan
> > KodeBarang : A
> > Stok Keluar : 30
> >
> > Jika Terjadi Terjadi Penjualan barang A sebanyak 30 maka VB Code yang
> saya beri
> > warna merah akan berjalan dan nantinya akan menjadi
> >
> > Kode Barang : A
> > Stok Keluar : 60
> >
> > Jika Record Dihapus maka VB Code yang saya beri warna biru akan
> bejalan dan
> > nantinya akan menjadi
> >
> >
> > Kode Barang : A
> > Stok Keluar : 30
> >
> > Nah ini pertanyaan saya
> >
> > Misalkan Terjadi Penjualan barang A sebanyak 30
> >
> > Kode Barang : A
> > Stok Keluar : 60
> >
> > Jika saya meng-EDIT data penjualan yang tadinya pembelian barang 30 di
> edit
> > menjadi 25 maka Menjadi
> >
> > Kode Barang : A
> > Stok Keluar : 55
> >
> > Bagaimana Bentuk VB Codenya ???
> >
> > Mohon Bantuannya,,,,
> >
> > Maaf Terlalu Panjang,,,,
> >
>