Numerar registros por grupo

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

Ramon.mattos: Novato; Respeito às regras :

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

Mensagem nº1

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** 15/5/2013, 14:46

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº2

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 vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.