Membuat Nomer Otomatis

Banyak pertanyaan di milis tentang cara membuat nomor baru secara otomatis. Misalnya nomor untuk Surat Jalan dimana nomor tersebut meningkat secara otomatis (sekuensial).

Berikut ini ada sebuah function sederhana untuk membuat nomor Surat Jalan secara otomatis.

Asumsi:
Table bernama: tbl_SuratJalan
Field nomor bernama: NoSuratJalan, type: Text, Size: 10 chars.

Nomor Surat Jalan terdiri dari 4 character pertama berisi prefiks, mungkin untuk kode lokasi, kode department, atau semacamnya. Nomor urut (sekuensial) panjangnya 6 chars.

Function NoBaru()
'Originally created by Haer Talib for RumahAccess.com
Prefiks = "AAbb"
NoBaru = Prefiks & "000000"
tSQL = "SELECT Max(NoSuratJalan) AS LastNo FROM [tbl_SuratJalan] " & _
"WHERE NoSuratJalan > '" & Prefiks & "000000' And NoSuratJalan <= '" & Prefiks & "999999'"
Dim rs1 As Object
Set rs1 = CurrentDb.OpenRecordset(tSQL, dbOpenDynaset, dbSeeChanges)
If Not rs1.EOF Then
LastNo = Val(Right(Nz(rs1!LastNo, "0"), 6))
Else
LastNo = 0
End If
rs1.Close
Set rs1 = Nothing
NoBaru = Prefiks & Format(LastNo + 1, "000000")
End Function

Anda bisa mengkustomasi function di atas untuk keperluan anda.
Unsur-unsur yang perlu dikustomasi adalah:
- Nama Table
- Nama Field untuk nomor
- String untuk Prefiks.

Semoga bermanfaat.

sumber : http://www.rumahaccess.com/