MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

+2
thiagomcosta
Jeff_SL
6 participantes

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

    avatar
    Jeff_SL
    Novato
    Novato

    Respeito às regras : 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 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 : 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 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 : 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 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 : 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 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 : 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 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 : 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 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
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    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 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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1293
    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 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 : 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 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 : 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 9/2/2017, 07:22

    Resolvido
    idiframk silva
    idiframk silva
    Novato
    Novato

    Respeito às regras : 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 25/3/2018, 21:53

    Como Vou Aplicar a Função?
    avatar
    wejunio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    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 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: 22/9/2021, 07:40