[Resolvido] dois criterios

ola feras
tenho um form cadastro queria criar im criterio para nao deixar cadastrar mesmo produto para mesmo fornecedor ex

fornecedor a produto b
neste caso nao poderia cadastrar o produto b novamente para este fornecedor

No evento "Após atualizar" do campo Produto

If Not IsNull(DLookUp("CampoProdutoTabela", "NomeTabela", "CampoFornecedorTabela='" & Me!CampoFornecedorForm & "'") Then
MsgBox "Este produto já está cadastrado na base de dados do sisteme", vbOkOnly, "Produto cadastrado"
Else
Exit Sub
End If

Essa é uma forma de se fazer isso.

amigo criquio usei o seguinte codigo mas nao funfa

nome da tabela tblcadastro nome dos campos fornecedor , produto


Private Sub Produto_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookUp("Produto", "tblcadastro", "Fornecedortblcadastro='" & Me!FornecedorF_principal & "'") Then
MsgBox "Este produto já está cadastrado na base de dados do sistema", vbOKOnly, "Produto cadastrado"
Else
Exit Sub
End If

End Sub

If Not IsNull(DLookUp("Produto", "tblcadastro", "Fornecedortblcadastro='" & Me!FornecedorF_principal & "'")

Esses campos marcados em vermelho é o nome exato dos campos? Me parece que você adicionou o nome da tabela e o nome do formulário aos nomes dos campos. Se for, retire, pois deves colocar apenas os nomes dos campos, no que creio que ficaria assim:

If Not IsNull(DLookUp("Produto", "tblcadastro", "Fornecedor='" & Me!Fornecedor & "'")

os nome Tblcadastro campo Fornecedor campo Produto


Private Sub Produto_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookUp("Produto", "tblcadastro", "Fornecedor='" & Me!Fornecedor & "'")
MsgBox "Este produto já está cadastrado na base de dados do sisteme", vbOKOnly, "Produto cadastrado"
Else
Exit Sub
End If
nao funcionou a linha ficou em vermelho

Cadê o Then no final da linha If Not IsNull...?

adicionei then de igual forma nao funfa a linha fica em vermelho

Boa noite,

Será If Not IsNull(DLookUp("Produto", "tblcadastro", "Fornecedor='" & Me!Fornecedor & "'")) Then

valeu Neves tava esquecendo o parenteses por isso nao dava certo

Ótimo! Me esqueci de fechar um parêntese, rsrsrs.