Baca Juga
Menyambung posting saya tentang "Metode membuat no urut setelah penghapusan record", berikut saya berikan contoh source code untuk metode yang pertama yaitu dengan menambal record dari nomor yang dihapus, tetapi tidak menggunakan tabel bantu (arsip) seperti posting saya sebelumnya, sehingga tidak ter-record history penghapusannya, oleh karena itu metode ini tidak disarankan.
Silakan di download melalui link dibawah ini, apabila ada masalah silakan Sharing pada kotak komentar, Terima kasih.
http://www.ziddu.com/download/13798427/autonumber4.rar.html
Silakan di download melalui link dibawah ini, apabila ada masalah silakan Sharing pada kotak komentar, Terima kasih.
http://www.ziddu.com/download/13798427/autonumber4.rar.html
1 Tanggapan:
Mungkin Anda akan mengalami masalah saat menjalankan source code di atas, ada baiknya Anda replace pada sub check Click dengan code dibawah ini :
Private Sub Check1_Click()
Dim n, s, l, panjang As Integer
Dim awal, akhir As String
'TxtKode = noUrut("kodebarang", "barang", "00001", 1, 5)
n = 0
s = 1 'awal
l = 5 'panjang
If Check1.Value = 1 Then
Dim rsnomor As ADODB.Recordset
Set rsnomor = New ADODB.Recordset
rsnomor.Open "SELECT distinct(kodebarang) FROM (SELECT * FROM barang ORDER BY kodebarang ASC)", con
If Not (rsnomor.BOF Or rsnomor.EOF) Then
n = Val(Mid(rsnomor(0), 1, 5))
panjang = Len(rsnomor(0))
If s = 1 Then
awal = ""
Else
awal = Left(rsnomor(0), s - 1)
End If
If panjang = s + l - 1 Then
akhir = ""
Else
akhir = Right(rsnomor(0), panjang - (s + l) + 1)
End If
nomor0 = Replace(Space(l), " ", "0")
If n > 1 Then
nomor = nomor0
nomor = awal + Left(nomor, l - 1) + 1 + akhir
' Exit Sub
Else
Do Until rsnomor.EOF
If n < Val(Mid(rsnomor(0), 1, 5)) Then
nomor = nomor0
pnomorcari = Len(n)
' pnomor = s + l - 1 - pnomorcari
nomor = awal + Left(nomor, Len(nomor) - pnomorcari) + n + akhir
Exit Do
End If
n = n + 1
rsnomor.MoveNext
Loop
End If
If Not nomor = "" Then TxtKode.Text = nomor
End If
Else
refreshData
End If
End Sub