[Resolvido]Ajuda com duplicados

Ola Pessoal
Preciso de ajuda para o seguinte, tenho um form cadastro com os campos fornecedor e produto, quero fazer que nao permita produto duplicado para o mesmo fornecedor

ou seja fornecedor A , proudto 10
Fornecedor b , produto 10 ou seja o mesmo produto pode ,ser cadastrado mas,so para um fornecedor diferente como fazer?

Agravina

Você tem a certeza que diferentes fornecedores tem a mesma referência para o mesmo produto?

Normalmente todos tem referência diferentes, Então pode usar a função DLookup

If (Not IsNull(DLookup("[referência]", "nometabela", _
"[referência] ='" & Me!referência & "'"))) Then
MsgBox "a referência já está cadastrada no sistema..." & referência.Text, _
vbInformation, "Aviso"
Cancel = True 'cancela o evento.
Me!referência.Undo 'desfaz a digitação.
End If

ola viera na verdade coloquei o numero apenas como ex por no caso dos produtos sera o nome do produto.
ex Fornecedor A Produto Cafe
Fornecedor B Produto Cafe
Fornecedor A Produto cafe neste caso mesmo fornecedor e mesmo produto nao seria permitido

Agravina

Uma base de dados tem que ter uma estrutura. O produto pode ser café, mas terá sempre ref diferentes em cada fornecedor.

Fornecedor A

Produto Café 1000

Café preto-2009
Café branco-2007

Fornecedor B

Produto Café A500

Café preto-D789
Café branco-C678

utilize a função Dlookup que resolve

Uma coisinha

Utilize a função no evento:

Private Sub sua caixa de texto_BeforeUpdate(Cancel As Integer)

mas e no caso de a ref for a mesma por compra cafe 1000 do fornecedor a e tbm do fornecedor b
o que quero e evitar de cadastrar para o mesmo fornecedor o mesmo produto , e permitir cadatrar o mesmo cafe 1000 para outro fornecedor

Agravina

Já lhe referi que o produto pode ser café, peixe, batatas ou o que quer que seja. Pode ter 10 fornecedores diferentes para o mesmo produto. Não pode ter 10 referências iguais. Tem que haver sempre algo a distinguir. Por exemplo; uma camisa pode ter 1 referência e várias cores. A referência é uma, sempre. Chame-lhe código, referência ou o que quizer.

Por isso a função Dlookup trabalha direitinho. Vai verificar se existe duplicado e não deixa inserir se houver.

desculpa amigo viera pela minha ignorancia ,fiz o disse deu certinho. valeu

Agravina

Não tem que pedir desculpa. Todos estamos aqui a aprender e ninguém nasce ensinado. E por vezes custa, porque são coisas novas, ok.

Um abraço e disponha sempre. Obrigado pelo retorno.