MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Dlast com dois Critérios

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 662
    Registrado : 11/12/2017

    [Resolvido]Dlast com dois Critérios Empty [Resolvido]Dlast com dois Critérios

    Mensagem  Ismael Silva em 31/10/2020, 17:18

    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.
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 82
    Registrado : 08/12/2010

    [Resolvido]Dlast com dois Critérios Empty Re: [Resolvido]Dlast com dois Critérios

    Mensagem  bacano em 31/10/2020, 19:32

    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
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 662
    Registrado : 11/12/2017

    [Resolvido]Dlast com dois Critérios Empty Re: [Resolvido]Dlast com dois Critérios

    Mensagem  Ismael Silva em 31/10/2020, 19:49

    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.

    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 82
    Registrado : 08/12/2010

    [Resolvido]Dlast com dois Critérios Empty Re: [Resolvido]Dlast com dois Critérios

    Mensagem  bacano em 1/11/2020, 06:43

    Ola Ismael, bom dia

    para percebermos melhor anexa parte do ficheiro

    Abraço
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 28/10/2010

    [Resolvido]Dlast com dois Critérios Empty Re: [Resolvido]Dlast com dois Critérios

    Mensagem  zcarloslopes em 5/11/2020, 12:16

    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 & "#")
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 662
    Registrado : 11/12/2017

    [Resolvido]Dlast com dois Critérios Empty Re: [Resolvido]Dlast com dois Critérios

    Mensagem  Ismael Silva em 5/11/2020, 14:17

    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?
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 28/10/2010

    [Resolvido]Dlast com dois Critérios Empty Re: [Resolvido]Dlast com dois Critérios

    Mensagem  zcarloslopes em 5/11/2020, 14:48

    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...
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 662
    Registrado : 11/12/2017

    [Resolvido]Dlast com dois Critérios Empty Re: [Resolvido]Dlast com dois Critérios

    Mensagem  Ismael Silva em 6/11/2020, 12:47

    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.

      Data/hora atual: 4/12/2020, 10:59