Membuat Nomor Otomatis menggunakan tanggal di VB.net 2010 dengan database Access

Jika sebelumnya saya sudah pernah membuat nomor otomatis di VB.Net 2010, namun yang sekarang kita tambahkan menggunakan tanggal..


Untuk file yang dipakai yaitu file yang sebelumnya yang ada disini
silahkan pelajari terlebih dahulu dan baru lanjut kesini.


silahkan buka coding procedure kodenomor yang ada didalam file, silahkan rubah seperti berikut :

 Private Sub Kodenomor()
        Dim NomOt As String = ""
        Koneksi()


        Try
            CMD = New OleDbCommand("SELECT TOP 1 right(nomor,3) + 1 as nomor FROM tbnomor ORDER BY nomor DESC ", CONN)
            RD = CMD.ExecuteReader

            If RD.Read Then
                Select Case RD!nomor
                    Case Is <= 9
                        NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "00" & RD!nomor
                    Case Is <= 99
                        NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "0" & RD!nomor
                End Select
            Else
                'tabel kosong
                NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "001"
            End If

            TextBox1.Text = NomOt


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

kalau diliat perintah diatas hanya menambahkan tanggal berdasarkan tanggal sekarang.

silahkan jalankan.. untuk filenya silahkan download disini

About Me :

Saya Martin Purnansyah
Nama Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)