Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...