Validação com 2 criterios

Opa! Boa Tarde!

To aqui de novo! pedindo ajuda! Sou novo em programação o que dificulta bastante!

Preciso da seguinte ajuda!

Tenho a seguinte tabela:

CLIENTE-NOTA-R$
___1_____1___10,00
___1_____2___10,00
___1_____3___10,00
___2_____1___10,00
___2_____3___10,00
___2_____4___10,00

Preciso que o VBA realize a seguinte validação:

Se eu tentar digitar novamente a nota 1 para o cliente 1 ou 2 ele indique que a nota já foi utilizada.

Caso eu queira digitar a nota 1 para o cliente 3 ele permita.

No caso seria uma validação com 2 critérios.

Seria possivél?

vlw

Luiz.

Na verdade é apenas um critério. Você apenas vai querer permitir o uso dela mesmo já sendo usada. Seria assim, no avento "Após atualizar" do campo da nota no formulário:

If Not IsNull("nota", "NomeDaTabela", "nota=" & Me!nota) Then
MsgBox "Nota já existe", , "Atenção"
End If

Então Criquio!

Esta validação já esta fazendo! da seguinte forma! que o vierasoft me ajudou!

If (Not IsNull(DLookup("[CR_RECEBE]", "[T_G01_SG03_002_T_GERA_CRITERIORATEIO]", "[CR_RECEBE] =" & Me!CR_RECEBE))) Then
MsgBox "CR nº " & CR_RECEBE.Value & " já cadastrado!", vbInformation, "Atenção"
Cancel = True 'cancela o evento.
Me!CR_RECEBE.Undo 'desfaz a digitação.
End If

Entretando quando tento utilizar o mesmo numero em outro "cliente" ele não permite.

Tenho que lembrar tambem, que esta tabela e vinculada ao backend, onde poderá ocorrer que dois usuários estejam utilizando ao mesmo tempo.

vlw

Pois o que não permite é exatamente as linhas a mais. Tente da forma que eu lhe passei.

If DCount("*","Tabela","CampoNota=" & TxtNota & " and CampoCliente=" & TxtCliente)>0 Then
msgbox "Já existe a nota " & TxtNota & " para o cliente " & TxtCliente
Docmd.Cancelevent
End If
Cumprimentos,

É ainda não deu certo!