Membuat Nomer Urut (2)

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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 :

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Membuat Nomer Urut (2), Diterbitkan oleh scodeaplikasi pada Minggu, 25 Juli 2010. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.