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

    avatar
    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 Empty [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,
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada Empty 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
    avatar
    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 Empty 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.
    avatar
    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 Empty 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,

    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada Empty 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.
    avatar
    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 Empty 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,
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada Empty 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
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada Empty 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]))
    avatar
    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 Empty 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.
    avatar
    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 Empty 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
    idiframk silva
    idiframk silva
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada Empty Como Vou Aplicar a Função?

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

    Como Vou Aplicar a Função?

      Data/hora atual: 19/4/2019, 03:47