Auto Number pada VB6

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

bismillaahirrahmaanirrahiim

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

Assalamu'alaikum warahmatullahi wabarakatuh

Hello flen..mungkin saat ini temen2 pada pusing untuk pembuatan Auto Number dengan perubahan pada tahun atau tahun dan bulan berikut ini adalah contoh programnya dan penggunaannya.

'// Untuk AutoNumber Berdasarkan bln dan tahun formatnya yymm [1202]
Public Function BuatNomer(ByVal srrSQL As String, ByVal sTarget As String, ByVal sTanggal As Date, Optional sKetentuanTanggal As Boolean, Optional sKodenya As String)
Dim nX, nX2 As String 'Variable sementara buat nampung record lama dan buat record no baru
Dim rJur As New Recordset 'Variable untuk recordset

    rJur.CursorLocation = adUseClient
    rJur.Open srrSQL, CNN, adOpenStatic, adLockReadOnly
    If rJur.EOF Then
        'buat format nomer misal :12040001 --> tahun 2 digit bulan 2 digit 4 digit nomer urut
        If sKetentuanTanggal = True Then
            BuatNomer = Format(sTanggal, "yymm") & "" & "0001"
        Else
            BuatNomer = sKodenya & "0001"
        End If
    Else
        If sKetentuanTanggal = True Then
            'ambil record ke 5 sampe ke n dengan fungsi MID,
            'selanjutnya cek panjang record hasilnya dikurangi 4 kemudian ditambah 1 untuk no berikutnya
            nX = Val(Mid(rJur.Fields(sTarget), 5, Len(rJur.Fields(sTarget)) - 4) + 1)
            'Fungsi String 4 untuk membuat angka 0 secara otomatis dengan maksimal 4 karakter
            nX2 = String(4 - Len(nX), "0") & nX
            BuatNomer = Format(sTanggal, "yymm") & "" & nX2
        Else
            nX = Val(Mid(rJur.Fields(sTarget), 2, Len(rJur.Fields(sTarget)) - 1) + 1)
            'Fungsi String 4 untuk membuat angka 0 secara otomatis dengan maksimal 4 karakter
            nX2 = String(3 - Len(nX), "0") & nX
            BuatNomer = sKodenya & "" & nX2
        End If
    End If
    
    'Clear Recordset dari Memory
    Set rJur = Nothing
End Function

Cara Memanggil Procedure diatas dengan cara :

'Nama TextBox utk Nomer Urut = TxtKode
    TxtKode = BuatNomer("Select ID from m_sekolah Order by ID Desc", "ID", Now, False, "S")
'Untuk Yang Menggunakan format Tahun dan Bulan
TxtNo = BuatNomer("Select ID from m_registrasi Where Left(ID,4)='" & Format(Now, "yymm") & "' Order by ID Desc", "ID", Now, True)

Coding Standardnya adalah berikut ini.

Sub NomerOtomatis()
Dim nX, nX2 As String 'Variable sementara buat nampung record lama dan buat record no baru
Dim rJur As New Recordset 'Variable untuk recordset

    rJur.CursorLocation = adUseClient
    rJur.Open "select NoTrans from registrasi where left(notrans,4)='" & format(dtpicker1,"yyyy") & "' Order by NoTrans Desc", CNN, adOpenStatic, adLockReadOnly
    If rJur.EOF Then
        'buat format nomer misal :20120001 --> tahun 2 digit bulan 2 digit 4 digit nomer urut
        BuatNomer = format(dtpicker1,"yyyy") & "0001"
    Else
        'ambil record ke 5 sampe ke n dengan fungsi MID,
        'selanjutnya cek panjang record hasilnya dikurangi 4 kemudian ditambah 1 untuk no berikutnya
        nX = Val(Mid(rJur.Fields("NoTrans"), 5, Len(rJur.Fields("NoTrans")) - 4) + 1)
        'Fungsi String 4 untuk membuat angka 0 secara otomatis dengan maksimal 4 karakter
        nX2 = String(4 - Len(nX), "0") & nX
        BuatNomer = Format(sTanggal, "yyyy") & "" & nX2
        
    End If
    
    'Clear Recordset dari Memory
    Set rJur = Nothing

End Sub

Cara Menggunakan Cukup Dipanggil saat Private Form_Load()

txtKode=NomerOtomatis

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 Auto Number pada VB6, Diterbitkan oleh scodeaplikasi pada Jumat, 27 April 2012. 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.