[Resolvido] Como fazer 2 Condições DLookup

[Filipe Martins 1]

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 1]

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... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif )

 

abraços a todos

valeuu