[Resolvido]Valores repetidos

Boa noite amigos, estou usando esse código para evitar valores duplicados.

Private Sub CódigoCão_BeforeUpdate(Cancel As Integer)
If Me!CódigoCão = Me!CódigoCão.OldValue Then Exit Sub
If Not IsNull(DLookup("[CódigoCão]", "Consultas", "[CódigoCão] ='" & Me!CódigoCão & "'")) Then
Cancel = True
CódigoCão.Undo
MsgBox "Edsalys, existe um documento cadastrado com esse número."
End If

End Sub

Quando eu digito por exemplo 1 duas vezes na segunda vez vai pro depurador, engraçado que no exemplo que eu peguei no forum esta funcionando mas quando eu tento não consigo. Onde estou errando. Também queria saber que esse código funciona num caixa de combinação. Obrigado.

Tenta assim, se o objetivo e evitar Registros Duplicados:

https://www.maximoaccess.com/t26081-resolvidoimpedir-dados-duplicados-em-uma-linha-de-registros

Adapte apenas esta linha, e coloque no Evento Antes de Atualizar:

If DLookup("idMes", "tbMes", "NomeMes ='" & Me!NomeMes & "' and IdAno = " & Me.IdAno & "") > 0 Then

Ficou assim na caixa de combinação, Private Sub Código_BeforeUpdate(Cancel As Integer)
If Me!Código = Me.Código Then
MsgBox "Já houve uma consulta com este código"

End If

End Sub Funcionou direitinho. Grato pela ajuda.