mungkin bisa bantu dikit. gunakan query untuk mencari kode terakhir tiap bulan dan tahunnya.
select max(nomor) from nama_tabel where bulan=[bulan _skrg] and tahun=[tahun_sekarang] kalo hasilnya ada tinggal di increment saja nomornya kalo tidak ada nomor di mulai 1. itu teorinya, prakteknya di coba sendiri ya. CMIIW --- In [email protected], "Indra Satriani" <[EMAIL PROTECTED]> wrote: > > Bagaimana cara membuat kode transaksi yang memuat tahun dan bulan, yang mana > jika sudah awal bulan maka nomor urutnya ngulang dari awal lagi, contoh : > > FKT/PNJ/08/02/0001 > FKT/PNJ --> tetap > 08 --> tahun > 02 --> bulan > 0001 --> nomor urut > > yang saya buat sekarang kalo udah ganti bulan, nomornya nggak ngulang dari > awal tapi terus dilanjutin. Itu pun dengan menggunakan tabel bantuan untuk > kode transaksinya (isi tabel: tahun, bulan, nomor). > Mohon bantuannya dari rekan - rekan sekalian. Terima kasih. > > berikut source dari fungsi kode transaksi yang sudah saya buat: > Sub kodetransaksi() > tblnomor.Refresh 'ini kontrol data untuk tabel nomor transaksi > With tblnomor.Recordset > tahun = Format(Date, "yy") > bulan = Format(Date, "mm") > If .RecordCount = 0 Then > Text1.Text = "FKT/PNJ" & "/" & tahun & "/" & bulan & "/" & 1 > Else > .MoveLast > tahun = Format(Date, "yy") > bulan = Format(Date, "mm") > X = Val(!nomor) + 1 > Text1.Text = "FKT/PNJ" & "/" & tahun & "/" & bulan & "/" & X > End If > End With > End Sub > > > -- > I'm normally not a praying man, but if you're up there, please save me > Superman. > -- Homer Simpson > > http://bayuindra.com/posts/windows-paselu/ > > > [Non-text portions of this message have been removed] >
