Re: Bls: [belajar-access] Bagaimana cara update stock di ms. access ?

Berikut yang anda butuhkan untuk update field stok_barang di master barang:
(Modul ini adalah untuk form penjualan detail).



Option Compare Database
Option Explicit

Dim JumlahAwal As Integer

Private Sub cb_Kode_Barang_AfterUpdate()
    Me![Nama_Barang] = cb_Kode_Barang.Column(1)
    Me![Harga_Barang] = cb_Kode_Barang.Column(2)
    Me![Harga_Satuan (Rp)] = cb_Kode_Barang.Column(3)
End Sub

Private Sub Form_AfterUpdate()
    DoCmd.RunSQL "UPDATE Master_Brg SET Stok_Barang = Stok_Barang + " & JumlahAwal & " - " & Me.Jumlah_Barang & " WHERE Kode_Barang = '" & Me.Kode_Barang & "'"
End Sub

Private Sub Form_Current()
    If Me.NewRecord Then
        JumlahAwal = 0
    Else
        JumlahAwal = Me.Jumlah_Barang
    End If
End Sub






Penghitungan stok dilakukan di evet after update dari form (sesaat setelah record di simpan).
Untuk record baru, hasil hitungan selalu mengurangi stok.
Untuk edit record yang sudah ada, quantity jual sebelumnya di kembalikan dulu ke stok, baru stok dikurangi dengan quantity pembetulan. Itulah sebabnya kita butuh satu variabel tambahan JumlahAwal yang akan mengingat nilai jumlah barang setiap kali berpindah record.

Mudah2-an bisa dipahami.


Aksan Kurdin

Aksan Kurdin

On 3/8/2011 9:04 PM, Aldyth Yosua Pradipta Pradipta wrote:

 

Ini bentuk aplikasi saya yang telah saya buat, mohon dibantu Pak untuk mengubah stok jika ada pembelian... Thnx... Maaf jika ada kekeliruan atau kekurangan dalam aplikasi ini -masih perlu bnyak belajar saya-
 

Best Regards,

P. Aldyth Yosua P.

---

Dari: Aksan Kurdin <aksan.kurdin@gmail.com>
Kepada: belajar-access@yahoogroups.com
Cc: Aldyth Yosua Pradipta Pradipta <aldyth_y@yahoo.co.id>
Terkirim: Sen, 7 Maret, 2011 09:54:04
Judul: Re: [belajar-access] Bagaimana cara update stock di ms. access ?

 

Dear Aldyth,
Jawaban praktisnya, anda kerjakan melalui even di form (after update) melalui koding vba dan perintah sql.
Jawaban detailnya, silakan kirim aplikasi anda, cukup potongan data / data dummy, dan bagian2 obyek (form/query) yang terkait dengan stok dan pembelian. Nanti kita lihat model data anda bagaimana, sehingga solusi yang diberikan tidak mengira-ngira lagi.

Thks,

Aksan Kurdin
 
On 3/7/2011 12:41 AM, Aldyth Yosua Pradipta Pradipta wrote:

 

Para Master" access saya mau bertanya nih : Apakah kita bisa membuat update stok di dalam ms.access ?

Contohnya sprti ini :

Stok barang

Buku 15

Pensil 10

Penghapus 5

Kemudian ada pembelian barang buku 5, pensil 2.. Harusnya kan tabel stok barangnya berubah menjadi :

Stok barang

Buku 10

Pensil 8

Penghapus 5

Nah saya mau membuat seperti itu, bagaimana caranya ya ? Mohon bantuannya :) Thnx b4

 

Best Regards,

P. Aldyth Yosua P.

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___