Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.
Sub auto()
Dim Con As New ADODB.Connection Dim Rst As New ADODB.Recordset Dim s As String
'mengatur dan membuka koneksi Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SPK.mdb;" ' Con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=STOKIS;Data Source=OKA-881F6BA00CA" 'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max) 'kemudian hasilnya d tampung d field buatan dgn nama Nomor Rst.Open "select max(right(Kd_penilaian,4)) as kd from TB_Penilaian", Con, adOpenKeyset ''jika berisi null atau tdk ditemukan If IsNull(Rst!kd) Then Text1.Text = "0001" 'member nilai awal Else Text1.Text = "ID" & Format(Rst!kd + 1, "0000") End If Con.Close
End Sub
yang kemudian fungsi diatas bisa dipanggil pada button baru dengan cara
Call auto
screenshoot nya :