[Resolvido]Numeração muda conforme Ano (0000/ Ano Atual)

Pessoal Boa tarde,

Estou com o exemplo do J. Paulo sobre numeração sequencial, até aí blz!
O negócio é tão simples, pois não estou achando uma forma de colocar mais um dígito no formato 0000/Ano Atual

Peço alguém da selva o que devo estar errando...abs...segue abaixo:

Public Function NumeracaoAno() As String
'By JPaulo@2009
Dim fazcodigo(1) As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(CodigoControle,3)", "tblExemplo", "Right(CodigoControle,4)=Year(Date())"), 0)
   For I = 1 To UBound(fazcodigo)
       If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
   Next

NumeracaoAno = Format(temporario + 1, "0000") & "/" & Year(Date).

End Function


Agradeço a todos que me ajudar.

Abs

Paulo.
Quando coloco no Format mais um "0" ele não está criando um novo número

Boa noite,
Atente às regras do fórum. Não coloque dúvidas no repositório

desculpe!

Estava a consultar as suas mensagens.
Não prolifere dúvidas. Dê por "Resolvido" os assuntos já resolvidos.
Aguardamos

Ai esta amigo o exemplo do grande mestre da forma que pediu

0001/2014

No Modulo:

Option Compare Database

Public Function NumeracaoAno() As String
'By JPaulo@2009
Dim fazcodigo(1) As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(CodigoControle,4)", "tblExemplo", "Right(CodigoControle,4)=Year(Date())"), 0)

   For I = 1 To UBound(fazcodigo)
       If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
   Next

NumeracaoAno = Format(temporario + 1, "0000") & "/" & year(Date)

End Function

Ao Abrir no formulário:

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.CodigoControle) Then
Exit Sub
Else
Me.CodigoControle.Value = "0000" & "/" & year(Date)
End If
End Sub

Beleza Amigo.

Funcionou perfeitamente. Só não estava entendendo porque eu fiz tudo isso e não adicionava registro.

Como funcionou, obrigado!

Paulo

Sim você fez uma parte corretamente, repare onde estava seu erro

fazcodigo(1) = Nz(DMax("Left(CodigoControle,3)", "tblExemplo", "Right(CodigoControle,4)=Year(Date())"), 0)

Mais legal, que bom que deu certo..

O forum agradece o retorno!

Valeu!