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]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 : 368
    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 : 368
    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 : 3633
    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 : 1278
    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?
    avatar
    wejunio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 13/10/2012

    [Resolvido]Auto numerar registros repetidos no Access de acordo com a ordem de chegada Empty Não conseguir aplicar o código

    Mensagem  wejunio em 12/11/2019, 00:48

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

    NÃO atualiza a tabela

      Data/hora atual: 31/10/2020, 02:11