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

    Enumerar consulta decrescente

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 216
    Registrado : 10/04/2014

    Enumerar consulta decrescente

    Mensagem  biligo em Qui 27 Abr 2017, 18:11

    Boas galera,

    Estou a horas a procura de uma solução e não consigo resolver.
    Preciso enumerar os registros de meu formulário continuo que é baseado em 5 tabelas.
    A base esta em ordem decrescente ou seja cada vez que adiciono um novo registro ele vai para baixo mas precisa manter a mesma numeração.

    Após procurar muito encontrei uma solução parcial (No site do Avelino Sampaio) pois ela enumera mas os registros novos vão sendo sempre o 1° pois esta em ordem decrescente meu frm

    =fncNumerar([Formulário])

    Public Function fncNumerar(frm As Form) As Long

    On Error GoTo TrataErro
    With frm.RecordsetClone
      .Bookmark = frm.Bookmark
      fncNumerar = 1 + .AbsolutePosition
    End With
    Exit Function
    TrataErro:
      If Err = 3021 Then fncNumerar = 0
     
    End Function

    Se alguem souber uma outra maneira ou uma forma de adaptar esta função agradeço.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: Enumerar consulta decrescente

    Mensagem  Alexandre Neves em Dom 11 Jun 2017, 20:08

    Boa tarde,
    Se não pretende a numeração pela ordem do form, altere o parâmetro da função para a origem que pretender


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Ter 21 Nov 2017, 17:38