Before Update não funciona com Links?

Viva:

Estou usando este código que funciona às mil maravilhas, excepto neste caso:

insiro na caixa;http://maximoaccess.forumeiros.com/post.forum?mode=newtopic&f=13
Se tornar a meter o mesmo a mensagem aparece. mas se digitar um novo;http://maximoaccess.forumeiros.com/post.forum?mode=newtopic&f=23 aparece a mensagem a dizer que está registado no sistema???

Private Sub txtRuta_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[txtRuta]", "docassociado", _
"[txtRuta] ='" & Me!txtRuta & "'"))) Then
MsgBox "O exemplo já está cadastrado no sistema..." & txtRuta.Text, _
vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtRuta.Undo 'desfaz a digitação.
End If
End Sub

Alguém tem sugestões?

Obrigado

Vieira verifique se mesmo com essa ação de cancelamento o registro está sendo gravado na tabela.

Olá Marco

Desde já obrigado pela resposta. Quando colo o link na caixa ao sair o evento before update entra logo em acção e faz undo, logo não grava na tabela. Este código fun ciona tão bem que estou espantado com os links pois nunca tinha experimentado antes.