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 netcegah validasi duplicate di data grid view vbnetCara membuat kode otomatis di vb net dan acceskode otomatis d vb 2010membuat no otomatis di vb tanpa databasecara membuat penomoran otomatis pada textbox vb10cara membuat no nota pada otommatis pada accesnomor transaksi otomatis vb netrumus autonumber di vbsyntak no transaksi otomatis di vb menggunakan database acces

Comments are closed.