MS ACCESS MAILING LIST: Bls: Bls: [belajar-access] merubah isi row menjadi isi column [1 Attachment]

[Attachment(s) from budi suryadi included below]

Terima kasih sebelumnya atas saran dr kawan2 semua...
akhirnya sy menemukan solusi yg sesuai,
dengan cara crosstab tetapi dgn terlebih dahulu membuat field no urut
seperti contoh dr bro jkssbma yg ada di files

Files > jkssbma > cobasolusi > Query Summary > Tanya Query no28892

kemudian tabel tersebut sy buat crosstabnya...
berikut saya lampirkan lagi filenya, mungkin ada teman2 yg punya kasus mirip2 seperti ini
semoga bermanfaat...

Thanks All...

Best Regard's
Budi Suryadi

Dari: Aksan Kurdin <aksan.kurdin@gmail.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Sel, 19 April, 2011 15:39:34
Judul: Re: Bls: [belajar-access] merubah isi row menjadi isi column

Kalau begini mau, pak ?

Query design:

Query sql:

aksan kurdin

On 4/19/2011 10:31 AM, Yusran M wrote:

Dear Gan,

Silahkan ini dikutak katik,
*dapet dari source temen..

thanks,
//br

===========================================
Sub lefttoright()
Dim i, j, k, l, m, n As Integer
j = 2
k = 5

Range("E:AN").Clear
n = k
For m = 0 To 31
If m = 0 Then
Cells(1, n) = "Cell"
Else
n = n + 1
Cells(1, n) = "NCell_" & m
End If
Next m

For i = 2 To 65530
If Cells(i, 1) = "" Then Exit For
If i = 2 Then
    Cells(j, k) = Cells(i, 1)
    k = k + 1
    Cells(j, k) = Cells(i, 2)
Else
   If Cells(i, 1) = Cells(i - 1, 1) Then
     k = k + 1
     Cells(j, k) = Cells(i, 2)
   Else
     j = j + 1
     k = 5
    Cells(j, k) = Cells(i, 1)
    k = k + 1
    Cells(j, k) = Cells(i, 2)
   End If

End If

On 4/19/2011 11:10 AM, budi suryadi wrote:

para master dan suhu...
apakah ada solusi untuk masalah saya ini?
mohon saran dan bantuannya...
terima kasih sebelumnya

Best Regard's
Budi Suryadi

Dari: budi suryadi <blue_chocolate@ymail.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Sen, 18 April, 2011 10:52:12
Judul: [belajar-access] merubah isi row menjadi isi column [1 Attachment]

Selamat pagi semua...dan salam kenal..
saya sebagai pemula merasa sangat terbantu sekali dgn adanya milis belajar access ini, sehingga saya dapat belajar access melalui contoh2 permasalahan yg ada..

Namun kali ini saya mendapatkan kendala tentang bagaimana merubah isi row menjadi isi column...
contoh :
saya mempunyai tabel 1 yg isinya sbb:

id sewa Tujuan

1 Bekasi

1 Krawang

1 Cikarang

1 Cakung

2 Cikarang

2 Cakung

2 Tangerang

3 Cikarang

3 Tangerang

4 Cikarang

4 Tangerang

4 Bekasi

lalu saya ingin merubahnya menjadi seperti ini :

id sewa Tujuan1 Tujuan2 Tujuan3 Tujuan4

1 Bekasi Krawang Cikarang Cakung

2 Cikarang Cakung Tangerang

3 Cikarang Tangerang

4 Cikarang Tangerang Bekasi

column tujuan pada hasil tabel 1 mengikuti jumlah tujuan yg ada pada tabel 1

Bagaimanakah caranya ?
Mohon bantuan dan saran dari teman2 dan para master access semuanya..
sebelumnya saya ucapkan banyak2 terima kasih

nb: file contoh terlampir

Best Regard's
Budi Suryadi