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

Kamis, 11 Juli 2013

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

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
>> >
>> >
>>
>
>