Membuat Nomor Otomatis Dengan Pola Tanggal (YYMMDD + Nomor Urut)

Catatan :

Anda  harus memiliki database dan sebuah tabel (contoh nama databasenya adalah
dbdemofaktur, nama tabel Faktur, nama field NoFaktur)

Buatlah form dengan bentuk seperti gambar di bawah ini

Setelai selesai membuat  seperti gambar di atas copy kode berikut ini :



Dim Conn As New ADODB.Connection 
Dim RS As ADODB.Recordset 

Sub Koneksi() 
Set Conn = New ADODB.Connection 
Set RS = New ADODB.Recordset 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & 
"\dbdemofaktur.mdb" 
End Sub 

Private Sub Command1_Click() 
Dim simpan As String 
simpan = "insert into faktur(nofaktur) values ('" & LblFaktur & "')" 
Conn.Execute simpan 
Form_Activate 
End Sub 

Private Sub Command1_KeyPress(KeyAscii As Integer) 
If KeyAscii = 27 Then End 
End Sub 

Private Sub Form_Activate() 
Call oto1 
End Sub


Enjoy your eksperiment!!!!!