ANGKA OTOMATIS BERTAMBAH MULAI DARI 001 (AUTONUMBER)

dear, teman - teman yang sudah mampir di blog saya, :) seiring dengan terbitnya tulisan ini yang dimana hari ini adalah moment yang tak terlupakan,

nah pada form ini terlihatnya nomer "014" itu adalah nomer dari dalam database acces saya yang terakhir,  dimana pada tanggal sekarang saya sudah 14 kali menekan nya atau kalau istilah antrian, sudah ada 14 orang yang ngantri.

ini aku share karena ada temen saya yang tanya, ya mungkin ada temen - temen yang lain yang sedang mencarinya juga, :)

ini sub codenya bisa di panggil melalui button_click atau pakai keypress untuk memanggil dengan cara menekan tombol di keyboard :

Sub No_Karcis()

        Try

            no = no + 1

            lbnomer.Text = no

            If Len(lbnomer.Text) = 1 Then

                lbnomer.Text = "00" & lbnomer.Text & ""

            ElseIf Len(lbnomer.Text) = 2 Then

                lbnomer.Text = "0" & lbnomer.Text & ""

            End If

        Catch

            conen.Close()

        End Try

bagi kalian yang sadar dengan hanya melihat kodenya, pasti sudah tau kan kalau ada variabel yang harus di deklarasikan terlebih dahulu, :) yak, betul... udah tau kan, siiip ;;? :) selamat mencoba, :)

#dalam hati saya masih pengen pergi, :( #ngarep #depan #kamismanis :)