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_001mengembalikan format number menjadi semula vb netcara membuat nomor otomatis vbnetcara menghapuskan record autonumber di microsoft accesskode otomatis pada vb netpenomoran otomatis di vb net dan accessrumus kode otomatis pada vb 6 0rumus nomor otomatis pada vb 6 0

Comments are closed.