[Resolvido]Obter número de classificação/ordenação em formulário Contínuo

Preciso de um código que me traga o número da linha em um formulário contínuo. Mas não através =[CurrentRecord] pois este mostra o registro onde o cursor está. Eu preciso é de um código que me dê a posição da linha. Como abaixo:

1
2
3
4
5
6
7

Desde já agradeço as dicas

Veja:


http://maximoaccess.forumeiros.com/t7842-resolvidoaparecer-o-numero-do-registro


Cumprimentos.

Sinto muito Piloto, mas esse método que o Sr. indicou não funcionou no meu caso pois o meu campo a minha tabela está no lado muitos da relação um para muitos. Desta forma o campo Código possui vários valores iguais.

Não entendi... "posição da linha"

Seria o número da linha.


__________________________________________________________________
Nome:
__________________________________________________________________
Linha Data Dose Vacina
01 01/01/2012 Primeira dT
02 01/02/2012 Segunda dt
03 01/03/2012 Terceira dt
04 01/06/2012 Reforço dt

Insira uma caixa de texto descopolada no seu formulario continuo;

Cole esta função no VBA do formulario;

Function NumeraLinhas() As Long
'By JPaulo ® Maximo Access
On Error Resume Next
RecordsetClone.Bookmark = Bookmark
If Err = 0 Then
    NumeraLinhas = RecordsetClone.AbsolutePosition + 1
End If
End Function

Na origem dessa caixa de texto, faça assim;

=NumeraLinhas()

E voilá....

Perfect!!!

https://dl.dropbox.com/u/26441349/NumeraLinha.rar

Cumprimentos.

Era isso que eu precisava. Obrigado a todos

O Fórum agradece o Retorno.

Aliás se um dia alguém estiver na mesma situação o código adaptado ficou assim:

Public Function getNumberLine() As String
Dim Line As Long

On Error Resume Next
RecordsetClone.Bookmark = Bookmark
If Err = 0 Then
Line = RecordsetClone.AbsolutePosition + 1

Select Case Line
Case 1
getNumberLine = "1ª"
Case 2
getNumberLine = "2ª"
Case 3
getNumberLine = "3ª"
Case 4
getNumberLine = "Reforço"
End Select
End If

End Function

Public Function getNumberLine2() As String
Dim Line As Long

On Error Resume Next
RecordsetClone.Bookmark = Bookmark
If Err = 0 Then
Line = RecordsetClone.AbsolutePosition + 1

Select Case Line
Case 1
getNumberLine2 = "Ao nascer"
Case 2
getNumberLine2 = "1 mês"
Case 3
getNumberLine2 = "2 meses"
Case 4
getNumberLine2 = "3 meses"
End Select
End If

End Function

Desculpe-me, só queria colaborar.

Tranquilaço, mas deve-se colaborar de forma a que os outros aprendam o correto....

Grande abraço