[Resolvido]Posição Absoluta do Registro no formulário - Registro X de Y

Boa tarde

Em meu sistema, utilizava os botões de navegação....., estavam funcionando, porém, em virtude de algumas mudanças precisei para de utilizá-las e tive de montar uma barra de navegação. meu problema é o seguinte:

Usando a função =Contar(*) tenho o número de registros de forma correta, mas preciso identificar a posição exata do registro, exemplo Registro: 1 de 15

Tentei fazer uso da seguinte função:

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


e em um campo desvinculado:

=ExibeRec([Formulários]![subfrm_AgendarHorários])

Minha agenda possui N subformulários....., se chamo o subformulário independentemente - subfrm_AgendarHorários tenho a posição absoluta do registro de forma correta, mas, este subformulário é carregado através do formulário agenda e ao chamá-lo é apresentado #Nome.

Tentei alterar o campo desvinculado para =ExibeRec([Formulários]![frm_Agenda]![subfrm_AgendarHorários]) mas o erro foi o mesmo.

Alguém tem alguma dica de onde possa estar errando

Att. Vinicius

Código:

[code]

Boa tarde, vinicius
Já tentou =ExibeRec(subfrm_AgendarHorários)?

Boa tarde Alexandre,

Sim, ele volta com #Nome

Att. Vinicius

E acontece quando tem 1 registo seleccionado apenas no subformulário?
Se sim, disponibilize a bd para tentar ajudar

Boa tarde

Estou encaminhando em anexo a este parte da aplicação, onde tenho:
frm_Agenda - que é a agenda geral onde se encontra o subform de agendar horários;
subfrm_agendarhorários - agendamento de horários

Se puder ajudar, lhe agradeço.

Att. Vinicius

Realmente, o Access não aceita na origem do controlo a função que tenha o nome do formulário como argumento.
Coloque na origem do controlo: =ExibeRecEsteForm()
Coloque a função
Function ExibeRecEsteForm()
On Error GoTo MostraErro
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
' Vai para o último registro
' para forçar o RecordCount.
rs.MoveLast
' Retorna o ponteiro p/ o registro atual.
rs.Bookmark = Me.Bookmark

If (Err <> 0) Then
ExibeRec = rs.RecordCount + 1 & " de " & rs.RecordCount + 1
Else
ExibeRec = rs.AbsolutePosition + 1 & " de " & rs.RecordCount
End If
set rst=nothing
Exit Function
MostraErro:
Select Case Err.Number
Case 3021 'não tem nenhum registo
ExibeRecEsteForm = ""
Case Else
MsgBox Err.Number & vbCr & Err.Description
End Select
End Function

Boa Noite Alexandre

Muito Obrigado.

Problema resolvido.

Att. Vinicius