[Resolvido]Contador de Registros

Olá mestres.
Estou precisando criar um visualizador de numeração (registros) de um formulário, igual aquele que aparece no pé dos forms ex.'Registro 1 de 20') - (2 de 20) - (11 de 45).
Alguém pode me ajudar?
Obrigado...

Bom dia!

Você pode por favor, explicar melhor sua necessidade? Onde precisa disso?
E se puder já posta o banco ou parte dele.

Até mais.

Num modulo novo, cole e salve;

Public Function ExibeResultado(frmNome As Form)
    On Error Resume Next
    Dim rs As DAO.Recordset
    Set rs = frmNome.RecordsetClone
  
    rs.MoveLast
    
    rs.Bookmark = frmNome.Bookmark
    
    If (Err <> 0) Then
        ExibeResultado= rs.RecordCount + 1 & " de " & rs.RecordCount + 1
    Else
        ExibeResultado= rs.AbsolutePosition + 1 & " de " & rs.RecordCount
    End If
End Function

Insira uma caixa de texto no rodapé do seu form:

No evento VBA do currente no seu form;


Private Sub Form_Current()
Me.SuaCaixaTexto.Value = "Total Registos -" & ExibeResultado(Forms!NomeDoSeuFormulario)
End Sub

João Paulo
muito bom, vou aproveitar esse codigo também..
Um abraço

Valeu mestre João Paulo.
Era isso mesmo que eu precisava.
Obrigado à todos que se interessaram em me responder.
Sucesso!!!
Resolvido...

Obrigado pelo retorno o fórum agradece.

Sensacional

Rapaz como posso usar isso no meu subform filtrando os registros pelo codigo da pessoa?

abraço

JPaulo usei esse módulo de ExibeResultado e ficou muito bom. Tem como adaptar esse código para quando estiver no primeiro registro desabilitar o botão anterior e quando estiver no último registro desabilitar o botão próximo?