[Filipe Martins]

Bom dia...

Preciso usar o DLookup para não permitir registro em duplicidade numa tabela... o X da questão é... preciso verificar 2 campos da tabela

Ex.
Não posso ter um registro que coincida o COD_CLIENTE e DATA.

Se fosse só 1 parametro, por exemplo COD_CLIENTE, ficaria assim:
If (Not IsNull(DLookup("[Id_Cliente_Vendas]", "Tabela_Vendas", _
"[Id_Cliente_Vendas] LIKE'" & Me!Id_Cliente_Vendas & "'"))) Then
MsgBox "Este cliente já existe.", _
vbInformation, "Cliente"
DoCmd.Close
End If


Mas o campo DATA também tem que ser checado com o Me!Data...

Tinha tentado o seguinte:

If (Not IsNull(DLookup("[Id_Cliente_Vendas]", "Tabela_Vendas", _
"[Id_Cliente_Vendas] LIKE'" & Me!Id_Cliente_Vendas & "'"))) And (Not IsNull(DLookup("[Data_Venda]", "Tabela_Vendas", _
"[Data_Venda] LIKE'" & Me!Data_Venda & "'"))) Then
MsgBox "Este cliente já possui uma comanda para este dia. Não há necessidade de abrir uma comanda nova.", _
vbInformation, "Cliente já possui comanda"
DoCmd.Close
End If



porém notei a incosistência nesse meu código, pois na verdade ele está checando se o COD_CLIENTE existe E se a DATA existe... e não se a DATA existe naquele determinado CLIENTE...


não sei se fui claro..

abraços

[Filipe Martins]

RESOLVIDO:


If (Not IsNull(DLookup("[Id_Cliente_Vendas]", "Tabela_Vendas", _
"[Id_Cliente_Vendas] & [Data_Venda] LIKE'" & Me!Id_Cliente_Vendas & Me!Data_Venda & "'"))) Then
MsgBox "Este cliente já possui uma comanda para este dia. Não há necessidade de abrir uma comanda nova.", _
vbInformation, "Cliente já possui comanda"
DoCmd.Close
End If


Botei os 2 campos dentro do mesmo DLookup (não sabia q dava... )

abraços a todos
valeuu