Ajuda com Formulário

Amigos do forum;
Como faço pra quando eu tiver 2 produtos com o mesmo código de barras e quando eu for dar saída ele me avisasse que existe 2 produtos cadastrado com o mesmo código de barras.

Cada código de barras deve pertencer a um produto. Porque tem mais que um?
Não sei como utiliza a informação, mas ao ler o código de barras, o Access procura na tabela pelo produto respectivo. No código de procura, coloque para verificar se tem mais que um código, através da função DCount

Amigo desenvolvi um sistema para um deposito de bebidas, acontece que ele trabalha com bebidas quente um preço e gelada outro preço, queria que ele cadastrasse o mesmo produto 2 vz com o mesmo código de barras e assim que na tela de vendas ele informe o código de barras do produto o sistema teria que abrir um outro formulário mostrando que existe 2 produtos com o mesmo código porem com preços diferente para ele escolher qual ele quer vender. mas somente quando houver 2 ou mais produtos cadastrados com o mesmo código de Barras.

Se tem bebida natural e fresca, deve ter códigos diferentes. Por isso é que precisa de os destrinçar na venda

Amigo, coca , guarana etc... é tudo 1 código só ja impresso na garrafa.

Se é isso, bastará que, ao vender, apareça uma caixa de entrada perguntando se é fresca. Se fôr, trata-a como fresca e em caso negativo trata-a como natural

Amigo não querendo ser chato, você teria uma ideá de como faço esse código pra ele consultar se existe o mesmo código mais de uma vez cadastrado e me informasse?

Nomes da tabela, campos e tipo onde armazena os códigos?

tenho um formulário com campo txtCodBarras quando digito o código de barras la ele ja consulta a tblprodutos e joga nesse mesmo formuário preço e descrição do produto.
uso o código assim:

Private Sub txtCodBarras_AfterUpdate()
Forms!frmpdv!txtDescricao = DLookup("Produto", "tblprodutos", "CodBarras='" & Forms!frmpdv!txtCodBarras & "'")
Forms!frmpdv!txtValor = DLookup("Venda", "tblprodutos", "CodBarras='" & Forms!frmpdv!txtCodBarras & "'")
End Sub

Este código é para natural ou fresco?
Indique ambos os códigos, mas pode utilizar:
msgbox "Tem " & DCount("Produto", "tblprodutos", "CodBarras='" & Forms!frmpdv!txtCodBarras & "'") & " registo(s) do produto " & Forms!frmpdv!txtCodBarras