Access>> Membuat Nomor Urut Otomatis

Membuat nomor urut otomatis dengan format 'yyyymmdd999'. Mengapa susunannya ymd bukan dmy? susunan ymd menghasilkan urutan record yang relevan saat diurutkan berdasarkan nomor urutnya. Kode dalam MS-Access seperti ini :

Private Sub cmdsimpan_Click()
Dim db As Database Dim rs As Recordset
Dim str As String
Dim nomor As Integer
Dim strnomor As String
Dim vnomor As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("tnomor")
If rs.RecordCount <> 0 Then
rs.MoveLast
vnomor = rs!nourut
If Val(Mid(vnomor, 5, 2)) = Month(Now()) Then
nomor = Val(Right(vnomor, 3))
nomor = nomor + 1
Else
nomor = 1
End If
Else
nomor = 1
End If
strnomor = Format(nomor, "000")
rs.AddNew rs!nourut = Format(Now(), "yyyymmdd") & strnomor
rs.Update
rs.Close
db.Close
End Sub

file .mdb silahkan download disini