Script untuk penulisan ID Otomatis dalam Visual Basic 0.6

Untuk sebuah program membutuhan sebuah ID otomatis agar mempermudah user dalam memedakan data yang lain dengan data yang lainnya. dan untuk meminimalisir kesalahan dalam penulisan id pada sebuah tabel  dan berikut nii adalah scriptnya nii ..


Dim jml As String
Call kosong

TxtNoPenjualan.SetFocus
jml = datapenjualan.Recordset.RecordCount
If jml = 0 Then
TxtNoPenjualan.Text = "PEN001"
 ElseIf jml >= 100 Then
TxtNoPenjualan.Text = "PEN" & jml + 1

 ElseIf jml >= 10 Then
TxtNoPenjualan.Text = "PEN0" & jml + 1

 ElseIf jml <= 9 Then
TxtNoPenjualan.Text = "PEN00" & jml + 1
 End If


semogga bermanfaat yya..
khafie10.com