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

Dear Master Sudarsono and All Master Acces

untuk program yg saya buat, bgaimana caranya ya agar bisa terhubung dengan komputer lain
apakah hanya dengan di sharing drive/folder tempat file tersebut berada atau ada cara lain???

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,,,,
> >
>