Kamis, 18 April 2013

Re: [belajar-access] copy isi filed dr tabel_2 ke tabel_1

 

On 15/04/13 14:47, aksan kurdin wrote:

 

semua solusi tidak perlu dipermasalahkan penyampaiannya.  karena anda sangat tersentuh dengan "nyeleneh" sehingga solusi yang diberikan monas terlewat. berikut saya copas kan lagi :

Pada mode design view event after update combo box nya isi kan
Me.uraian=Dlookup("[uraian]","tabel2","[kd_brg]=me.kd_brg"

text uraian akan selalu mengambil nilai hasil lookup dari pilihan combo box.

masih bingung ?



aksan kurdin

On 4/15/2013 2:22 PM, Asep SUryana wrote:
 

On 14/04/13 04:52, aksan kurdin wrote:

 

"nyleneh" tidaknya tergantung sifat data transaksinya.
description barang umumnya memang tidak pernah berubah, tetapi tetap ada kejadian bisa berubah.
uraian barang kemungkinan besar berubah-ubah di setiap transaksinya, tetapi ada satu pattern dasar sebagai defaultnya.

saya beri contoh kasus,
semisal di pasar saham, setiap listed company selalu memiliki 4 digit kode saham beserta description nama companynya, seperti TLKM punya PT Telkom, ASII punya Astra Indonesia.
PT International Nickel Indonesia Tbk (INCO) pada 27 September 2011 berubah nama menjadi PT Vale Indonesia Tbk. Kode emiten yang listed di pasar bursa tetap INCO. Karena hal ini, jika investor ingin mengetahui historical pergerakan harga pasarnya sesuai dengan dinamika dan issue yang beredar, maka description / nama company harus disimpan di tabel transaksinya.

semisal lagi di perusahaan tempat saya bekerja, alat berat,
kita melepas unit excavator sesuai model tonnage, contoh SK200 berarti excavator dengan kemampuan kerja 20 ton.
master model terdiri dari kode model (SK200) dan deskripsi (20 ton). ada satu field spec yang sama dengan uraian barang di contoh atas.
karena sifatnya jualannya di tempat yang berbeda, model ini sering dimodifikasi dengan tambahan-tambahan seperti accesories lampu, penguat arm, pelindung kabin, mengganti backet menjadi capitan atau mata bor. karena uraian ada tambahan keterangan seperti itu di setiap transaksi penjualan yang terjadi, maka uraian / spec akan berbeda-beda, dan harus di simpan di tabel transaksi. Akan tetapi spec standarnya yang beberapa baris cukup bikin capek mengetiknya, tetap di pertahankan di tabel master sebagai nilai default.

aksan kurdin


On 4/10/2013 1:27 PM, monas monas wrote:
 

Kenapa harus di isi uraian yang sama pada tabel barang lagi pak ? Dalam ms access keinginan bapak tsb termasuk "nyleneh"
Tapi lepas dari apa alasan bapak, mungkin cara ini bisa di coba
Pada mode design view event after update combo box nya isi kan
Me.uraian=Dlookup("[uraian]","tabel2","[kd_brg]=me.kd_brg"

Silahkan di olah dikit sbb saya belum cb juga di kompi
Hanya sebatas Logika di negeri awang2 saja
Semoga seperti yang di inginkan
Salam

Sent from Yahoo! Mail on Android



From: Asep SUryana <asuryana@astra-agro.co.id>;
To: <belajar-access@yahoogroups.com>;
Subject: [belajar-access] copy isi filed dr tabel_2 ke tabel_1
Sent: Wed, Apr 10, 2013 3:39:41 AM

 

Assalamu'alaikum Wr Wb

Nywun sewu/ Hapunten Para Master

saya mohon pencerahannya nich... saya buat 2 tabel, TABEL_1 bersisi field :
- kd_vcr
- nm_vcr
- kd_brg
- uraian
dan TABEL_2 berisi field :
- kd_brg
- nm_brg
- uraian_brg

untuk input kd_brg saya buat dg ComboBox dg data diambil dari TABEL_2, TABEL_1 sebagai Tabel Master dan sebagai tabel inputan. Untuk Field Uraian saya innginkan begitu saya input kd_brg setelah saya Click/Enter Field Uraian langsung terisi data yang dicopy dari field Uraian_brg yg ada di TABEL_2. yg saya tanyakan bagaimana ya caranya agar Field Uraian  langsung terisi setelah sayaClick/Enter kd_brg yg isinya sama dengan Uraian_brg yg ada di TABEL_2.

Mohon pencerahannya ya...

Wassalamu'alaikum...

Asep S.


Assalamu'alaikum Wr Wb

Terima kasih mas Aksan atas tanggapan yg sangat Positif dan Profesional, *** ******* ******* ** ********* *** *****-***** ** ***** *********** ***** **** ** *****-***** ****** ******* ****** ****-**** "NYELENEH" ***** ****** ********* *******/ ****** ** ***** ******** **** ********** ** **** *******. ******* **** ***** ******* ********** ******* ******.

Terima kasih ya mas Aksan... terima kasih.

Nah sekarang bagaiman ya mas Aksan solusi dari pertanyaan saya tersebut dan program di VBnya kaya gimana ya... terima kasih.

Wassalam,

Asep Suryana

Assalamu'alaikum Wr Wb

Maaf Mas Aksan nich, sy sudah coba contoh dari mas Aksan tapi kok masih blm bisa ya, saya buat seperti contoh tapi kok malah ter-Block kuning saya buat kaya gini :

Private Sub combo134_AfterUpdate()
    Me.uraian = DLookup("[uraian]", "tabel2", "[kd_brg] = Me.kd_brg")
End Sub

dimana ya letak salahnya, terus untuk "uraian" tersebut adalah Field yg ada di Tabel1 bukan ya

Mohon pencerahannya ya mas.

Wassalam,
Asep Suryana

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (9)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar