--- In [email protected], Edy Hermawan <[EMAIL PROTECTED]> wrote:
>
> Coba pake ini
>
> Sub auto()
> Dim urutan As String * 11
> Dim hitung As Byte
> Dim Nomor As String
> Dim No As String
> Dim Panjang as Integer
>
> No = "IO-937-000"
> With Data1.Recordset
> If .RecordCount = 0 Then
> Nomor = "IO-937-099"
> Else
> .MoveLast
> hitung = Val(Right(.Fields("Nomor"), 3)) + 1
> panjang=Len(No) - Len(CStr(hitung))
> urutan = Left(No,panjang ) & hitung
> End If
> TxtNomor = urutan
> End With
> End Sub
>
> mustapa_mail <[EMAIL PROTECTED]> wrote:
> Sub auto()
> Dim urutan As String * 11
> Dim hitung As Byte
> With Data1.Recordset
> If .RecordCount = 0 Then
> urutan = "IO-937-001"
> Else
> .MoveLast
> hitung = Val(Right(.Fields("Nomor"), 3)) + 1
> urutan = Right("IO-937-00" & hitung, 11)
> End If
> TxtNomor = urutan
> End With
> End Sub
>
> hasil dari source code diatas sbb:
> IO-937-001.tapi waktu urutan 10 ke atas nox IO-937-0010,seharusx IO-
> 937-010
> dan kalo urutan 100 keatas nox IO-937-00100, seharusnya IO-937-100
> makasih banyak...
> aq baru belajar VB
>
>
>
>
>
>
> ---------------------------------
> Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di
Yahoo! Answers
>
> [Non-text portions of this message have been removed]
>
Betuk mas Edy
Nice Code
atau bisa juga dengan cara pendek dengan menggunakan format
ganti code ini:
urutan = Right("IO-937-00" & hitung, 11)
menjadi
urutan = Right("IO-937-" & Format(hitung."000"), 11)
Salam,
^Aiska Hendra^
Freelance Programmer
