Membuat Autonumber Pada VB ( Visual Basic )

Untuk membuat nomor yang muncul otomatis saat di Load, maka skripnya adalah sebagai berikut :

Private Sub nomor()<br /> buka<br /> RSTamu.Open "select max(right(notamu,2)) as Nomor from tamu", Cn, adOpenKeyset<br /> Dim Urutan As String<br /> If IsNull(RSTamu!nomor) Then<br /> Urutan = "IDt_001" 'memberi nilai awal<br /> Else<br /> Urutan = "IDt_" & Format(RSTamu!nomor + 1, "000")<br /> End If<br /> notamu.Text = Urutan<br /> End Sub

keterangan  :

1. RSTamu berfungsi untuk membuat nomor otomatis. Pada Module, tambahkan skrip singkat (tanpa tanda petik) "Public RSTamu As New ADODB.Recordset" >>RSTamu bisa diganti dengan nama apa saja.
2. "buka" adalah skrip pada Module yg berfungsi untuk membuka koneksi database.
3. RSTamu.Open "select max(right(notamu,2)) as Nomor from tamu", Cn, adOpenKeyset >> tamu adalah nama tabel yg di dalamnya terdapat field nomor yg akan di Autonumber.
4. notamu.Text adalah textbox yg akan diisi Autonumber.
5. di Form_Load() tuliskan function "nomor" yg sudah dibuat.

Selamat mencoba :) Silahkan tinggalkan komentar kamu disini.

Share on Google Plus

About Unknown

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.