[Resolvido]Numerar campo de acordo com o Grupo

Boa noite!

Bd em Access 2010.

Campos envolvidos:

txtCodGrupo = 1;ATIVO;2;PASSIVO;3;DESPESAS E CUSTOS;4;RECEITAS

txtCodConta = gerar numeração crescente de acordo com o Grupo selecionado.


O desafio é fazer com que o campo txtCodConta gere uma numeração crescente de acordo com o Grupo selecionado.
Exemplo:
Adicionando um registro (primeiro registro do grupo 1):
txtCodGrupo = 1
txtCodConta  = 00000001

'---------------------------------------
Adicionado um novo registro com o mesmo grupo (segundo registro do grupo 1):

txtCodGrupo = 1
txtCodConta  = 00000002

Até aqui está funcionando corretamente.
'------------------------------------------------------
Adicionado um novo registro com um grupo diferente (primeiro registro do grupo 2):
O correto seria:

txtCodGrupo = 2
txtCodConta  = 00000001

Porém, da forma como está, o resultado é:
txtCodGrupo = 2
txtCodConta  = 00000003 (está dando sequência na numeração do Grupo 1, e não iniciando uma nova contagem para o grupo 2)

Como resolver isso?

Desde já agradeço pela ajuda.

Olá...

no evento Após atualizar do txtCodGrupo, altere para este

Código:

Private Sub txtCodGrupo_AfterUpdate()

    Dim Rst As DAO.Recordset
   
    Set Rst = CurrentDb.OpenRecordset("tbl_PlanoContas")
             
    If DCount("ccCodConta", "tbl_PlanoContas", "ccCodGrupo=" & Me.txtCodGrupo) < 1 Then
        Me.txtCodConta = 1
        Me.txtCodConta = Format(Me.txtCodConta, "00000000")
        Me.txtConta = Me.txtCodGrupo & "." & Me.txtCodConta
           
    Else
        Me.txtCodConta = DMax("ccCodConta", "tbl_PlanoContas", "ccCodGrupo=" & Me.txtCodGrupo)
        Me.txtCodConta = Me.txtCodConta + 1
        Me.txtCodConta = Format(Me.txtCodConta, "00000000")
        Me.txtConta = Me.txtCodGrupo & "." & Me.txtCodConta
   
    End If
   
    Me.Refresh
    Rst.Close
    Set Rst = Nothing
End Sub


Faça testes e retorne

Abraços e sucesso

Celso Roberto, ficou perfeito!

Muito obrigado!

Abraço e sucesso!!!

Olá..

Ficamos Felizes por ter ajudado

Obrigado pelo retorno

Abraços e sucesso