penomoran otomatis pada vb

Sub nomor() //membuat procedure baru dengan nama nomor

On Error Resume Next //melewatkan barisan script yang eror menuju script selanjutnya

Dim urut, gabung, baru As Variant //deklarasi variable dengan tipe variant

urut = "001" //menentukan urutan pertama

With Data1.Recordset //menggunakan fungsi with karena selalu menggunakan data1.recordset

If .RecordCount = 0 Then //jika isi record data1 kosong

tkopel.Text = "PL" & urut //menambahkan string dalam urutan

Else

.MoveLast //menuju record terakhir

urut = Val(Right(!kopel, 3) + 1) //mengambil 3 karakter (dijadikan numberic) dan + 1

gabung = Right("00" & urut, 3) // gabungkan 00

tkopel.Text = gabung //tampilkan hasil penambahan

baru = "PL" & tkopel.Text //gabungkan hasil tambahan dengan text "PL"

tkopel.Text = baru //tampilkan kode terbaru

End If //tutup fungsi if

End With //tutup fungsi with

End Sub //tutup procedure nomor