Membuat Nomer Urut (2)

Baca Juga

Deskripsi :
Fungsi Auto number alias nomor urut otomatis pada textbox

Download :

N/A
Screenshot :

N/A
Project : 
Standard EXE
Component Tambahan :

• ADODC (Microsoft ADO Data Control 6.0 (OLEDB))

Controls :

• text1 (textbox)

Function :

Function noUrut(fld As String, tbl As String, standar As String, awal As Integer, panjang As Integer, ado As Adodc)
On Error Resume Next

Dim nomorstandar As String
nomorstandar = Mid(standar, awal, panjang)

ado.RecordSource = "SELECT " + fld + " FROM " + tbl + _
                   " order by mid(" + fld + "," + awal + "," +panjang + ") DESC"
ado.Refresh
    If Not ado.Recordset.EOF Then
        nomor = Val(Mid(ado.Recordset(0), awal, panjang)) + 1
        nomor = Right(Left(nomorstandar, panjang - 1) & nomor, panjang)
    Else
        nomor = nomorstandar
    End If
       
        nomor = Replace(standar, nomorstandar, nomor)
        noUrut = nomor
        ado.Recordset = tbl
        ado.Refresh
End Function

Penggunaan :
sebelum menggunakan funsi ini koneksikan terlebih dahulu Adodc-nya, misalnya pada saat Form Load, contoh :

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "table1"
Adodc1.Refresh

*Note : mungkin fungsi ini tidak akan berjalan apabila koneksi Adodc menggunakan properties bukan code.

Sekarang mulai kita coba jalankan fungsi ini, yaitu saat Form Load atau sehabis menyimpan data atau pada saat mengosongkan Form, dengan memasukkan kode dibawah ini pada bagian paling bawah sebelum End Sub

Text1.Text = noUrut("nomor", "table1", "FJ0001", 3, 4, Adodc1)

Preview saat menulis code :