ACCESS FEED: Re: Bls: [belajar-access] QUERY MENJADIKAN ISI BEBERAPA RECORD MENJADI SATU RECORD

Sabtu, 18 Mei 2013

Re: Bls: [belajar-access] QUERY MENJADIKAN ISI BEBERAPA RECORD MENJADI SATU RECORD

Q
Sent from my smartphone

-----Original Message-----
From: aksan kurdin <aksan.kurdin@gmail.com>
Sender: belajar-access@yahoogroups.com
Date: Sat, 18 May 2013 10:24:05
To: <belajar-access@yahoogroups.com>
Reply-To: belajar-access@yahoogroups.com
Subject: Re: Bls: [belajar-access] QUERY MENJADIKAN ISI BEBERAPA RECORD MENJADI
SATU RECORD

tadaaa.... :
gambar adalah seribu kata, dikata2in sendiri ya :)

aksan kurdin

On 5/16/2013 1:49 PM, Mas Uki wrote:
> Alhamdulillah, ternyata sudah saya temukan solusinya, dengan
> menambahkan kode pada event afterupdate seperti berikut :
>
> Private Sub IDTransSJ_AfterUpdate()
> Dim db As Database
> Dim rs As Recordset
> Dim sql, sj As String
>
> On Error Resume Next
> ' agar form yang mengandung tabel dengan Multivalue tersimpan recordnya
> ' sebab jika record belum disimpan, maka query dengan multivaluenya
> masih belum ada isinya
> DoCmd.RunCommand acCmdSaveRecord
>
> 'buat recordset dari query hasil field multivalue yang sudah dicentang
> pengguna
> Set db = CurrentDb
> sql = "SELECT * FROM QDatadrPilihSJMaster"
> Set rs = db.OpenRecordset(sql)
>
> 'simpan isi field Nomor (NoSJ) tiap record kedalam variabel
> sj = ""
> With rs
> Do While Not .EOF
> sj = ![SJMASTER.NoSJ] & "|" & sj
> .MoveNext
> Loop
> rs.Close
> End With
>
> 'mengisikan field Nomor dari variabel
> NoSJ.Value = sj
>
> End Sub
>
>
>
> Best Regards,
>
>
> Sukiono
> PT. Kumala Kencana Cipta
> www.kumalahome.com
>
> ----------------------------------------------------------
> *Dari:* Mas Uki <uqmas@yahoo.com>
> *Kepada:* Group Access <belajar-access@yahoogroups.com>
> *Dikirim:* Rabu, 15 Mei 2013 16:00
> *Judul:* [belajar-access] QUERY MENJADIKAN ISI BEBERAPA RECORD MENJADI
> SATU RECORD
>
> Assalamu'alaikum Wr. Wb.
>
> Para Master Access, mohon pencerahan dan solusi, saya sedang membantu
> bagian akunting dengan membuat aplikasi kecil untuk membuat Invoice
> dan Faktur Pajak. Salah satu kriterianya adalah jika ada Customer
> dengan beberapa Surat Jalan sekaligus, maka beberapa Surat Jalan dapat
> dijadikan satu Invoice, untuk hal ini saya menggunakan fitur
> Multivalue yang ada di Access 2007 sehingga nanti pengguna tinggal
> centang Surat Jalan mana saja yang mau diproses jadi Invoice. Dengan
> ilustrasi data hasil query multivalue berikut, bagaimana caranya agar
> field Nomor isinya digabung menjadi satu (dengan pembatas karakter
> khusus)?
>
> Hasil query dari pemilihan Multivalue
> KodeNamaNomor
> P027PT. KRISTAL BALI LESTARI2013/SJ/05/0902
> P027PT. KRISTAL BALI LESTARI2013/SJ/05/0928
> P027PT. KRISTAL BALI LESTARI2013/SJ/05/0944
>
> Ingin hasilnya menjadi :
> KodeNamaNomor
> P027PT. KRISTAL BALI
> LESTARI2013/SJ/05/0902|2013/SJ/05/0928|2013/SJ/05/0944
>
>
>
> Best Regards,
>
>
> Sukiono
> PT. Kumala Kencana Cipta
> www.kumalahome.com <http://www.kumalahome.com/>
>
>
>