[Resolvido]Dúvida como criar txtbox com número do registro atual e a contagem dos registros

Pessoal,


No meu formulário de  cadastro de cliente, na foto em anexo, tenho uma txtbox que exibe as informações dos registros, assim:

1 de 1815     =[CurrentRecord] & " de " & Contar(*)    esta é a expressão da fonte de controle dessa txtbox.


O problema é que quando crio um novo registro, essa txtbox mostra esse valor: 1816 de 1815. E se eu salvar e criar outro novo registro, fica 1817 de 1815.

Só vai mostrar normal qdo fecho e abro o formulário, aí fica: 1 de 1817

Alguém pode me dizer o que devo colocar no lugar de "Contar(*)"?

Bom dia,

Tente o seguinte:

Coloque esta função no formulário:

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
    'rs.Close
    Set rs = Nothing
End Function

Na TxtBox onde quer exibir a contagem coloque na origem dos dados:

Código:

=ExibeRec(Formulários!NomeDoSeuFormulário)

ZCarlos Lopes, muitíssimo obrigado!!!!!!

Perfeito! Resolveu meu problema.