Validação de Dados

[LFWO]

Boa Tarde Pessoal,

Estou precisando de ajuda.

Tenho um formulário baseado em uma tabela, onde será inserido os dados.

Preciso que realize uma validação da seguinte forma:

Quando eu digitar o pedido número "1" por exemplo, ele verifique se o mesmo já foi digitado, caso seja verdadeiro que ele traga as informações referentes a este pedido nos respectivos campos.

Caso essa condição seja falsa, ele libere para que eu digite os dados do pedido.

Esta parte ja esta funcionando com o seguinte codigo:

Private Sub CR_RECEBE_LostFocus()

Dim rs As DAO.Recordset

Dim NumeroCR As Long

Set rs = Me.RecordsetClone

NumeroCR = Me![CR_RECEBE]

rs.FindFirst "[CR_Recebe]=" & NumeroCR

If rs.NoMatch Then

DoCmd.RunCommand acCmdUndo

DoCmd.GoToRecord , , acNewRec

Me![CR_RECEBE] = NumeroCR

Me![FATOR_JANEIRO].SetFocus

Else

DoCmd.RunCommand acCmdUndo

Me.Bookmark = rs.Bookmark

End If

End Sub

O problema acontece quando eu identifico uma informação "ERRADA" nos dados do pedido "1" e tento alterar, ele da o seguinte erro:

"Erro em tempo de execução '2046': O comando ou ação 'Desfazer' não está disponível agora."

Como faço para resolver isso?

Obrigado

Luiz Filipe