[Resolvido]Contador automático

Galera, boa tarde

Tenho uma dúvida, acredito que pra vcs seja mais simples do que pra mim esteja sendo. Não estou conseguindo autonumerar um campo de lote que criei em uma tabela, funciona da seguinte forma:

1. Criei uma tabela que vai gravar em uma coluna o número (inteiro) do lote; (AAI), onde AA é o ano corrente e I é o inteiro sequencial. Ex. 191, 192, 193 etc isso se extende até 19999, ou seja, quero adicionar após o ano os digitos inteiros em sequencia. O problema é que estou usando uma fórmula no campo que quando chega em 199 ele vai para 200 ai inicia a contagem novamente, veja:

Código:

SeImed(ÉNulo([num_lote]);(SeImed(Direita(Ano(Agora());2)=Esquerda(DMáx("[num_lote]";"public_tbl_lotes_dt");2);DMáx("[num_lote]";"public_tbl_lotes_dt")+1;Direita(Ano(Agora());2) & 1));[num_lote])

Eu consegui entender que o problema está aqui: DMáx("[num_lote]";"public_tbl_lotes_dt")+1, mas como faço para que ao chegar em 199 ele vá para 1910, 1911 e assim por diante?

Abs a todos e obrigado

Obs: Rodei no forum mas nao achei nada semelhante.

Boa noite,
Utilize função

Código:

Function NovoLote() As Integer
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
    '     utilize o código livremente mas mantenha os créditos     '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If DCount("*", "public_tbl_lotes_dt", "Right(num_lote,2)= Right(Year(Date()),2)") = 0 Then
        NovoLote = Right(Year(Date()), 2) & 1
    Else
        NovoLote = Right(Year(Date()), 2) & DCount("*", "public_tbl_lotes_dt", "Right(num_lote,2)= Right(Year(Date()),2)") + 1
    End If
End Function


Prezado @Alexandre,

Obrigado pelo seu apoio, deu tudo certo, só tive que fazer uma pequena alteração no código conforme segue minha comparação abaixo:

Antes:

Código:


Function NovoLote() As Integer
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
    '     utilize o código livremente mas mantenha os créditos     '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If DCount("*", "public_tbl_lotes_dt", "Right(num_lote,2)= Right(Year(Date()),2)") = 0 Then
        NovoLote = Right(Year(Date()), 2) & 1
    Else
        NovoLote = Right(Year(Date()), 2) & DCount("*", "public_tbl_lotes_dt", "Right(num_lote,2)= Right(Year(Date()),2)") + 1
    End If
End Function


Depois:

Código:


Function NovoLote() As Integer
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
    '     utilize o código livremente mas mantenha os créditos     '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If DCount("*", "public_tbl_lotes_dt", "Left(num_lote,2)= Right(Year(Date()),2)") = 0 Then
        NovoLote = Right(Year(Date), 2) & 1
    Else
        NovoLote = Right(Year(Date), 2) & DCount("*", "public_tbl_lotes_dt", "Left(num_lote,2)= Right(Year(Date()),2)") + 1
    End If
End Function


Créditos mantidos, obrigado pela colaboração.

Atenciosamente,

Kellyton Armelin