[Resolvido]Numeração automática muda de ano, conforme ano corrente

Caro J. Paulo Boa tarde.

No seu exemplo estou tentanto colocar mais um dígito (0000/ano atual).
Poderia me dizer o que tá faltando, pois já alterei o DMax, Nz, Left e Right e nada.
No aguardo
Obrigado!

Paulo

Olá, veja se este tópico ajuda (mensagem nº 5) http://maximoaccess.forumeiros.com/t20018-resolvidonumeracao-muda-conforme-ano-0000-ano-atual
A busca do forum é muito útil.
Abraço   

Ops, não reparei que vinha de lá.
As minhas sinceras desculpas  

Veja se é isto que pretende:

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,5)", "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, "00000") & "/" & 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 = "00000" & "/" & year(Date)
End If
End Sub

Entretanto se o pretendido é 00000/2014 (cinco digitos/4 do ano), fiz alteração ao exemplo disponibilizado pelo colega Fernando Bueno

Muito Obrigado ahteixeira

Abs,

Paulo.