Coba pake kode ini (mohon dimodifikasi sendiri sesuai kondisi sebenarnya,
koneksi, nama tabel dan fieldnya)...
' Illustrasi.... 20 Feb 2008
' Pake Data Environment ---> object DE dan CONN untuk connectionnya
' Nama tabel NOTA ---> field NOMER (lebar 18 karakter --->
FKT/PNJ/08/02/0001)
Private Function AutoNumber() As String
Dim rsNumber As New ADODB.Recordset
Dim sCommand As String, nIndex As Long
Dim Header as String
' FKT/PNJ/08/02/ = panjang 14 Karakter
Header = "FKT/PNJ/" & Format(Date,"yy") & "/" & Format(date,"mm") & "/"
sCommand = "SELECT NOTA.NOMER FROM NOTA WHERE LEFT(NOTA.NOMER,14) = '" &
Header & "' " & _
"ORDER BY NOTA.NOMER"
With rsNumber
.Open sCommand, DE.CONN, adOpenStatic, adLockReadOnly
If .RecordCount > 0 Then
.MoveLast
nIndex = Val(Right(.Fields("NOMER").Value, 4))
End If
Else
nIndex = 0
End If
.Close
End With
Set rsNumber = Nothing
nIndex = nIndex + 1
AutoNumber = Header & Format(nIndex, "0000")
End Function
Semoga berhasil !.
Salam,
Newbie
2008/2/19 Indra Satriani <[EMAIL PROTECTED]>:
> 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]
