MS ACCESS MAILING LIST: Re: Bls: [belajar-access] Bagaimana cara update stock di ms. access ? [1 Attachment]

[Attachment(s) from hasimnurhsm@yahoo.com included below]

kalau sayasich biasa pake vbanya mas...spt ini:

Private Sub Tambah_Stock_Click()
    Dim dbs As DAO.Database
    Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset
    Dim strSql As String, strFind As String

    Set dbs = CurrentDb

    'BUKA DATA PEMBELIAN BERDASARKAN NO FAKTUR

    strSql = "SELECT Tbl_D_Penjualan.*, Tbl_H_Penjualan.Tgl_Fak, Tbl_H_Penjualan.NIK" & _
    " FROM Tbl_H_Penjualan INNER JOIN Tbl_D_Penjualan ON Tbl_H_Penjualan.No_Fak = Tbl_D_Penjualan.No_Fak" & _
    " WHERE(((Tbl_H_Penjualan.No_Fak) = '" & Me.No_Fak & "'))" & _
    " ORDER BY Tbl_D_Penjualan.Kode_Barang;"
    Set rst1 = dbs.OpenRecordset(strSql, dbOpenDynaset)

     'BUKA DATA MASTER BARANG URUT BERDASARKAN KODE BARANG

    strSql = "SELECT Master_Brg.* FROM Master_Brg ORDER BY Master_Brg.Kode_Barang;"
    Set rst2 = dbs.OpenRecordset(strSql, dbOpenDynaset)

    'CEK DATA PEMBELIAN APAKA ADA ATAU TIDAK

    If Not (rst1.BOF And rst1.EOF) Then
        rst1.MoveFirst
        Do While Not rst1.EOF
            strFind = "[Kode_Barang] = '" & rst1![Kode_Barang] & "'"
            If Not (rst2.BOF And rst2.EOF) Then
                rst2.MoveFirst
                rst2.FindFirst strFind
            End If
            If rst2.NoMatch Or (rst2.BOF And rst2.EOF) Then
                With rst2
                    .AddNew
                    ![Kode_Barang] = rst1![Kode_Barang]
                    ![Nama_Barang] = rst1![Nama_Barang]
                    ![Harga_Satuan (Rp)] = rst1![Harga_Satuan (Rp)]
                    ![Stok_Barang] = rst1![Jumlah_Barang]
                    .Update
                End With
            Else
                With rst2
                    .Edit
                    ![Stok_Barang] = ![Stok_Barang] + rst1![Jumlah_Barang]
                    .Update
                End With
            End If
            rst1.MoveNext
        Loop
    End If

End Sub

saya lampirin sample yang td silahkan dikembangkan

salam
Nurhasim

--- On Tue, 8/3/11, Aldyth Yosua Pradipta Pradipta <aldyth_y@yahoo.co.id> wrote:

From: Aldyth Yosua Pradipta Pradipta <aldyth_y@yahoo.co.id>
Subject: Bls: [belajar-access] Bagaimana cara update stock di ms. access ? [1 Attachment]
To: belajar-access@yahoogroups.com
Received: Tuesday, 8 March, 2011, 6:04 AM

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.