MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Compartilhe

    Jeff_SL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 8
    Registrado : 07/12/2016

    [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  Jeff_SL em 31/1/2017, 23:56

    Olá Pessoal do Maximo Access,

    Gostaria que me ajudassem a solucionar esta dúvida que estou tendo em criar um critério de numeração de ORDEM, por exemplo:

    Tenho a seguinte Tabela_Consulta

    ID---------DATA-----------NUMERO----------ORDEM
    1-------01/01/2017----------20-------------------1
    2-------05/01/2017----------20-------------------2
    3-------02/01/2017----------89-------------------1
    4-------07/01/2017----------89-------------------2
    5-------12/01/2017----------89-------------------3
    6-------01/01/2017----------53-------------------1
    7-------05/01/2017----------75-------------------1

    Ou seja, preciso que a coluna ORDEM conte os valores repetidos e atribua um valor de sequencia de acordo com data (esta irá definir qual é a ordem de chegada), porem esse numero deve começar a contar novamente para os próximos registro repetidos e assim sucessivamente.  

    Agradeço pela atenção,
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 308
    Registrado : 23/01/2017

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  thiagomcosta em 1/2/2017, 10:59

    Eu criaria um campo no form e colocaria esta função no campo ORDEM.

    Código:
    Function SequenciaIndividual(parNumero As Integer) As Integer
    Dim vContaValores As Integer

    vContaValores = DCount("[NUMERO]", "TABELA_CONSULTA", "[NUMERO] = '" & parNumero & "'")

    Sequenciainvidual = vContaValores + 1

    End Function

    Jeff_SL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 8
    Registrado : 07/12/2016

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  Jeff_SL em 2/2/2017, 07:25

    Obrigado pela atenção "thiagomcosta".

    Eu irei testar sua sugestão e responderei se deu tudo certo.

    Jeff_SL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 8
    Registrado : 07/12/2016

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  Jeff_SL em 2/2/2017, 07:54

    Caro thiagomcosta

    Eu tentei fazer o exemplo que me enviou mas não obtive sucesso, talvez eu não tenha entendido seu raciocínio.
    Quando executo a função eu recebo esta Mensagem: "Erro de Compilação: O argumento não é opcional."
    Você poderia me esclarecer seu raciocínio?

    Desde já agradeço pela atenção,

    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 308
    Registrado : 23/01/2017

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  thiagomcosta em 2/2/2017, 11:17

    Terei de revisar o código para verificar onde está o erro. Volta e meia eu erro nas virgulas e afins e acaba dando erro.

    A ideia é contar os registros após aplicar um filtro, no seu caso determinado NUMERO. Fazendo-se a contagem lança o resultado adicionado de 1 no campo ORDEM.

    Jeff_SL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 8
    Registrado : 07/12/2016

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  Jeff_SL em 8/2/2017, 06:34

    Boa tarde pessoal do Forum MaximoAccess,

    Alguém mais teria alguma solução para minha dúvida?


    Fico grato pela atenção,

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  Noobezinho em 8/2/2017, 11:20

    Só um pitaco:

    "Erro de Compilação: O argumento não é opcional."

    Isso quer dizer que o argumento (o valor que está entre parenteses na função) é obrigatório,

    não pode ficar em branco.

    Então, quando chama a função:

    Call SequenciaIndividual(tem que haver um valor aqui)


    [ ]'s
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  Cláudio Más em 8/2/2017, 13:19

    A consulta abaixo faz a atualização conforme esperado, considerando que não existe duplicidade de NUMERO + DATA:

    UPDATE Tabela_Consulta SET ORDEM = DCount("*","Tabela_Consulta","[NUMERO] = " & [NUMERO] & " And CDbl([DATA]) <= " & CDbl([DATA]))

    Jeff_SL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 8
    Registrado : 07/12/2016

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  Jeff_SL em 9/2/2017, 07:20

    Muito obrigado pela atenção "Cláudio Más", eu executei seu código e funcionou perfeitamente.

    Obrigado também, pelo pitaco "Noobezinho", foi muito válida sua colocação.

    Jeff_SL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 8
    Registrado : 07/12/2016

    Re: [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada

    Mensagem  Jeff_SL em 9/2/2017, 07:22

    Resolvido
    avatar
    idiframk silva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 22/04/2013

    Como Vou Aplicar a Função?

    Mensagem  idiframk silva em 25/3/2018, 21:53

    Como Vou Aplicar a Função?

      Data/hora atual: 16/11/2018, 04:01