Ini aku ada function yang serupa dengan kasus kamu. Output dari function
adalah KW/0001/02/08, tinggal direvisi sendiri. OK.
Function GenerNota() as string
Dim Bln As String, Thn As String, Urut As String, Nota As String, Temp As
Integer
Thn = Format(Date, "YYYY") 'Perubahan akhir 02-05-2007
Bln = Format(Date, "MM")
EsKiEl = "select * from HJual where substring(NoNota, 8, 2) = '" & Bln &
"' order by NoNota desc"
Set Rec = m.cn.Execute(EsKiEl)
If Not Rec.EOF Then
Temp = val(Mid(Rec!NoNota, 3, 4)) + 1
Urut = Format(Temp, "0000")
If Bln <> Mid(Rec!NoNota, 8, 2) Then
Urut = "0001"
End If
Else
Urut = "0001"
End If
GenerNota = "KW" & Urut & "/" & Bln & "/" & Thn
End Function
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of Indra Satriani
Sent: 19 Februari 2008 10:43
To: [email protected]
Subject: [indoprog-vb] autonumber reset tiap bulan
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]
[Non-text portions of this message have been removed]
