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 ?
Pergunta
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.
qual seria a soluçao para ele formatar com 001/2008 ?
vlw
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.