--- In [email protected], Kadek Pong <kadekp...@...> wrote:
>
> 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]
> saya pernah coba buat kesalahanya
kemungkinan besar jumlah text di database kurang
sebelum else coba tambahhkan .movelast data akan menghitng mundur
atai tambahkan timer set interval 500
