MS ACCESS MAILING LIST: 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/
>