Membuat Penomoran Otomatis dengan Format Bulan & Tahun di VB.net 2010

Assalamu'alaikum ..

Dalam membuat program Aplikasi, penomoran otomatis menjadi salah satu fungsi penting untuk mempermudah user dalam menginput data dan mencegah kesalahan inputan. Berikut saya akan berbagi listing penomoran otomatis dengan format Bulan dan Tahun sekarang pada VB.net .

Langsung saja ..
Langkah pertama membuat Prosedur KodeOtomatis seperti berikut :


  Sub KodeOtomatis()

        Call Buka_DB()        '/---membuka koneksi
        Dim tya As String
        tya = " SELECT MAX(no_kuitansi) AS data_akhir FROM pembayaran"
        CMD = New Odbc.OdbcCommand(tya, CONN)
        Dim DTREADER_service As Odbc.OdbcDataReader
        DTREADER_service = CMD.ExecuteReader()

        '/---Ambil Nilai Data Terakhir
        Dim nomer_akhir As Integer = 0
        If DTREADER_service.Read Then

        nomer_akhir = DTREADER_service("data_akhir")
        End If
        DTREADER_service.Close()
        CMD.Dispose()

        '/---Ambil Nilai Bulan dan Tahun
        Dim bulan As String = Format(Now, "MM")
        Dim tahun As String = Format(Now, "yy")
        Dim nomer As String = "0"

        '/--- Nilai data ditambah 1
        nomer_akhir = nomer_akhir + 1

        '/--- Membuat nilai Nol (0000)
        nomer = Microsoft.VisualBasic.Right(("0000" & NOMER_akhir), 4)

        '/--- Menggabungkan Nilai Bulan, Tahun dan Nomer
        Me.tnokuitansi.Text = bulan & tahun & nomer

End Sub

Jika sudah selesai, panggil  prosedur kode otomatis pada saat meload form seperti ini :

Private Sub form1_Load_1....
         KodeOtomatis()
End Sub

Nah coba dijalankan, jika prosedurnya benar maka No. Kuitansi yang muncul adalah : 01140001 dan seterusnya . Untuk lebih jelasnya saya sediakan link download dibawah ini, semoga bermanfaat ...

Download Penomoran Otomatis