[VB 6.0] Auto Number

Pada sebuah program yang memiliki database,mungkin anda ingin program anda membuat sebuah nomor otomatis secara berurutan dan tersimpan pada database.contohnya pada program kasir,nomor nota yang dikeluarkan pasti akan berbeda dengan sebelumnya,nah inilah kode untuk membuat fungsi auto number dengan Visual Basic 6.0 yang akan saya berikan eh contohkan untuk anda.. ^-^

ketikkan kode berikut:

Sub autonumber()
adodata1.Refresh
With adodata1.Recordset
If .EOF = False Then
.MoveFirst
Do While Not .EOF
txtNoNota.Text = .Fields("Nomornota")
.MoveNext
Loop
txtNoNota.Text = "000000" & Val(txtNoNota.Text) + 1 & ""
Else
txtNoNota.Text = "000001"
End If
End With
End Sub

penjelasan kode :


'//membuat sub fungsi autonumber,bisa dipanggil atau dijalankan otomatis ketika form di load
Sub autonumber()

'//refresh data pada database recordsetnya sehingga tidak memunculkan nomor yang sama
adodata1.Refresh

'//jika data record belum ada atau nol,maka data record akan beralih ke record data pertama,sebaliknya jika data record sudah ada,maka data record pada field tabel Nomornota akan di isi dengan value atau nilai pada text txtnonota.text lalu berlanjut ke data record berikutnya

With adodata1.Recordset
If .EOF = False Then
.MoveFirst
Do While Not .EOF
txtNoNota.Text = .Fields("Nomornota")
.MoveNext

'//mengulang proses di atas
Loop

'//mengotomatisasi data pada text txtnonota dengan ditambah satu setiap data barunya,jika bukan data baru,maka text nonotatext di isi value 000001,
txtNoNota.Text = "000000" & Val(txtNoNota.Text) + 1 & ""
Else
txtNoNota.Text = "000001"
End If
End With
End Sub

selamat mencoba dan semoga bermanfaat =))

Artikel ini dibuat oleh Yudha Tri Putra,segala macam bentuk pengcopyan atau menyalin sebagian atau seluruh halaman ini,dapat dikenakan sanksi dan melanggar Hak Cipta Yudha Tri Putra sebagai Blogger