ada cara lagi yg mirip sqlquery="select nomor_transaksi from nama_table where nomor_transaksi like 'FKT/PNJ/" & format(DTPicker1,"yy") & "/" & format(DTPicker1,"mm") & "/%'"
kalo ketemu ambil nomornya dan + 1 kalo gak ketemu maka ciptakan nomor 00001 NB:secara pribadi saya lebih suka menggunakan tabel bantuan untuk menyimpan nomor selanjutnya. --- In [email protected], "ADEX" <[EMAIL PROTECTED]> wrote: > > 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" <mbelienkz@> > 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] > > >
