buat MBA, functionnya ditaruh dimana? modul ato form? manggilnya function kapan? pada command SIMPAN sebelum DMax atau tidak usah pakai DMax?
2010/6/21 MBA <[email protected]> > > > Mungkin bisa digunakan function di bawah ini. > Tapi sesuai kata2 bang Aksan. Jika ini sekedar untuk membuktikan secara > coding bahwa hal ini memungkinkan dibuat. Tapi dalam praktek, apalagi yang > berhubungan dengan audit dan traceability, cara ini tidak dianjurkan. > > Catatan: Function dibawah di sesuaikan dengan isi Table1 dari sample anda. > > Function fLast() As Integer > Dim cnn As ADODB.Connection > Set cnn = CurrentProject.Connection > Dim rst As New ADODB.Recordset > rst.Open "select * from Table1 order by no_urut", cnn, adOpenKeyset, > adLockPessimistic, adCmdText > a = 0 > If Not (rst.EOF Or rst.BOF) Then > rst.MoveLast > rst.MoveFirst > For i = 1 To rst.RecordCount > If i <> rst!no_urut Then > a = i > Exit For > End If > rst.MoveNext > Next > End If > > If a = 0 Then > a = rst.RecordCount + 1 > End If > > fLast = a > > rst.Close > Set rst = Nothing > cnn.Close > Set cnn = Nothing > > End Function > > Salam Hangat dan Jabat Erat > > > Murid Belajar Access > EdyWiyono > > > ________________________________________ > From: [email protected] > <belajar-access%40yahoogroups.com>[mailto: > [email protected] <belajar-access%40yahoogroups.com>] > On Behalf Of Ahmad Qomaruddin > Sent: Sunday, June 20, 2010 21:06 > To: [email protected] <belajar-access%40yahoogroups.com> > Subject: Re: [belajar-access] Re: Nomor Urut Otomatis > > > > terima kasih mas aksan, pake script anda jadinya bukan mengisi nomor kosong > dengan baru tetapi jadinya merubah semua nomor menjadi urutan yang baru. > sebenarnya pengennya cuma mengisi nomor kosong yang telah dihapus datanya > sedangkan nomor yang sudah ada akan tetap. kalo pake script anda nomor yang > lama jadi berubah. > 2010/6/19 aksankurdin <[email protected] <aksan.kurdin%40gmail.com>> > > 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 > > --- In [email protected] <belajar-access%40yahoogroups.com>, > Ahmad Qomaruddin <ud1...@...> wrote: > > > > sebenarnya bukan sekedar no urut tapi merupakan semacam ID yang dibuat > > otomatis ketika melakukan input data, sehingga kalo ID loncat2 jadinya > > kurang bagus. > > > > On 6/19/10, aksankurdin <aksan.kur...@...> wrote: > > > Jika tidak ada alasan khusus, nomor urut sebaiknya ditampilkan dalam > report > > > saja, tidak perlu di simpan dalam tabel. > > > > > > aksan kurdin > > > > > > --- In [email protected]<belajar-access%40yahoogroups.com>, > Ahmad Qomaruddin <ud13en@> wrote: > > >> > > >> Buat rekan milis semua, > > >> Saya buat nomor urut otomatis dengan menggunakan Dmax, > > >> Bagaimana supaya kalau data dengan nomor urut tengah dihapus bisa > diisi > > >> dengan data yang baru? > > >> Terima Kasih atas responnya > > >> > > > > > > > > > > > > > > > -- > > Ahmad Qomaruddin > > Sulang Rembang > > email : ud1...@... > > blog : ud13en.blogspot.com > > > > -- > Ahmad Qomaruddin > Sulang Rembang > email : [email protected] <ud13en%40gmail.com> > blog : ud13en.blogspot.com > > > -- Ahmad Qomaruddin Sulang Rembang email : [email protected] blog : ud13en.blogspot.com
