[Resolvido]Juntar funções

Bom dia

Como eu faço para acrescentar a esta função uma outra onde não aceite itens repetidos.

Código:

Private Sub txtIdProd_AfterUpdate()
Me.ValorUnitario.Value = Me.txtIdProd.Column(2)
Me.Caixadet.Value = Me.txtIdProd.Column(3)
End Sub


é que eu já tenho esta função ao atualizar eu queria acrescentar uma outra que não aceitasse repetir o item no pedido.
Eu já tentei colocar a função em ao sair porém como o meu pedido fica em um subformulário ele fica só repetindo a mesma coisa o tempo todo.
Se tiver alguma função simples ai que ao digitar o código do produto em (txtIdprod) ele verifica se o mesmo já encontra-se no (CodigoVenda).

No evento antes de atualizar;

Private Sub txtIdProd_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[IdProd]", "SuaTabela", _
       "[IdProd] =" & Me.txtIdProd.Column(0) & ""))) Then
       MsgBox "Item já cadastrado.", vbInformation
       Cancel = True 'cancela o evento.
       Me!txtIdProd.Undo  'desfaz a digitação.
   End If
End Sub

Bom Dia

Deu erro.

Estou colocando algo errado.

Tem como dar uma olhadinha para mim por favor?

GRX Sistema de Vendas

Somente em vendas.

Boa tarde,

Não tenho permissão para aceder ao DropBox aqui na empresa.
Manda BD para o meu email.

Abraço...

Qual o nome do form ?

FORM VENDAS

Boa Tarde

Será que não seria mais fácil criar uma regra onde acontecesse o seguinte:

CodigoVenda não aceitar itens iguais.

Não consegui nada.
Sou super fraco em código.

Eu estiver a ver o seu projeto e encontrei centenas de erros.

1º Abra um modulo qualquer, ou entre no VBA do form.

2º Vá a Debug e Compile.

Corriga todos os erros que o Access devolver, pois o amigo tens inumeros "IF`s" sem "End IF`s" entre outros erros.

Depois volte aqui com o seu banco para o ajudar-mos.

Bom Dia JPaulo

Eu já fiz as correções e estou retornando o BD.
Muito Obrigado pela dica.

Segue o BD corrigido.

Sistema de Vendas GRX

Probleminha resolvido.

Valeu meu amigo Roberto, por mais uma vez ter me ajudado.

Resolvido, resolvido está.

Mas a solução tem de ser postada aqui mesmo, senão este fórum deixa de fazer sentido para ajudar outros usuários com a mesma duvida.