ACCESS FEED: Bls: [belajar-access] Re: Merubah ROW menjadi Column Menggunakan Query

Selasa, 16 Juli 2013

Bls: [belajar-access] Re: Merubah ROW menjadi Column Menggunakan Query

waahh mantap mas, terima kasih banyak mas..
top dah nih mas, sudah jalan semua permasalahan yg saya hadapi sudah selesai berkat bantuuan nya mas.

Jempol semua deh ... !
Terima kasih bnyak mas,, terima kasih...

wanBule

--- In belajar-access@yahoogroups.com, Haer Talib <haertalib@...> wrote:
>
> Emang mantabs orang2 di belajar-access....
> Ane jadi minder mau ngejawabnya... :)
>
> Bravo belajar-access !
> HAER
>
>
> 2013/7/12 Nafan . <nafan.muhammad@...>
>
> >
> >
> > Hehehe....
> > Langsung bang...
> >
> > Dikirim dari Yahoo! Mail untuk iPhone
> >
> > ------------------------------
> > * From: * aksan kurdin <aksan.kurdin@...>;
> > * To: * <belajar-access@yahoogroups.com>;
> > * Subject: * Re: Bls: [belajar-access] Re: Merubah ROW menjadi Column
> > Menggunakan Query
> > * Sent: * Thu, Jul 11, 2013 7:56:03 AM
> >
> >
> >
> > top markotop ...
> > ayo buka puasa dengan martabak ...
> >
> > jempol 4 bang nafan ...
> >
> >
> >
> >
> > On 7/11/2013 2:56 PM, Nafan . wrote:
> >
> >
> >
> >
> > Mau nyoba dengan versi vba
> >
> > Tambahin 1 form yang terdapat 2 text box yang berisikan tanggal, 1 command
> > button untuk generate module nya.
> > sub buattable()
> > On error resume next
> > dim db as dao.database
> > dim dbr as recordset
> > dim tdef as tabledef
> > dim mulaias long
> > dim selesai as long
> > dim kolom as string
> > dim scan as long
> >
> > Set db=currentdb()
> > Db.tabledefs.delete "tbltest"
> > Set tdef= db.createtabledef("tbltest")
> > tdef.fields.append tdef.createfields("ide",dbtext)
> >
> > Mulai = format(form_frm1.date1,0)
> > Selesai = format(form_frm1.date2,0)
> > for scan = mulai to selesai
> > if format(scan,"d")=1 then
> > With tdef
> > .fields.append .createfields(format(scan,"mmm-yyyy"), dbdouble)
> > End with
> > end if
> > next scan
> > Db.tabledefs.append tdef
> >
> > End sub
> >
> > Maka table akan jadi dengan kolom bulan sampai berapa tahun pun bisa,
> > untuk ngisi nya bisa dengan looping juga namun alangkah baiknya jika
> > menggunakan array supaya tidak terlalu lambat, sisipkan doevents supaya
> > tidak terjadi access not responding...
> >
> > ------------------------------
> > Pada Rab, 10 Jul 2013 23:52 Waktu Terang Hari Pasifik Bule menulis:
> >
> > >Dear Mas Aksan
> > >
> > >Terima kasih banyak atas bantuuannya, saya sudah coba dan berhasil.
> > >Akan tetapi kalau pada data tersebut dari tahun 2008,2009,2010,2011,2012
> > dan 2013. Solusi nya bagaimana mas ??
> > >
> > >Mohon bantuannya lagi mas
> > >
> > >Terima kasih
> > >
> > >--- In belajar-access@yahoogroups.com, aksan kurdin <aksan.kurdin@>wrote:
> > >>
> > >> misalkan data setahun untuk 2013.
> > >>
> > >> select ide,
> > >> sum(iif(month(tanggal)=1,cost,0)) as 'January 2013',
> > >> sum(iif(month(tanggal)=2,cost,0)) as 'February 2013',
> > >> sum(iif(month(tanggal)=3,cost,0)) as 'March 2013',
> > >> ...
> > >> sum(iif(month(tanggal)=12,cost,0)) as 'December 2013'
> > >> from data
> > >> where year(tanggal) = 2013
> > >> group by ide
> > >>
> > >> aksan kurdin
> > >>
> > >> On 7/11/2013 7:43 AM, Bule wrote:
> > >> >
> > >> > Dear para master mas Haer dan teman-teman,
> > >> >
> > >> > Mohon bantuuan nya apakah ada Query atau VBA, yang bisa merubah data
> > >> > yang ada di ROW menjadi Column tanpa harus d crosstab.
> > >> >
> > >> > Contohnya :
> > >> >
> > >> > Tabel Data
> > >> > ----------
> > >> >
> > >> > ide Cost Tanggal
> > >> > -------------------
> > >> > 124 1500 01/03/2013
> > >> > 345 2300 03/06/2012
> > >> > 563 8324 02/02/2013
> > >> > 567 7383 04/01/2013
> > >> >
> > >> > Yang Di inginkan tabelnya menjadi :
> > >> >
> > >> > ide Januari 2013 Februari 2013 Maret 2013 April 2013
> > >> > ------------------------------------------------------
> > >> > 124 1500
> > >> > 345 2300
> > >> > 563 8324
> > >> > 567 7383
> > >> >
> > >> > Jadi hasil yang di inginkan seperti di atas. data tersebut ingin saya
> > >> > jadikan Pivot Chart.
> > >> > Karna kalau saya membuat Row menjadi Column di Crosstab setelah saya
> > >> > buat Pivot Chart, pada awalnya data nya muncul di chart akan tetapi
> > >> > setelah saya refresh data tersebut hilang, dan harus di tampilkan
> > lagi
> > >> > field2 nya.
> > >> >
> > >> > Mohon bantuaannya.
> > >> >
> > >> > Terima kasih
> > >> >
> > >> >
> > >>
> > >
> > >
> >
> >
> >
> >
> >
> >
>
>
>
> --
>
>
> Haer Talib
>
> *RumahAccess Indonesia* <http://www.rumahaccess.com>
> *Tempatnya Belajar Microsoft Access*
> Artikel | Forum | Milis | Download | Training | Links | Blog | Event
>