ACCESS FEED: Re: Bls: [belajar-access] Perbaikan dan Penambahan [1 Attachment]

Rabu, 18 Mei 2011

Re: Bls: [belajar-access] Perbaikan dan Penambahan [1 Attachment]

[Attachment(s) from Sofyan Efendi included below]

Dear Mas Fajrie, bisa menggunakan procedure sbb di form pencariannya:

Private Sub Kode_Barang_AfterUpdate()
    Dim db As Database
    Dim rs As Recordset
    Dim strSQL As String
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tbl_Barang", dbReadOnly)
    rs.FindFirst "[Kode Barang]='" & Me![Kode Barang] & "'"
    If rs.NoMatch = False Then
        Me!Nama = rs!Nama
        Me![Stok Akhir] = rs![Stok Akhir]
    Else
        rs.Close
        strSQL = "SELECT Tbl_Persamaan.[Kode Barang], Tbl_Persamaan.Persamaan" & _
                " FROM Tbl_Persamaan" & _
                " WHERE Tbl_Persamaan.Persamaan='" & Me![Kode Barang] & "';"
        Set rs = db.OpenRecordset(strSQL, dbReadOnly)
        Me!Nama = DLookup("Nama", "Tbl_Barang", "[Kode Barang]='" & rs![Kode Barang] & "'")
        Me![Stok Akhir] = DLookup("[Stok Akhir]", "Tbl_Barang", "[Kode Barang]='" & rs![Kode Barang] & "'")
    End If
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub

Atau bisa download samplenya.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/

----- Original Message -----

From: Fajrie Shine

To: Belajar Access

Sent: Wednesday, May 18, 2011 3:00 PM

Subject: Trs: Bls: [belajar-access] Perbaikan dan Penambahan [1 Attachment]

Dear Mr. Edi Rosadi

Ini Struktur Tabelnya,,,
Begini Pak, Ini kan Contoh aja, sy kerja di puskesmas cuma puskesmas kecil aja sih di daerah saya, selain jadi perawat, sy jg jadi bagian perbendaharaan obat.
jadi, satu macam obat itu kan banyak merknya,,,,
Jadi Misalkan Ramoxyl, Omemox, Hufanoxyl itu kan semua Amoxyllin 500 mg (tablet) stoknya ada 500 tablet
jadi misalkan nantinya dilakukan pencarinan dengan kode barang Ramoxyl/Omemox/Hufanoxyl/Amoxyllin yang tampil stoknya ada 500 tablet
Saya Gak Bisa Untuk Pembuatan Query dan Formnya,,,
agar nantinya saat ada penambahan data, bisa dilkaukan penambahan dengan kode barang serta persamaan dan golongannya
Mohon Bantuannya,,,
Terimakasih

Dari: edi rosadi <edirosadie@yahoo.com.sg>
Kepada: belajar-access@yahoogroups.com
Terkirim: Rab, 18 Mei, 2011 12:16:33
Judul: Re: [belajar-access] Perbaikan dan Penambahan

mas fajrie,

bisa di-attch struktur tablenya? yang saya tahu amoxillin bisa berupa tablet atau syrup dan dosisnya ada 250mg dan 500mg. data-data seperti itu bisa dijadikan sebagai parameter pencarian untuk hasil yang lebih akurat.
banyak kode untuk satu nama barang memang mungkin terjadi, tetapi ketika digabungkan dengan field yang lain, pasti akan manjadi dua item yang berbeda, misalnya :

- 001 : Amoxillin-tablet-250mg
- 002 : Amoxillin-tablet-500mg
- 003 : Amoxillin-syrup-25cc

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, 18/5/11, Fajrie Shine <fajrie_shine@ymail.com> wrote:

From: Fajrie Shine <fajrie_shine@ymail.com>
Subject: [belajar-access] Perbaikan dan Penambahan [1 Attachment]
To: "Belajar Access" <belajar-access@yahoogroups.com>
Date: Wednesday, 18 May, 2011, 10:50 AM

Dear Master Access

Assallamu'alaikum wr.wb

Mohon Bantuannya untuk perbaikan dan Penambahan data untuk [accd] yg sedang saya pelajari ini,
saya ingin membuat applikasi penjualan barang, tolong bantuannya untuk pembuatan/perbaikan table, query dan form
sy ingin adanya penambahan golongan/type barang, serta adanya persamaan kode barang untuk 1 nama barang, jadi misalkan natinya saat melakukan pencarian di form
misalkan

Kode Barang: 001, 002, 003, 004

Nama Barang : Amoxyllin
Golongan : Antibiotik
Satuan : Kpg
Harga Beli : Rp. 5,000
Harga Jual : Rp. 7,500
Stok Awal : 100
Stok Masuk : 13
Stok Keluar : 25
Stok Akhir : 88

Saat dilakukan pencarian dengan kode barang yang berbeda, selalu hasil yg di dapat seperti itu,,,,
intinya Banyak kode barang dengan 1 nama barang

Mohon Bantuannya, dengan ini saya sertakan file [accdb] nya
Terimakasih

Wassallamu'alaikum Wr.Wb