Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) autonumeraçao que apos ano reinicia contagem


brunocasado

Pergunta

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

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...