Pada kesempatan sebelumnya saya telah membagikan informasi mengenai pembuatan
autonumber. Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan tanggal sebagai acuan yang menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.
berikut source code nya :
Function autoNumber() As String Dim rs As New ADODB.Recordset rs.Open "select max(kode_beli) from pembelian where month(tgl_beli)=" & Month(Now) & _ " and year(tgl_beli)=" & Year(Now), cn autoNumber = IIf(IsNull(rs.Fields(0)), Right(Year(Now), 2) & Month(Now) & "001", _ Left(rs.Fields(0), 4) & Format(Right(rs.Fields(0), 3) + 1, "0##")) rs.CloseEnd Function
berikut screenshootnya :