[Resolvido]Contar Registros

Bom dia colegas. Tenho um form e acoplado a uma tabela e coloquei uma caixa de texto com a função =Str(Contar("*")) & " Delegados Cadastrados", que me retorna por exemplo "150 Delegados Cadastrados", ou seja, a quantidade de registros na tabela. Até aí tudo bem. No entanto gostaria de acrescentar uma maneira de que me fosse retornado "1 de 150 Delegados Cadastrados", "2 de 150 Delegados Cadastrados", ou seja, a medida que eu percorresse os registros me fosse retornado o número parcial daquele registro. Não sei se consegui me fazer entender. Obrigado.

Ola bom dia !

Cole esta função num modulo e salve;
Não altere nada na função.

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

Cole na origem da sua caixa de texto e altere para o nome correto do seu formulario:

=ExibeResultado([Forms]![SeuFormulario]) & " Delegados Cadastrados"

Bom dia. Obrigado mais uma vez pela sua preciosa ajuda JPAULO. Ficou exatamente como pretendido. Abraços.

Obrigado pelo retorno o forum agradece.