[Resolvido]Código para campo de auto numeração

Prezados do forum, bom dia. Estou tentando adaptar o código abaixo, criado pelo Membro deste Forum AhTeixeira, para um BD que estou a construir e fiquei agarrado.
O código é o seguinte:

Private Sub Form_Current()
'ahteixeira 2016 para MaximoAccess v1.1
   If CStr(Me.NewRecord) = -1 Then
       
       If DCount("*", "CI", "Right([NrCI],4) = " & Year(Date)) <> 0 Then
           Me.txtNrCI = Format(Left(DMax("[NrCI]", "CI", "Right([NrCI],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date)
       Else
       MsgBox "Reiniciando contagem dos registros para o novo ano." _
       & vbCrLf & "No aplicativo, retire essa msgbox.", vbInformation, "Aviso"
       
       Me.txtNrCI = Format("1", "0000") & "/" & Year(Date)
       End If
   End If

Estou tentando incrementá-lo em um BD que possui uma tabela "TBL_GERAL" e um formulário "FRM_PROTOCOLO", e o código será usdo no campo "Sequencial".
Fiz as substituições dos nomes que estão no código pelos que consta no BD. Entretanto, ao abrir o formulário, retorna erro com a msg. "If DCount("*", "frm_protocolo", "Right([NrCI],4) = " & Year(Date)) <> 0 Then

Com as adaptações, o código que inseri ficou da forma abaixo:

Private Sub Form_Current()
If CStr(Me.NewRecord) = -1 Then
       
       If DCount("*", "frm_protocolo", "Right([NrCI],4) = " & Year(Date)) <> 0 Then
           Me.Sequencial = Format(Left(DMax("[NrCI]", "frm_protocolo", "Right([NrCI],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date)
       Else
       MsgBox "Reiniciando contagem dos registros para o novo ano." _
       & vbCrLf & "No aplicativo, retire essa msgbox.", vbInformation, "Aviso"
       
       Me.Sequencial = Format("1", "0000") & "/" & Year(Date)
   End If
   End If
   End Sub

Caso alguém tenha alguma informação que possa me ajudar, desde já agradeço.

Olá Oldri,

Estive a ver o código está a fazer o DCount a um formulario e não à tabela.
Depois também está a ir buscar o DMax a um formulario e não tabela.

Agora pelo codigo, não compreendi se pretende fazer a numeração ao NrCI (cliente) ou como descreveu ao campo Sequencial da tabela TBL_GERAL.

Pode postar a base de dados com os objectos envolvidos (Tabela e form) para se testar e mais detalhes.

Abraço

Olá, Ahteixeira, agradeço a atenção.
Estou a enviar-lhe o anexo do BD com o código implementado e erro.

A minha intenção é utilizar o seu código para que seja criados uma numeração sequencial no campo "Sequencial", com o reinicio a cada ano e que permita cancelar o numero que for gerado se não concluir o registro. (Me desculpe se não me fiz entender)
Desde já agradeço.

Prezado, alterei o código, tirando a referencia de formulário por tabela, ficando o código como abaixo:

If CStr(Me.NewRecord) = -1 Then
       
       If DCount("*", "tbl_geral", "Right([NrCI],4) = " & Year(Date)) <> 0 Then
           Me.Sequencial = Format(Left(DMax("[NrCI]", "tbl_geral", "Right([NrCI],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date)
       Else
       MsgBox "Reiniciando contagem dos registros para o novo ano." _
       & vbCrLf & "No aplicativo, retire essa msgbox.", vbInformation, "Aviso"
       
       Me.Sequencial = Format("1", "0000") & "/" & Year(Date)
   End If
   End If
End Sub

Ao abrir o formulário, retorna o erro em tempo de execução "2471".

Há alguma forma de resolver? Desde já agradeço.

Falta-lhe validar se a tabela está vazia, para poder gerar o numero e não pode usar funções destinadas a tabelas e consultas, referenciando direto o nome do form.

Logo a seguir ao If CStr(Me.NewRecord) = -1 Then

Código:

       
   If DCount("*", "TBL_ GERAL") = 0 Then
        Me.Sequencial = Format("1", "0000") & "/" & Year(Date)
        Exit Sub
    End If

Trecho todo corrigido;

Código:

Private Sub Form_Current()
 If CStr(Me.NewRecord) = -1 Then
        
   If DCount("*", "TBL_ GERAL") = 0 Then
        Me.Sequencial = Format("1", "0000") & "/" & Year(Date)
        Exit Sub
    End If
    
        If DCount("*", "TBL_ GERAL", "Right([Sequencial],4) = " & Year(Date)) <> 0 Then
            Me.Sequencial = Format(Left(DMax("[Sequencial]", "TBL_ GERAL", "Right([Sequencial],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date)
        Else
        MsgBox "Reiniciando contagem dos registros para o novo ano." _
        & vbCrLf & "No aplicativo, retire essa msgbox.", vbInformation, "Aviso"
        
        Me.Sequencial = Format("1", "0000") & "/" & Year(Date)
    End If
    End If
End Sub

Prezado JPaulo, boa tarde.
Agradeço a atenção. Funcionou "redondinho" e não vou retirar a msgbox. Aproveitarei para o aviso quando do inicio de um novo ano, com o fito de evitar confusões com o usuário final.
Muito agradecido.
Boa sorte


Prezado JPaulo, bom dia.

Desculpe-me pelo incomodo.
Precisei refazer a sequencia da autonumeração "0000" para "00000", ou seja, acrescentei mais um dígito. Porém a numeração não saí do "00001", mesmo salvando vários registros.

Qual alteração deverá ser feita nos código criado por você para funcione com a mudança? Ou não há como?

Fiz as alterações em destacadas em vermelho.
Public Function NumeracaoAno() As String
'By JPaulo@2009
Dim fazcodigo(1) As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(idsequencial,5)", "tbl_Cadastro", "Right(idsequencial,5)=Year(Date())"), 0)

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

NumeracaoAno = Format(temporario + 1, "00000-GAB") & "/" & Year(Date)

End Function

Obrigado

Fico feliz.

Obrigado pelo retorno o forum agradece.

Boa tarde Mestre JPaulo

Por gentileza poderia comentar o código para poder compreende-lo Melhor...