Jumat, 17 Mei 2013

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


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
Kode Nama Nomor
P027 PT. KRISTAL BALI LESTARI 2013/SJ/05/0902
P027 PT. KRISTAL BALI LESTARI 2013/SJ/05/0928
P027 PT. KRISTAL BALI LESTARI 2013/SJ/05/0944

Ingin hasilnya menjadi :
Kode Nama Nomor
P027 PT. KRISTAL BALI LESTARI 2013/SJ/05/0902|2013/SJ/05/0928|2013/SJ/05/0944



Best Regards,


Sukiono
PT. Kumala Kencana Cipta
www.kumalahome.com
 



Tidak ada komentar:

Posting Komentar