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

Assalamualaikum Wr Wb,

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_001Cara membuat kode otomatis di vb net menggunakan accesMengisi textbox vb net dengan data di database accesmembuat no otomatis vb netMembuat kode otomatis di vb net dengan database accesMembuat kode otomatis di vb netCara membuat kode otomatis di vb net dan accescegah validasi duplicate di data grid view vbnetsyntak no transaksi otomatis di vb menggunakan database accesrumus autonumber di vbnomor transaksi otomatis vb netmengurutkan datagridview vb netcara membuat no nota pada otommatis pada accescara membuat no urut pakai if elseif vb netmembuat no otomatis di vb tanpa databasecara membuat penomoran otomatis pada textbox vb10kode otomatis d vb 2010

Comments are closed.