Untuk membuat penomoran otomatis pada visual basic caranya cukup mudah. copypaste listing di bawah ini:
Sub isinomor()
Dim MyId As String
Dim AgenId As New ADODB.Recordset
If AgenId.State = adStateOpen Then AgenId.Close
AgenId.Open "select right(kdbarang,3)as AgenId from barang order by kdbarang desc", mydata, adOpenForwardOnly, adLockReadOnly
If Not (AgenId.EOF = True Or AgenId.BOF = True) Then
AgenId.MoveFirst
txtkdbarang.Text = ""
txtkdbarang.Text = "B-"
MyId = Val(AgenId.Fields(0))
If Len(MyId) = 1 And Not MyId = 9 Then
txtkdbarang.Text = txtkdbarang.Text & "00" & Val(MyId + 1)
ElseIf Len(MyId) = 2 And Not MyId = 99 Or MyId = 9 Then
txtkdbarang.Text = txtkdbarang.Text & "0" & Val(MyId + 1)
ElseIf Len(MyId) = 3 And Not MyId = 999 Or MyId = 99 Then
txtkdbarang.Text = txtkdbarang.Text & "" & Val(MyId + 1)
End If
Else
txtkdbarang.Text = "B-" & "001"
End If
End Sub
untuk memanggilnya tinggal mengetik:
call isinomor
Selamat mencoba!
1 komentar:
oh begini ya caranya... makasih banyak ya... nice post!
Posting Komentar