From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, June 19, 2010 7:32 PM
Subject: [belajar-access] Re: Nomor Urut Otomatis
> hnaaah....
> apalagi kalau sebagai id.
> 'kurang bagus' adalah alasan yang kurang tepat untuk membangun suatu
database. tetapi alasan yang semestinya adalah berkaitan dengan audit. Jika
ada nomor yang hilang, harus dipertanyakan kenapa dihilangkan ? jika tidak
ada penjelasan, maka itu bisa mengindikasikan kecurangan. bukannya malah
berusaha memperbaiki urutan dengan koding, malah jika id ini ikut dicetak,
bisa2 hard copy berbeda dengan database, karena id sudah bergeser.
>
> ini dari saya,
> tidak usah terlalu meribetkan urutan nomor id. bbu itu. di thread yang
lalu saya sempat panjang lebar mengutarakan alasannya. gunakan id yang urut
(semisal autonumber) hanya komunikasi data antara tabel saja, bukan untuk
display ke end user.
>
> tetapi bukan berarti saya tidak memberikan cara untuk mengurutkan kembali
nomor urut, ini hanya sebagai proses 'belajar coding' saja.
>
> dim rs as dao.recordset
> set rs = currentdb.openrecordset ("namatable")
> rs.movefirst
> dim i as integer
> for i = 1 to rs.recordcount
> rs.edit
> rs!noid = i ' anggapan noid adalah nourut
> rs.update
> rs.movenext
> next i
> rs.close
> set rs = nothing
>
> itu adalah kode dengan lib dao. masih ada cara lain. code saya tulis tanpa
di tes di ms access, jadi mungkin ada kesalahan sintak, silakan diperbaiki
dan dikembangkan.
>
>
> aksan kurdin
>
