Cara membuat nomor otomatis (auto number) pada vb.net

Nomor otomatis biasanya digunakan untuk kode transaksi, kode anggota, kode barang dll. yang sangat berguna ketika banyak item yang harus kita inputkan.

Tentunya nomor tersebut akan bertambah secara squensial (berurutan) sesuai dengan item yang di input kedalam database, sehingga kemungkinan untuk duplikat (nomor ganda) pada database tidak akan ada.

Berikut adalah contoh kode untuk membuat nomor otomatis :

Sub kode_otomatis()
tbladmin = proses.ExecuteQuery(“Select * From Tabel_Admin order by Kode_Admin desc”)
If tbladmin.Rows.Count = 0 Then
txtkodeadmin.Text = “AD-001″
Else
With tbladmin.Rows(0)
txtkodeadmin.Text = .Item(“Kode_admin”)
End With
txtkodeadmin.Text = Val(Microsoft.VisualBasic.Mid(txtkodeadmin.Text, 4, 3)) + 1
If Len(txtkodeadmin.Text) = 1 Then
txtkodeadmin.Text = “AD-00″ & txtkodeadmin.Text & “”
ElseIf Len(txtkodeadmin.Text) = 2 Then
txtkodeadmin.Text = “AD-0″ & txtkodeadmin.Text & “”
ElseIf Len(txtkodeadmin.Text) = 3 Then
txtkodeadmin.Text = “AD-” & txtkodeadmin.Text & “”
End If
End If
End Sub

Keterangan :

  • Tabel_Admin = adalah nama tabel
  • Kode_Admin = adalah nama kolom dari tabel_admin
  • txtkodeadmin.Text = adalah textbox dari kode admin
  • AD-001 = adalah nomor pertama jika belum ada record

Untuk melihat module koneksi ke database nya silahkan lihat artikel : http://www.it3.web.id/2012/08/24/membuat-module-dan-class-sistem-informasi-penjualan-pulsa/

Wassalam
Hendra Wijaya

yhs-per_001membuat no urut dengan vbnetmembuat textbox otomatis angkascript kode otomatis vb 2008listing otomatis vb net 2008VB NET cara membuat kode otomatismembuat no urut otomatis di vb 2010membuat nomor otomatis di visual basicmembuat nomor urut otomatis di vb netscript vb kode barang otomatismenambahkan no vb netnomor otomatis vb netkoding autonumber untuk vb netcoding vb net nomor otomatisauto number dalam vb netcara agar datagrid bisa autonumber divbcara membuat auto numbercara membuat data tambah otomatis di vb 2010cara membuat kode otomatis di vb net dengan microsofr access 2003cara membuat no otomatis di visual basic netcara membuat no transaksi otomatis di vb 6cara membuat no urut otomatis di vb netcara membuat nomor kode otomatis di vb net dengan ms accesscara membuat nomor urut menggunakan textbox vb net 2008cara menambah no registrasi di visual basicangka otomatis di vb