[Resolvido]Registro X de N em um subformulário

Olá amigos

Venho novamente recorrer a este fórum que nunca me decepciona.
Minha dúvida é a seguinte: Achei na internet um código que para exibir aquela janela que exibe a contagem de registros. O problema é que eu preciso usá-lo em um subformulário e em um sub-subformulário, e ele só funciona no nível de formulário. Segue o código:

Código:

Function ExibeRec(frmNome As Form)

    On Error Resume Next

    Dim rs As DAO.Recordset

    Set rs = frmNome.RecordsetClone

    ' Vai para o último registro

    ' para forçar o RecordCount.

    rs.MoveLast

    ' Retorna o ponteiro p/ o registro atual.

    rs.Bookmark = frmNome.Bookmark

   

    If (Err <> 0) Then

        ExibeRec = rs.RecordCount + 1 & " de " & rs.RecordCount + 1

    Else

        ExibeRec = rs.AbsolutePosition + 1 & " de " & rs.RecordCount

    End If

End Function

Alguém tem alguma idéia de como fazer isso funcionar um e dois níveis abaixo?

Não necessitava de ir à Net procurar, aqui mesmo já existe quase de tudo;

http://maximoaccess.forumeiros.com/t8875-resolvidocontador-de-registros

Diga-me onde e quais os registros que quer contar.

A caixa de texto irá estar no formulario ?

A contagem refere-se a que subform ?

JPaulo, obrigado pela sua resposta, eu realmente não devo ter procurado direito aqui no fórum.

Minha situação é a seguinte: tenho um formulário de navegação de nome "Global" (percebi depois que o nome era inadequado) com quatro subformulários: "Requisição", "Local", "Preservação" e "Máquinas". Estes quatro exibem o mesmo conjunto de registros, e uso o a propriedade Me.bookmark gravada em uma variável pública "vBookmarkLaudos" para navegar entre eles mantendo o mesmo registro. Gostaria que cada um destes quatro mostrassem uma caixa de texto com estas informações. Outra opção é que esta mesma informação seja mostrada no formulário de navegação principal.

Porém, o subformulário "Máquinas" possui outro subformulário "inserir_maquina" que insere vários registros relacionados a cada registro do formulário "Máquinas". Para este subformulário, eu preciso de uma caixa de texto em "inserir_maquina" que exiba todos os registros deste que tenham relação com o registro atual de "Máquinas".
Isso é possível com essas informações ou são necessários mais detalhes?
Novamente, prefiro que estas caixas de texto fiquem no próprio formulário a que se destinam, da mesma forma que a original. Obrigado novamente pela atenção.
Yuri

Creio eu que estava utilizando de forma errada a função. Colocava como origem dos dados da caixa de texto =ExibeRec(NomedoFormulário).
Funcionou quando coloquei no atual o seguinte código:

Me.Minhacaixadetexto = ExibeRec(Me)