Re: [Programmer-VB] Nomor Otomatis

[Babas]

Kalo masalah masuk atau tidaknya ke dalam database, kan sebelumnya tidak ditanyakan. Aku kira cuma masalah Number Sequence doang. Coba aja kirim coding yang bermasalahnya, mungkin kita bisa bantu.
 
On 6/23/06, agus muhardi,A.Md <[EMAIL PROTECTED]> wrote:








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
 




Do you Yahoo!?Get on board. You're invited to try the new Yahoo! Mail Beta. 



 

__._,_.___





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.



  






__,_._,___