--- 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] >
================================================================== cuma saran kenapa ga buat satu buah tabel yang isinya akan terus diganti dengan nomor terakhir. jadi baris tidak bertambah. ============ | noUrut | ============ |0000 | |* | ============ if(!nourut<1) then urutan= !nourut+1 !nourut=urutan text1=urutan & Format(Date,"DDMMYY") else ..... ..... end if algoritma nya kaya gitu, bahasa di benerin lagi.
