ACCESS FEED: [belajar-access] Re: Penggabungan dari hasil Crostab Query??

Selasa, 20 November 2012

[belajar-access] Re: Penggabungan dari hasil Crostab Query??

Dear mas Sofyan

Terimakasih banyak atas referensinya yah mas :D

regards

--- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@...> wrote:
>
> Dear Mas Hari, mungkin sekedar memperkaya pengetahuan, bisa juga manfaatkan
> procedure yang dikirim pada:
> http://tech.groups.yahoo.com/group/belajar-access/message/35912 , yg dikirim
> pada tanggal 12 Nopember 2012, pukul 3.42 PM, dengan judul "Re:
> Menggabungkan isi FIELD".
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> http://imopi.wordpress.com | http://trendmuslim.com
> Access Course by Request [Offline & Online] : http://wp.me/PW3LC-hR
> ----- Original Message -----
> From: "HARI" <hari_priatna@...>
> To: <belajar-access@yahoogroups.com>
> Sent: Tuesday, November 20, 2012 4:03 PM
> Subject: Bls: [belajar-access] Re: Penggabungan dari hasil Crostab Query??
>
>
> Dear mas Farhan Holizan
>
> Terimakasih atas masukannya, ternyata setelah mencari-cari akhirnya saya
> dapat juga dari forum tetangga dengan VBA macro
>
> sekalian Share munkin buat yang senasib dengan saya hhehe....
>
> Buat dulu table baru dengan input sbb:
>
> .OrgID (Properties "Number" data type)
> .OrgRefBundled (Properties "Text" datatype)
> .OrgRefCount (Properties "Number" datatype)
>
> Saya buat query untuk list dari table Rak nya
>
> baru selanjutnya masukkan pada modul atau button eksekusi sbb:
>
> Sub Write_Exceptions_To_Table()
>
> Dim db As Database
> Dim rsGet As Recordset
> Dim rsWrite As Recordset
> Dim varOrgID As variant
> Dim varNextOrgID As variant
> Dim strBuild As String
> Dim intNumElements As Integer
>
> Set db = CurrentDb()
> Set rsGet = db.OpenRecordset("SELECT OrgID, OrgRef FROM OrgTable ORDER BY
> OrgID, OrgRef")
> Set rsWrite = db.OpenRecordset("tbl_OrgBundled")
>
> With rsGet
>
> Do While Not .EOF
> varOrgID = ![OrgID]
> .MoveNext
> If Not .EOF Then
> varNextOrgID = ![OrgID]
> Else
> varNextOrgID = "EOF"
> End If
> .MovePrevious
>
> strBuild = strBuild & ![OrgRef] & ","
> intNumElements = intNumElements + 1
>
> If Not (varOrgID = varNextOrgID) Then
> 'add record to table
> strBuild = Left(strBuild, Len(strBuild) - 1)
> With rsWrite
> .AddNew
> !OrgID = rsGet![OrgID]
> !OrgRefBundled = strBuild
> !OrgRefCount = intNumElements
> .Update
> End With
> 're-initialize variables
> strBuild = ""
> intNumElements = 0
> End If
>
> .MoveNext
>
> Loop
>
> End With
>
> rsGet.Close
> rsWrite.Close
>
> Set rsGet = Nothing
> Set rsWrite = Nothing
> Set db = Nothing
>
> End Sub
>
> sudah saya coba dan berhasil, Semoga dapat membantu yang lain
>
> regards
>
>
> Hari
>
>
>
> --- In belajar-access@yahoogroups.com, Farhan Holizain <farhanholizain@>
> wrote:
> >
> > Pak Hari,
> >
> > Saya mencoba menanggapi, mudah-mudahan bisa membantu.
> > Agar nama rak tidak bersifat dinamis, maka saya tidak menggunakan crosstab
> > query, tapi saya gunakan langsung nama rak sebagai nama field.
> > Jadi ada dua tahap
> > Tahap 1 menghitung satu persatu tiap update rak, nilainya bisa Nol atau
> > bukan nol, tergantung status updatenya. Saya cuma menggunakan fungsi IIF
> > saja.
> > Tahap 2 menghitung total dari masing-masing rak tanpa kecuali (baik yang
> > diupdate ataupun tidak)
> >
> > Kelemahan sistem ini adalah, lebih lambat karena Access akan menghitung
> > satu persatu setiap status rak.
> > Namun keuntungannya, kita tetap punya nama rak walaupun nilainya nol atau
> > tidak ada update.
> >
> > Farhan Holizain
> >
> >
> >
> > ________________________________
> > Dari: HARI <hari_priatna@>
> > Kepada: belajar-access@yahoogroups.com
> > Dikirim: Senin, 29 Oktober 2012 16:02
> > Judul: [belajar-access] Re: Penggabungan dari hasil Crostab Query??
> >
> >
> > Dear MBA
> >
> > sayangnya dari query crostab yang saya buat data bersifat dinamis (jumlah
> > nama bisa bertambah dan Berubah2 tergantung dari berapa banyak rak yang
> > terupdate)
> >
> > jadi maksudnya dari hasil query pendataan scan, rak2 tersebut otomatis
> > data tergabung menjadi satu kolom (tentunya ada pemisah munkin dengan
> > tanda "/")
> >
> > adakah cara yang lebih mudah??
> >
> > regards
> >
> >
> >
> > --- In belajar-access@yahoogroups.com, MBA <murid.belajaraccess@> wrote:
> > >
> > > Maaf mas Hari.
> > > Ini maksudnya dikerjakan dengan Access atau dengan Excel ya. :)
> > >
> > > Misalnya saya asumsikan hasil crosstabnya diberi nama qry_Crosstab.
> > >
> > > kalau bentuknya seperti di bawah ini.
> > >
> > >
> > >
> > > query sbb:
> > >
> > >
> > >
> > >
> > > atau kalau bentuknya seperti ini.
> > >
> > >
> > >
> > > querynya sbb:
> > >
> > >
> > > Salam hangat dan jabat erat,
> > >
> > > MBA
> > >
> > >
> > >
> > >
> > >
> > >
> > > On 10/24/2012 16:05, HARI wrote:
> > > >
> > > > Dear para master excel
> > > >
> > > > mohon informasinya.
> > > > bagaimana caranya menggabungkan beberapa item dari hasil crosstab
> > > > Query dari beberapa kolom menjadi 1 kolom
> > > >
> > > > sebelumnya saya sudah coba menggunakan query crosstab untuk
> > > > Menampilkan item-item yang akan digabungkan
> > > >
> > > > tetapi masih belum tau caranya untuk penggabungan item teresbut
> > > > menjadi satu kolom
> > > >
> > > > contoh
> > > > __________________________________________________________
> > > > | Barcode Item | Rak1 | Rak2 | Rak3 | Hasil penggabungan |
> > > > ----------------------------------------------------------
> > > > | 312323213213 | W1 | W2 | | W1/W2 |
> > > > | 656546546454 | W1 | | W3 | W1/W2 |
> > > > | 656546546454 | W1 | W2 | W3 | W1/W2/W3 |
> > > >
> > > >
> > > >
> > > >
> > >
> >
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> > http://docs.yahoo.com/info/terms/
> >
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>