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.openrecordset ("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 [email protected], thomas <the_mas...@...> 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
>
