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

waduh maaf pak

terkadang kan qt melakukan kesalahan
ya untuk itu peng editan d gnakan

From: edi rosadi <edirosadie@yahoo.com.sg>;
To: <belajar-access@yahoogroups.com>;
Subject: Re: [belajar-access] Re: Edit Update Stok Barang
Sent: Wed, Jun 8, 2011 8:18:08 AM

maaf, seharusnya bukan begitu caranya.

secara logika kalau kita ingin transaksi data seperti itu, kita harus bisa mengambil nilai penjualan terakhir. dari mana identifikasinya? tentu dari kode barang. tapi transaksi kode barang bisa terjadi berkali-kali. untuk itu perlu identifikasi lain, misalnya nomor urut transaksi. nah, angka penjualan terakhir dari suatu kode barang bisa kita ambil dengan parameter nomor urut terbesar atau dengan fungsi max(). angka penjualan terakhir itulah yang digunakan untuk mengurangi stok_keluar supaya kembali ke nilai awal agar saat ditambahkan dengan angka penjualan yang telah diedit jumlahnya sesuai.

tapi ngomong-ngomong untuk keperluan apa jumah stok keluar disimpan? bukannya bisa di-query dari tabel penjualannya?

Salam,

Edi Rosadi

Algoritma dan Pemrograman

Peta Industri dan Wisata Cilegon
Blog Bahasa Cilegon

Facebook-Perancangan Sistem

komersilkan blog atau website anda dengan bergabung di sini atau di sini

--- On Wed, 8/6/11, Fajrie Shine <fajrie_shine@ymail.com> wrote:

From: Fajrie Shine <fajrie_shine@ymail.com>
Subject: Re: [belajar-access] Re: Edit Update Stok Barang
To: "Belajar Access" <belajar-access@yahoogroups.com>
Date: Wednesday, 8 June, 2011, 2:56 PM

waduh,,,
gk ngerti sy pak,,,
bgaimana maksudnya vQty yg di deklrasikan di modul utama???

From: edi rosadi <edirosadie@yahoo.com.sg>;
To: <belajar-access@yahoogroups.com>;
Subject: Re: [belajar-access] Re: Edit Update Stok Barang
Sent: Wed, Jun 8, 2011 7:36:15 AM

bagaimana kalau nilai quantity_barang disimpan di variabel, misalnya vQty. variabel vQty dideklarasikan di modul utama sehingga dikenal oleh semua procedure/function. syntax-nya menjadi :

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

dimana "[Stok Keluar] - vQty" adalah proses pengurangan [stok keluar] dengan quantity_barang sebelum diedit untuk mendapatkan [stok keluar] terakhir sebelum ditambah.

Salam,

Edi Rosadi

Algoritma dan Pemrograman

Peta Industri dan Wisata Cilegon
Blog Bahasa Cilegon

Facebook-Perancangan Sistem

komersilkan blog atau website anda dengan bergabung di sini atau di sini

--- On Wed, 8/6/11, Fajrie Shine <fajrie_shine@ymail.com> wrote:

From: Fajrie Shine <fajrie_shine@ymail.com>
Subject: Re: [belajar-access] Re: Edit Update Stok Barang
To: "Belajar Access" <belajar-access@yahoogroups.com>
Date: Wednesday, 8 June, 2011, 1:48 PM

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