gini aja mas..
if not (rsPPBBD.eof or rsPPBBD.bof) then
rsPPBD.movelast
while (not rsPPBBD.eof or rsPPBBD.bof)
rsPPBD.AddNew
rsPPBD!No_PPB = NoBaru
rsPPBD!HD = rsPBBDD!HD
rsPPBD!urut = rsPBBDD!urut
rsPPBD!BARANG = rsPBBDD!KD_BRG
rsPPBD!QTY = rsPBBDD!QTY
rsPPBD!SATUAN = rsPBBDD!SATUAN
rsPPBD!KD_CAT = rsPBBDD!KD_CAT
rsPPBD!Ket = rsPBBDD!Ket
rsPPBD.Update
rsPBBDD.MovePrevious
wend
end if
kalo kayak gitu datanya dimasukkan dari yang akhir ke yang awal..
dia ngecek dulu apakah tabel tersebut kosong atau nggak, kosong dia gak
melanjutkan, kalo gak kosong dia langsung turun ke record paling akhir,
dengan menggunakan looping while kit bisa ngecek apakah data tersebut
udah nyampe diatas apa belom (.BOF) kalo belum dia naik keatasnya
(.moveprevious)
Eko wrote:
> maaf mas purwedi, klo cara itu sdh saya coba
> tapi cb mas perhatikan kondisi field Hd dan field Urut
>
> saya ingin membalik urutan data tsb karena klo urutannya tdk dibalik
> maka ketika akan ditransfer ke tabel lain
> maka yang terjadi data di tabel baru lah yg terbalik
>
> proses transfernya kira2 begini (mohon koreksi)
> For I = 1 To rsPBBDD.RecordCount
> rsPPBD.AddNew
> rsPPBD!No_PPB = NoBaru
> rsPPBD!HD = rsPBBDD!HD
> rsPPBD!urut = rsPBBDD!urut
> rsPPBD!BARANG = rsPBBDD!KD_BRG
> rsPPBD!QTY = rsPBBDD!QTY
> rsPPBD!SATUAN = rsPBBDD!SATUAN
> rsPPBD!KD_CAT = rsPBBDD!KD_CAT
> rsPPBD!Ket = rsPBBDD!Ket
> rsPPBD.Update
> rsPBBDD.MoveNext
> Next I
>
>
> ----- Original Message -----
> *From:* Purwedi Kurniawan <mailto:[EMAIL PROTECTED]>
> *To:* [email protected]
> <mailto:[email protected]>
> *Sent:* Friday, February 24, 2006 9:28 AM
> *Subject:* Re: [Programmer-VB] membalik urutan data (Urgen)
>
> tambahkan diakhir query: ORDER BY namafield1,namafield2 dst DESC
>
> On 2/24/06, *Eko* <[EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>> wrote:
>
> saya punya data dari
> select * from pbbdd where No_PBBD like 'PBBD/02/2006'
>
> No_PBBD Hd Urut Kd_Brg Ket
> PBBD/02/2006 k 1 BL/PEB/001
> PBBD/02/2006 n Cadangan
> PBBD/02/2006 k 2 3ES/004
> PBBD/02/2006 k 3 3ES/014
> PBBD/02/2006 n perawatan
>
>
> gimana caranya membalik urutan data tersebut menjadi
>
> No_PBBD Hd Urut Kd_Brg Ket
> PBBD/02/2006 n perawatan
> PBBD/02/2006 k 3 3ES/014
> PBBD/02/2006 k 2 3ES/004
> PBBD/02/2006 n Cadangan
> PBBD/02/2006 k 1 BL/PEB/001
>
>
>
> Wahana Programmer Groups Links
>
>
>
>
>
>
>
> SPONSORED LINKS
> Programmer
>
> <http://groups.yahoo.com/gads?t=ms&k=Programmer&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=QQ3jf-qPyCuDVOqmjxXLqQ>
> Indonesia
>
> <http://groups.yahoo.com/gads?t=ms&k=Indonesia&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=gwDT36aV8hG5doSQaoUwSA>
> Basic programming language
>
> <http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=g8R4hday0lm5D2hL5lG5aQ>
>
> Computer programming languages
>
> <http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=RLdM7FZAm3K7raX0D8KsjA>
> Programming languages
>
> <http://groups.yahoo.com/gads?t=ms&k=Programming+languages&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=CtRXYvnoy1O17UC430cphA>
> Java programming language
>
> <http://groups.yahoo.com/gads?t=ms&k=Java+programming+language&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=XQJC4fZro9pIX1bkqBwT8w>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> * Visit your group "Programmer-VB
> <http://groups.yahoo.com/group/Programmer-VB>" on the web.
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
