[Resolvido]Numerar item no subformulario

Bom dia mestres do fórum.

Estou mais uma vez precisando a ajuda de vocês para listar sequencialmente os itens em um subformulário começando do 1.

Ex:
Item | Descrição
1 aaaaa
2 bbbbb
3 cccc
.
.
.
E quando iniciar um novo atendimento, reiniciar sequencia do 1 novamente.

Item | Descrição
1 aaaaa
2 bbbbb
3 cccc
.
.
.
Fico no aguardo

Boa tarde.

Se o relacionamento estiver correto entre a tabela principal ( Formulário Principal ) e a tabela secundaria ( SubFormulário )
Tente isso:

1- criar uma caixa de texto desacoplada no subformulário, de o nome a ela de "sessao". Vá até a fonte de controle da mesma e coloque = NumerarLinhas()

2- copie e cole o código abaixo
Public Function NumerarLinhas() As Long

On Error GoTo Err_NumerarLinhas
RecordsetClone.Bookmark = Bookmark

NumerarLinhas = RecordsetClone.AbsolutePosition + 1

Bye_NumerarLinhas:
Exit Function

Err_NumerarLinhas:
Resume Bye_NumerarLinhas
End Function


Bons estudos !!!

Bom dia amigos,

Desculpem pela demora em responder, estava meio enrolado no trabalho.

Mas aproveito para agradecer ao Silvio pela ajuda, mas resolvi não colocar mais essa numeração no projeto

Obrigado.

Resolvido!