[Resolvido]Verificar se Registro não existe na Tabela/Lista

Mais uma ajuda.

Possuo um campo de nome "COD" em um formulário de nome "frmFerias" onde posso atualizá-lo manualmente ou em uma lista (formulário: frmCOLABORADORES).

Porém existe um problema que não consegui resolver, eu gostaria de colocar uma regra para validar caso o código inserido manualmente não conste na tabela/lista, e que nesse caso desse uma mensagem de aviso "Esse Código não existe, insira outro..." após isso apagasse a linha para uma nova digitação/escolha, já que o valor inserido um não existe.

Acredito que isso seja simples, mas também sei que muitas vezes complicamos simples.

Segue o BD: http://dl.dropbox.com/u/81000360/Erro%20Valida%C3%A7%C3%A3o.rar

Obrigada Julia!

Olá Julia,

Tente o código abaixo no evento Após atualizar do campo "COD":

Código:

If IsNull(Me!COD) Then Exit Sub

If DCount("*", "CadastrodeColaborador", "[NumCad] = '" & Me!COD & "'") = 0 Then
    MsgBox "Esse Código não existe, insira outro...", vbCritical
    Me!COD = Null
    Me!Comando28.SetFocus
    Me!COD.SetFocus
Else
    Me.txtProv.Requery
    Me.txtDesc.Requery
End If

Ou

http://speedy.sh/cbPQJ/Erro-Validacao.rar

Maravilha meninos!

Ambos os casos resolve meu caso.

Mais uma vez obrigado.

Julia!