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

3 participantes

    Numerar registros por grupo

    avatar
    Ramon.mattos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 09/05/2013

    Numerar registros por grupo Empty Numerar registros por grupo

    Mensagem  Ramon.mattos 15/5/2013, 13:27

    Bom dia a todos

    Tenho essa excelente dica apresentada pelo nosso amigo Avelino, de enumerar registros em uma tabela:

    http://www.usandoaccess.com.br/dicas/dica36.asp?id=1#inicio

    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

    Porem é possível fazer isto por grupo de registros? Por exemplo:
    No grupo do Ademir abreu (ver link acima), a coluna informar:
    TIM = 01
    Claro = 01
    Claro = 02
    GVT = 1
    VIVO = 1
    NEXTEL = 1
    NEXTEL = 2

    Se puderem ajudar agradeço.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    Numerar registros por grupo Empty Re: Numerar registros por grupo

    Mensagem  Avelino Sampaio 15/5/2013, 14:46

    Veja se a modificação na função atende:

    Option Compare Database
    Dim op$
    Dim k%

    Public Function fncNumerar(frm As Form) As Long
    On Error GoTo TrataErro
    With frm.RecordsetClone
    .Bookmark = frm.Bookmark
    If op <> .Operadora Then
    op = .Operadora
    k = .AbsolutePosition
    End If

    fncNumerar = 1 + .AbsolutePosition - k
    End With
    Exit Function
    TrataErro:
    If Err = 3021 Then fncNumerar = 0
    End Function

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    raijeweb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 01/04/2016

    Numerar registros por grupo Empty Re: Numerar registros por grupo

    Mensagem  raijeweb 20/4/2021, 15:10

    seria algo assim
    Anexos
    Numerar registros por grupo AttachmentBD_Exemplo2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 6 vez(es)

      Data/hora atual: 1/2/2023, 06:03