MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Numerar campo de acordo com o Grupo

    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 31/08/2012

    [Resolvido]Numerar campo de acordo com o Grupo Empty [Resolvido]Numerar campo de acordo com o Grupo

    Mensagem  Chamon Consultoria em 21/5/2020, 02:25

    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.
    Anexos
    [Resolvido]Numerar campo de acordo com o Grupo AttachmentPlano.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 10 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Numerar campo de acordo com o Grupo Empty Re: [Resolvido]Numerar campo de acordo com o Grupo

    Mensagem  Celso Roberto em 21/5/2020, 05:26

    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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 31/08/2012

    [Resolvido]Numerar campo de acordo com o Grupo Empty Re: [Resolvido]Numerar campo de acordo com o Grupo

    Mensagem  Chamon Consultoria em 21/5/2020, 06:02


    Celso Roberto, ficou perfeito!

    Muito obrigado!

    Abraço e sucesso!!!
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Numerar campo de acordo com o Grupo Empty Re: [Resolvido]Numerar campo de acordo com o Grupo

    Mensagem  Celso Roberto em 22/5/2020, 23:46

    Olá..

    Ficamos Felizes por ter ajudado

    Obrigado pelo retorno

    Abraços e sucesso cheers


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 30/11/2020, 04:14