[Resolvido]Erro ao Abrir Formulário

Uso a versão access Xp (2000) em inglês, ao abrir um formulário estou recebendo a mensagem

"the expression on current you entered as the proporty setting produced the following error: object or class does not support the set of events. the expression may not result in the name of a macro, the name of a user-defined function. there may been an error evaluating the function, event, or macro"

traduzido automaticamente para:

"a expressão na corrente que você inseriu como a configuração proporcional produziu o seguinte erro: objeto ou classe não suporta o conjunto de eventos. a expressão pode não resultar no nome de uma macro, o nome de uma função definida pelo usuário. pode ter ocorrido um erro ao avaliar a função, o evento ou a macro"

no evento "On Current" contém o procedimento:

Private Sub Form_Current()
On Error Resume Next
Dim Rs As DAO.Recordset
Set Rs = Me.Form.RecordsetClone
Rs.MoveLast
Rs.Bookmark = Me.Form.Bookmark
If Err <> 0 Then
Me.lblregistros.Caption = Rs.RecordCount + 1 & " de " & Rs.RecordCount + 1 & " Registros"
Else
Me.lblregistros.Caption = Rs.AbsolutePosition + 1 & " de " & Rs.RecordCount & " Registros"
End If
End Sub


podem me ajudar por favor ?
Grato

Ola;

Falta isto grifado a vermelho;

If Err.Number <> 0 Then

JPaulo, fiz a edição sugerida, contudo não resolveu o problema.

Engraçado que a rotina funcionava normalmente, está em todos os formulários do aplicativo que tenho há 10 anos e comecei a receber essa mensagem quando o office foi reinstalado, não consegui a versão português que eu tinha.

Tento me recordar de uma configuração para uso de RecordSets... todas as rotinas que usam o recurso estão falhando, parece que vi coisa assim no passado.
Grato pela atenção.... estou muito tempo sem atuar na área.

E voce tem a referencia VBA "Microsoft DAO x.x Object Library" marcada ?

Verifique se tem alguma ausente.

DAO 3.6

Por um acaso você não teria o officeXP português ?

Não acho essa versão em lugar algum.... nela não havia erro...

Amigão
Esse versão está descontinuada na Microsoft, já não se usa não.

Formatei a máquina e reinstalei tudo, voltou a funcionar normalmente.
Grato pela atenção.
Parabéns pelo fórum, excelente.

Fico feliz por si, obrigado pelo retorno.