[Resolvido]Ação Quando o Registro não for encontrado

Olá.

Colegas, tenho uma edição que é feita através de formulario.
Para editar o registro, antes da abertura do formulario é efetuada uma pesquisa, e no caso de não encontrar registro com o item pesquisado retorna uma mesagem que não há item registrado.

Qual erro que ocorre? Após a mensagem de registro não localizado. O Acces abre uma janela com a seguinte informação: "A execução deste aplicativo foi interrompida devido a um erro em tempo de execução". E logo em seguida finaliza o programa.

Como posso fazer para corrigir isto? Por favor.

Abaixo segue a linha de comando utilizada.

Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
MsgBox "Não registrado, por gentileza verificar...", vbCritical
End If
End Sub

Boa tarde,
Pus um "tratamento" de erro genérico e alterei onde estava o Cancel = True

Teste:

Código:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If Me.RecordsetClone.RecordCount = 0 Then
   MsgBox "Não registrado, por gentileza verificar...", vbCritical
   Cancel = True
End If
End Sub

Marcelo, antecipadamente muito obrigado pelo suporte.

Eu fiz a alteração.

O comando ta funcionando quando o banco de dados esta em .accdb mas ele é usado em .accdr e a falha permance.

Se vc tive outra sugestão, agradeço.

Obrigado.

Qualquer erro ocorrido e não tratado especificamente, estando em accdr irá causar isso.

Também accdr não reconhece tratamento de erro em macros, se usa macros, não use a extenção accdr.
Se não use, depure e compile o código, veja se será apresentando algum erro e nos retorne.

Olá.

Marcelo, não há macros. Sim eu já havia depurado e compilado antes, não aparece nenhum erro.

ok

Boa tarde, deu certo? Qual solução encontrou?

Como não consegui localizar a falha, algo ocorrido conrrompeu e ocasionou a falha, peguei backup anteriores sem a presença da falha e trabalhei na recuperação dos dados faltantes.

Gratidão.

Grato pelo retorno.