Saya mengalami kesulitan ketika mau
membuat runningsum dalam form.
contoh formnya begini:
----------------------------------------------------------------------------------------------
| No. | Keterangan | Masuk | Keluar |
Saldo |
----------------------------------------------------------------------------------------------
| 1. | Penjualan |1.000.000|
|1.000.000 |
| 2. | Bayar Rekening Listrik | | 250.000 |
750.000 |
| 3. | Bayar Rekening Air | | 100.000 |
650.000 |
===========================================================
Yang saya tanyakan adalah, bagaimana agar Field Saldo itu bisa
berlanjut terus (Runningsum), ada yang bisa membantu?
Salman Hasan
Denpasar = Bali
________________________________
Dari: Ahmad Qomaruddin <[email protected]>
Kepada: [email protected]
Terkirim: Rab, 23 Juni, 2010 08:20:13
Judul: Re: [belajar-access] Re: Nomor Urut Otomatis
no kode-nya kan diambil dari no urut, sebenarnya no urut ga perlu
disimpan, hanya temporary saja
On 6/22/10, Sioon Mandra <[email protected]> wrote:
> kok gak dibales2........ mas MBAnya ngambek tuh......jadi males balas
> ....... fungsi yg dibuatkan oleh mas MBA sudah sangat jelas sekali , mas
> cuma diharap tambah sedikit saja. Karena itu saya copy paste spt aslinya ,
> karena fungsi ini bukan saja jalan dg baik luar dan dalam , ttp sintax nya
> juga indah seindah warna aslinya .....
> pst... mas gak minta fotonya ? entar kalau udah bagi doooong .....Function
> fLast() As Integer
> Dim cnn As ADODB.Connection
> Set cnn = CurrentProject.Connection
> Dim rst As New ADODB.Recordset
> rst.Open "select no_urut from Table1 " & _
> "where Table1.kode = '" & Forms!Form1!kode & "' 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
>
> Sebetulnya field no_urut itu buat apa sih mas? kan udah ada no_kode , kan
> bisa di sederhanakan lagi tinggal ubah sedikit fungsinya itu...untuk ini
> bisa tanya ke mas MBA lagi + minta fotonya trus jangan lupa bagi
> dooong,,,,,, xi...xi...xi...xi...Salam,~ KSBA | Keep the Spirit of Belajar
> Access ~
> --- Pada Sen, 21/6/10, Ahmad Qomaruddin <[email protected]> menulis:
>
> Dari: Ahmad Qomaruddin <[email protected]>
> Judul: Re: [belajar-access] Re: Nomor Urut Otomatis
> Kepada: [email protected]
> Tanggal: Senin, 21 Juni, 2010, 2:26 PM
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 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 <murid.belajaraccess @yahoo.co. id>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 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: belajar-access@ yahoogroups. com [mailto:belajar-access@ yahoogroups.
> com]
>
>
> On Behalf Of Ahmad Qomaruddin
>
> Sent: Sunday, June 20, 2010 21:06
>
> To: belajar-access@ yahoogroups. 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 <aksan.kurdin@ gmail.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.openrecor dset ("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 belajar-access@ yahoogroups. 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.kurdin@ ...> wrote:
>
>> > Jika tidak ada alasan khusus, nomor urut sebaiknya ditampilkan dalam
>
> report
>
>> > saja, tidak perlu di simpan dalam tabel.
>
>> >
>
>> > aksan kurdin
>
>> >
>
>> > --- In belajar-access@ yahoogroups. 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 : ud1...@gmail. com
>
> blog : ud13en.blogspot. com
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> --
> Ahmad Qomaruddin
> Sulang Rembang
> email : ud1...@gmail. com
> blog : ud13en.blogspot. com
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
--
Ahmad Qomaruddin
Sulang Rembang
email : [email protected]
blog : ud13en.blogspot.com
