Re: [Programmer-VB] Nomor Otomatis

[agus muhardi,A.Md]

Dear Ahmad Baskara... mas/om Ahmad maaf nih kok masih error yach saya kan menggunakan database dengan field nm_bkti dan sd_bayar, nah ketika saya klik tambah memang nomor jadi bertambah but ga masuk ke dalam database.. gimana yach om/mas B.Reg's Agus Muhardi =========== 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   __._,_.___ 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. __,_._,___ Do you Yahoo!? Get on board. You're invited to try the new Yahoo! Mail Beta.