Fw: [belajar-access] Looping untuk menggadakan line

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, August 01, 2009 9:16 PM
Subject: Re: [belajar-access] Looping untuk menggadakan line

sorry ada tambahan sedikit di sini:
kalau tdk ndak jalan ke record berikutnya .

for i=1 to rst.recordcount
for i=1 to rst!Jumlah
currentdb.execute "INSERT INTO tabel2 (Keterangan,Jumlah)
VALUES ('" & rst!Keterangan & "'," & rst!Jumlah )
next
rst.movenext
next

----- Original Message -----
From: Murid Belajar Access
To: belajar-access@yahoogroups.com
Sent: Saturday, August 01, 2009 20:14
Subject: Re: [belajar-access] Looping untuk menggadakan line

Mas Wahyono,
tolong dituliskan contoh data asal / awal dan hasil yang diinginkan.
mau diterapkan pada apa? tabel? form? report.

saya asumsikan data awal di tabel1 hasilnya di tabel2
misalnya:

asal tabel1
Keterangan Jumlah
Dosa 3
Pahala 6

hasil tabel2
Keterangan Jumlah
Dosa 3
Dosa 3
Dosa 3
Pahala 6
Pahala 6
Pahala 6
Pahala 6
Pahala 6
Pahala 6

VBAnya sbb:

Function Duplikasi()
dim rst as dao.recordset
set rst = currentdb.openrecordset("tabel1")

if not rst.eof then
rst.movelast
rst.movefirst
else
exit function

endif

for i=1 to rst.recordcount
for i=1 to rst!Jumlah
currentdb.execute "INSERT INTO tabel2 (Keterangan,Jumlah)
VALUES ('" & rst!Keterangan & "'," & rst!Jumlah )
next
next

set rst = nothing

end function

Keterangan = string / teks
Jumlah = number

Kode di atas belum ditest, tolong ditangkap idenya ya.

terimakasih,

MBA
----- Original Message -----
From: wah Yono
To: belajar-access@yahoogroups..com
Sent: Friday, July 31, 2009 14:24
Subject: [belajar-access] Looping untuk menggadakan line

halo
saya mau bertanya

saya mau membuat looping
di table print_wiptag jika column jumlah = 2 maka akan menjadi 2
line, jika 3 menjadi 3 line dan seterusnya

kira2 perintahnya di di vba apa y?

maaf saya masih belum begitu paham tentang looping, jadi tlng
kalau ada yg tau di tulis perintahnya lengkap

thx

yono