[Resolvido]Numeração com Ano seguido de número

Olá pessoal. Seguindo o forum por anos e interagindo pela primeira vez. Tenho um campo em uma tabela chamado de código. Os valores nele armazenados possuem o seguinte formato YYYY/0000, ou seja o ano corrente seguido por "/" e um número de quatro dígitos.
Quero automatizar seu preenchimento colocando automaticamente. Gostaria de criar uma função que leia o campo "código" mais recente em uma tabela chamada "tblTeste" e incremente de um seu valor ou, se for após uma mudança de ano, reinicie a numeração com o novo ano. Seria algo assim:

2021/0001
2021/0002
...
2021/0789
2022/0001
2022/0002
...

Alguém poderia me dar alguma dica?

Alterie esse código sugerido por JPaulo mas ao criar um novo registro, o valor do campo código é sempre o ano seguido por 0001 (Não incrementa o valor). AnoNumeracao() como valor padrão

Código:

Public Function AnoNumeracao() As String
'By JPaulo@2009
Dim code(1) As Integer, temp As Integer
code(1) = Nz(DMax("Left([código],4)=Year(Date())", "tblTeste", "Right([Código],4)"), 0)
    For i = 1 To UBound(code)
        If temp < code(i) Then temp = code(i)
    Next
AnoNumeracao = Year(Date) & "/" & Format(temp + 1, "0000")
End Function


Bom dia!
Em qual momento você que esse incremento ocorra?
Tipo, quando (em que evento) que será detectado que o ano mudou?

Boa tarde Marcelo. Eu gostaria que, assim que carregar o formulário, já traga consigo o novo valor (que seja o valor padrão)

Quando for inserir um novo registro, é isso?

Isso.

Olá, boa tarde xará (se não fosse pelo s, (risos))!

Para o seu caso em específico, vamos vazer um pouco diferente do código do JPaulo.

1º - Crie uma consulta para retornar o último código (ano/sequencia) cadastrado na tabela tblTeste:
Nome da consulta: qryUltimoAnoSequencia
A SQL dessa consulta deve ser essa (crie uma consulta no modo designer e altere para a visualização SQL):

Código:

SELECT Last(Código) AS UR FROM tblTeste GROUP BY numero ORDER BY Last(Código) DESC;

2º - Preferencialmente em um módulo, copie e cole a seguinte função:

Código:

Public Function IncrementaAnoCodigo() As String
 ''''''''''''''''''''''''''''''''''
 'Por Marcelo David - 26/07/2021
 ''''''''''''''''''''''''''''''''''
    Dim iAno As Integer
    Dim iSeq As Integer
    Dim strRes As String
    
    'Busco o último ano/sequencia da tabela, se retonar nulo, passo o ano atual com a sequencia 0
    'pois a ainda não há registros e nas linha mais abaixo serão incrementados corretamente
    strRes = Nz(DLookup("UR", "qryUltimoAnoSequencia"), Year(Date) & "/0")
    
    'Passo o valor do ano (que está nos 4 primeiros caracteres de strRes)
    iAno = Mid(strRes, 1, 4)
    
    'Passo o número da sequencia para a variável iSeq (a partir do 6º caractere)
    iSeq = Mid(strRes, 6)
    'Caso o último ano gravado seja diferente do ano atual, incremento mais um e passo
    '0 (zero) para a variável iSeq reiniciar a sequencia
    If iAno <> Year(Date) Then
        iAno = iAno + 1
        iSeq = 0
    End If

    'Monto a string como retorno para a função
    IncrementaAnoCodigo = IIf(iAno = 0, Year(Date), iAno) & "/" & Format(iSeq + 1, "0000")

End Function

3º - Agora, basta passar como Valor padrão a função criada para a Caixa de texto Código do formulário teste, assim:
=IncrementaAnoCodigo()

Aguardamos.

Boa tarde Xará!

Perfeito. Funcionou do jeito que eu necessitava. Até quando lanço ocorrências de um sistema legado, como números do passado, ele ajusta automaticamente para o ano corrente e sequencia seguinte. Valeu a ajuda irmão!

Um grande abraço!

Grato que deu certo! O Fórum agradece o retorno.
Só não esqueça de marcar o tópico como resolvido.
Dessa vez, eu marco.