--- In [email protected], Kadek Pong <kadekp...@...> wrote:
>saya coba bantu sedikit...
oRSTrans3.Open "select * from trans3 Order By no_trans3 Desc", oConn
if rs.eof then
no="0001"
else
no=format(val(mid(no_trans3,1,4))+1,"0000")
endif
text1=no&right(year(date),2)&format(month(date),"00")&format(day(date),"00")
> Dear VB Master,
>
> Saya mau bikin nomor otomatis dengan format seperti berikut :
> 0001YYMMDD.
> Pertanyaan kenapa setelah 0001 isi kenapa tdk mau ke 0002YYMMDD dst.
> berikut saya kirimkan sampel script yang saya buat, tolong dikoreksi, dimana
> letak kesalahannya.
>
>
> Private Sub Auto()
> Dim oRSTrans3 As ADODB.Recordset
> Set oRSTrans3 = New ADODB.Recordset
> oRSTrans3.Open "select * from trans3 Where no_trans3 In(Select
> Max(no_trans3)From Trans3)Order By no_trans3 Desc", oConn
> oRSTrans3.Requery
> Dim Urutan As String * 10
> Dim Hitung As Long
> With oRSTrans3
> If .EOF Then
> Urutan = "0001" + Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2)
> Text1 = Urutan
> Else
> If Right(!no_trans3, 6) <> Right(Date, 2) + Mid(Date, 4, 2) +
> Left(Date, 2) Then
> Urutan = "0001" + Right(Date, 2) + Mid(Date, 4, 2) +
> Left(Date, 2)
> Else
> Hitung = Left(!no_trans3, 4) + 1
> Urutan = Left("0000" & Hitung, 4) + (Right(Date, 2) +
> Mid(Date, 4, 2) + Left(Date, 2))
> End If
> End If
> Text1 = Urutan
> End With
> End Sub
>
>
> Mohon pencerahan.
> Terima kasih.
> KP
>
>
>
>
> [Non-text portions of this message have been removed]
>
