RE: [Programmer-VB] Nomor Otomatis

[Ahmad Baskara]

Coba fungsi ini:   Option Explicit Public Enum PadConst  PadLeft = &H101  PadRight = &H102  PadCenter = &H103 End Enum Public Function Pad(PadType As PadConst, ByVal StringToPad As Variant, PadLength As Integer, Optional ByVal PadCharacter) As String Dim StringLength As Integer, PadFill As Integer  If IsMissing(PadCharacter) Then PadCharacter = " "  StringToPad = CStr(StringToPad)  If (Len(StringToPad) > PadLength) Then   Pad = StringToPad  Else   Select Case PadType   Case PadLeft: Pad = Right(String(PadLength, PadCharacter) & StringToPad, PadLength)   Case PadRight: Pad = Left(StringToPad & String(PadLength, PadCharacter), PadLength)   Case PadCenter:    StringLength = PadLength - Len(StringToPad)    PadFill = StringLength \ 2    Pad = Left(String(StringLength - PadFill, PadCharacter) & StringToPad & String(PadFill, PadCharacter), PadLength)   End Select  End If End Function Public Function GetNextNum(CurrNum As String) As String Dim gi As Integer, gs As String   If (Trim(CurrNum) <> "") Then     gi = Len(CurrNum)     Do While (IsNumeric(Mid(CurrNum, gi, 1)) And gi > 0)       gi = gi - 1     Loop     gs = Mid(CurrNum, gi + 1)     GetNextNum = Left(CurrNum, gi) & Pad(PadLeft, Trim(CStr(CLng(gs) + 1)), Len(gs), "0")   End If End Function   Contoh: MsgBox GetNextNum(“010606/A/001”) akan menghasilkan 010606/A/002 MsgBox GetNextNum(“010606/A/002”) akan menghasilkan 010606/A/003   Hope helps     From: Programmer-VB@yahoogroups.com [mailto:[EMAIL PROTECTED] On Behalf Of dedi_gunawan1711 Sent: Friday, June 23, 2006 8:34 AM To: Programmer-VB@yahoogroups.com Subject: [Programmer-VB] Nomor Otomatis   dear all, saya newbie di vb6 neh, kepengen bisa prog. tsb. saya ingin menambahkan topik yg ada membuat no secara otomatis namun digitnya ditentukan exp: 010606/A/001 010606/A/002 dst... no2 tsb. dapat disimpan pada ms. access makasih atas source code serta penjelasannya! thx. deddy g __._,_.___ Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. __,_._,___