Membuat No Faktur Otomatis Pada VB 6.0

Source Kode dibawah ini adalah listing untuk membuat no faktur otomatis. No faktur otomatis ini terdiri dari tahun, bulan, tanggal serta no urut transaksi.

Sub fak()
Adotransaksi.RecordSource = "Select*from transaksi where notrans in(select max(notrans)from transaksi)order by notrans desc"
Adotransaksi.Refresh
Dim urutan As String * 9
Dim hitung As Long
With Adotransaksi
If .Recordset.EOF Then
urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + "001"
NoTrans.Text = urutan
Else
If Left(.Recordset!NoTrans, 6) <> Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) Then
urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + "001"
Else
.Recordset.MoveLast
hitung = (.Recordset!NoTrans) + 1
urutan = (Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2)) + Right("000" + hitung, 3)
End If
End If
NoTrans.Text = urutan
End With
End Sub

Semoga Membantuu . .