(Resolvido) autonumeraçao que apos ano reinicia contagem

[brunocasado]

gente estou com um codigo aqui de autonumeraçao que apos passar o ano ele reinicia a contagem

o problema que esta contagem é assim 1/2008, 2/2008

isso causa problemas pois quando chegar no 10/2008 ele vai fica atras do 1/2008

o certo seria 001/2008 e assim por diante

o problema que não estou conseguino formatar. deem por favor uma olhada.

Public Function NextNumAno() As String
'Gera o próximo código da tabela de numeração/ano
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim intYear As Integer
Dim strSQL As String
'Ano atual, conforme o sistema
intYear = Year(Date)

'Verifica o último código para o ano
strSQL = "SELECT CLng(Left$(pi, Len(pi)-5)) As Num, " & _
"CInt(Right$(pi, 4)) As Ano FROM pedido_interno " & _
"WHERE CInt(Right$(pi, 4))=" & CStr(intYear) & _
" ORDER BY CLng(Left$(pi, Len(pi)-5)) DESC"
Set db = CurrentDb()
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
With rst
    If .BOF And .EOF Then
        NextNumAno = "001/" & CStr(intYear)
    Else
        .MoveFirst
        NextNumAno = CStr(!num + 1) & "/" & CStr(intYear)
         
    End If
    .Close
End With
Set rst = Nothing
Set db = Nothing
End Function

qual seria a soluçao para ele formatar com 001/2008 ?

vlw

[MrMALJ]

isso deve resolver:

NextNumAno = format(CStr(!num + 1),"000") & "/" & CStr(intYear)

Ok?

[brunocasado]

putz vlw cara.... tava tentano fazer isso num tava conseguino ...

vlw