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

    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 : 3711
    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 : 208
    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 4 vez(es)

      Data/hora atual: 16/6/2021, 21:17