[Resolvido]Dlast com dois Critérios

Boa tarde,

Estou utilizando o código abaixo no campo Descrição, em um subformulário, com o intuito de trazer no Campo Ultima_Entrega, a última data que eu entreguei um material para um funcionário. Ex:

Após selecionar um item para o Funcionário Pedro, quero no campo Ultima entrega, me traga a data que eu entreguei esse item para esse funcionário, e caso não tenha entregue, que o campo fique em branco.



[Ultima_Entrega] = DLast("[Data_Saida_Det]", "Tabela_Saidas_Det", "[Desc_Saida]='" & [Desc_Saida] & "' and Nome_Recebedor='" & Me!Nome_Recebedor1 & "'")


Obrigado.

Boa noite Ismael

vê se e isto

Código:

Me.Ultima_Entrega = DLast("[Data_Saida_Det]", "Tabela_Saidas_Det", "[Desc_Saida] & [Nome_Recebedor] =  """ & Me.Desc_Saida & Me.Nome_Recebedor1 & """")

Abraço

Boa tarde Bacano,

Ainda não, pois no subformulário ele está obedecendo apenas o primeiro registro, quando eu seleciono, no caso SAPATO 40, sim, ele me diz que a última vez que eu entreguei para o Funcionário selecionado, foi em 29/10, ok, está correto, mas se eu seguir selecionando mais itens para esse mesmo funcionário, ele me trás a data atual no campo Ultima entrega, ou seja, só está obedecendo o primeiro lançamento.

Ola Ismael, bom dia

para percebermos melhor anexa parte do ficheiro

Abraço

Bom dia Ismael,

Segue um exemplo com um mix de critérios:

Criterio1 -> Numero

Criterio2 -> String

Criterio3 -> Data

Substitua para o seu propósito.

Código:

Me.MeuCampo = DLast("FieldName", "TableName", "Criterio1 = " & Forms!FormName!Control1 & " AND Criterio2 = '" & Forms!FormName!Control2 & "' AND Criterio3 =#" & Forms!FormName!Control3 & "#")

zcarloslopes, bom dia,

A princípio deu certo, porém agora me deparei com o seguinte, a partir dos testes que fiz. No meu subformulário, quando lanço por exemplo, nome X, e o item Y que ele pegou(1º linha de lançamento do subform), está aparecendo a data da última vez que esse nome X pegou o item Y, ok, porém se eu colocar novamente o mesmo item Y, para o mesmo nome X, no mesmo lançamento(2ª Linha do subform), aparece a data atual, como sendo a última vez, porém eu nem salvei o registro ainda. Entendo que o correto, seria ele me trazer a mesma data, ou seja, duplicaria a data, considerando que não teria salvo ainda o registro. Tem como impedir isso?

Teria que ter acesso à sua DB para ver o que se passa.

Mas se não está dando erro, o provável é que não esteja a acertar nos critérios que escolheu...

Mas pode fazer o teste do que o DLast está a procurar..

Tente algo parecido com:

Código:

Dim teste As String
teste = DLast("....
MsgBox teste

E assim vai vendo o que retoma, pode ser que encontre onde está a falhar...

zcarloslopes, bom dia

Eu vou fazer os testes aqui, no entanto vou colocar como resolvido, pois de um modo geral atendeu o que eu queria.

Muito obrigado à todos pela a ajuda.