[Resolvido]Não duplicar registro subformulário.

Será que algum Jedi, poderia me ajudar? É o seguinte, eu criei um sistemia de vendas simples, porém me deparei com um problema.
No cadastro de vendas (Tabela 1) está tudo correto, formulário principal; no subformulário (Tabela 2) onde os produtos que irei vender são incluídos eu preciso que a combo não deixasse repetir os que já foram incluídos. Não tenho como usar para isso o campo chave, pois esse campo é usado na composição da tabela e a inclusão nas outras vendas!

BD:
http://dl.dropbox.com/u/81000360/Banco%20de%20Dados%20-%20Vendaswww.rar

Bom dia...

Espero que seja isso, veja no anexo.

Muito Obrigado pela ajuda Silvio!!!

Mas fui testar e continua duplicando olha o print anexo:

http://dl.dropbox.com/u/81000360/BD.PNG

Tenta dessa forma...

Private Sub cboproduto_AfterUpdate()
Me.ValorProdutoVenda = Me.cboproduto.Column(2)
Select Case Me.cboproduto.Value
Case "1" ' onde 1 é o código do produto
MsgBox "(venda feita,vbInformation)"
End Select


Para adicionar mais produtos, terás que repetir o comando Select case:

Me.ValorProdutoVenda = Me.cboproduto.Column(2)
Select Case Me.cboproduto.Value
Case "2" ' onde 2 é o código do produto
MsgBox "(venda feita,vbInformation)"
End Select

Bons estudos !

Valeu Silvio, tudo resolvido. Obrigado!