terima kasih pak aksan nurdin...




________________________________
Dari: aksankurdin <[email protected]>
Kepada: [email protected]
Terkirim: Kam, 29 April, 2010 11:11:14
Judul: [belajar-access] Re: Menggabungkan n record dlm field yg sama?

  
script vba, mas,
gak bisa dengan sql sederhana

function daftarkota() as string
dim rs as dao.recordset
dim s as string 

'isi recordset rs dengan nama_daerah
set rs = currentdb.openrecor dset ("select nama_daerah from tabel")

if not (rs.eof and rs.bof) then 
'jika rs ada isinya

do while not rs.eof 
'loop selama rs belum di ujung
s = s & "" & rs(0) & ", "
' expressi "" & rs(0) untuk mencegah rs(0) berisi null value
rs.movenext
loop

end if

if len(s) > 0 then
'potong ", " di akhir string
daftarkota = left(s,len(s) -2)
end if
end function

anda lalu bisa gunakan fungsi ini dalam query:

select daftarkota() as daftar_kota from tabel

aksan kurdin

--- In belajar-access@ yahoogroups. com, thomas <the_massto@ ...> wrote:
>
> maaf kalau sebelumnya sudah ada yg membahas masalah ini...
> Saya lagi kesulitan bagaimana cara menggabungkan n record dalam 1 field yg 
> sama. contohnya seperti ini :
> daerah_id    nama_daerah
> 1                   jakarta
> 2                  bandung
> 3                  surabaya
> yg saya inginkan ketika tampil di preview report adalah nama_daerah = 
> jakarta, bandung, surabaya. Saya mohon bantuan master2 acces atas masalah 
> ini. thanks
>


 

Kirim email ke