Membuat Nomer Otomatis di Visual Basic

MEMBUAT NOMER  OTOMATIS

DI VISUAL BASIC

Contoh  : Pembuatan Desain Form Nomer Otomatis

Rubahlah Propertisnya :

Object	Propertis	Keterangan
Form1	Caption	No Otomatis
Command1	Caption	Proses
Text1	Name	Text1
	Caption	Nomer
Label1	Caption	Membuat Nomer Otomatis

Setelah itu buatlah database dengan ms.acces dan buatlah table anggota  :

Rubahlah Propertisnya :

Fields	type	Keterangan
No_trans	Text	No Otomatis

Lalu simpan  dan beri nama tabelnya menjadi anggota 

Buatlah Modul koneksi ke Database :

SETELAH SELESAI BUKA FORM1 NOMER OTOMASTIS , DAN SALIN KODE DI BAWAH INI :

Dim adodata As ADODB.Recordset

Dim nomer, sql As String

Private Sub Form_Load()

    Call koneksi

    tampilkan

End Sub

Sub tampilkan()

    Set adodata = New ADODB.Recordset

    '-----A-0001----------------------

    sql = "Select * from anggota order by no_trans desc"

    adodata.Open sql, dbkon

    If adodata.EOF Then

        Text1.Text = ""

    Else

        Text1.Text = adodata!no_trans

    End If

End Sub

Private Sub Command1_Click()

    Set adodata = New ADODB.Recordset

    sql = "Select * from anggota order by no_trans desc"

    adodata.Open sql, dbkon

    If adodata.EOF Then

        Text1.Text = "A-0001"

    Else

        nomer = Val(Right(adodata!no_trans, 4))

        nomer = Val(nomer) + 1

        If Len(nomer) = 1 Then

            Text1.Text = "A-" & "000" & nomer

        ElseIf Len(nomer) = 2 Then

            Text1.Text = "A-" & "00" & nomer

        ElseIf Len(nomer) = 3 Then

            Text1.Text = "A-" & "0" & nomer

        ElseIf Len(nomer) = 4 Then

            Text1.Text = "A-" & nomer

        End If

    End If

    '---------- masukkan ke database -------------------------

        sql = "insert into anggota" _

            & " (no_trans)values" _

            & " ('" & Text1.Text & "')"

        dbkon.Execute sql

        tampilkan

End Sub

Jika sukses  maka akan muncul seperti gambar di bawah ini :