MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Dlookup em data completa - DMax e DMin mês e ano

    Compartilhe

    Newby
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/09/2016

    Dlookup em data completa - DMax e DMin mês e ano

    Mensagem  Newby em 8/3/2018, 00:44

    Amigos do fórum
    Tenho uma tabela que tem um campo com data completa no seguinte formato dd/mm/yyyy hh/mm/ss
    A questão é que nesse formato o dlookup não esta achando e quando tento utilizar um format não funciona da erro, alguem pode dar uma luz e me ajudar, onde estou errando?

    Nz(DLookup("Identificacao", "tabelaAtual", Format([DataCompleta], "dd/mm/yyyy") = Me.textDate & ""), 0)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5275
    Registrado : 15/03/2013

    Re: Dlookup em data completa - DMax e DMin mês e ano

    Mensagem  ahteixeira em 8/3/2018, 08:43

    Olá Elias,

    Tente usar o CDate em Me.textDate

    Cdate(Me.textDate)

    Se não der tente sem o Format

    Abraço

    Newby
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/09/2016

    Re: Dlookup em data completa - DMax e DMin mês e ano

    Mensagem  Newby em 8/3/2018, 10:23

    na verdade já tentei de diversas maneiras, vou postar para poderem acompanhar meu progresso.
    Anexos
    BD localiza por data.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 6 vez(es)
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3461
    Registrado : 04/04/2010

    Re: Dlookup em data completa - DMax e DMin mês e ano

    Mensagem  Avelino Sampaio em 8/3/2018, 11:18

    Olá!

    experimente:

    Localizado = Nz(DLookup("Identificacao", "tblAtual", "format(DataEntrada,'short date') = #" & Format(Me.txtDate, "mm/dd/yyyy") & "#"), 0)


    Sucesso!

    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 63
    Registrado : 27/10/2013

    Re: Dlookup em data completa - DMax e DMin mês e ano

    Mensagem  cpampas em 8/3/2018, 11:27

    ola Colegas,

    Tente assim :

    Código:
    Localizado = DLookup("Identificacao", "tblAtual", "DataEntrada >= #" & Format(Me.txtDate, "mm/dd/yyyy") & "# AND Identificacao < #" & DateAdd("d", 1, Me.txtDate) & "#")

    Newby
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/09/2016

    Re: Dlookup em data completa - DMax e DMin mês e ano

    Mensagem  Newby em 8/3/2018, 22:18

    Nossa funcionou muito bem nos 2 casos, muito obrigado carlos e Avelino.
    Acho que sozinho não iria chegar a essas conclusões, muito obrigado mesmo.

    Até a proxima

    Newby
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/09/2016

    Re: Dlookup em data completa - DMax e DMin mês e ano

    Mensagem  Newby em 9/3/2018, 06:33

    Galera, na verdade, tentei adaptar e vi que o processo total fica muito lento,
    Acho que a melhor solução seria colocar um loop mas tentei adaptar as linhas mas em nenhum dos casos consegui.

    Preciso agora na verdade que me apresente apenas o mês/ano.
    A intenção é filtrar o primeiro registro com o mês/ano, e o ultimo "Dim Primeiro, Ultimo As String" depois vou fazer um loop com os registros entre esses dois e achar os valores que preciso.
    Acredito que vai diminuir muito a lentidão, ao invés de percorrer tudo varias vezes vai percorrer 2 vezes e os seguintes serão mais rápidos pois a quantidade sera menor.

    Infelizmente ao tentar adaptar sempre me é gerado erro, ou não apresenta resultado ou apenas o primeiro registro.

    Nz(DFirst("Identificacao", "tblAtual", "format(DataEntrada, 'mm/yyyy') = #" & Format(Me.txtDate, "mm/yyyy") & "#"), 0)
    DFirst("Identificacao", "tblAtual", "DataEntrada >= #" & Format(Me.txtDate, "mm/yyyy") & "# AND Identificacao < #" & DateAdd("m", 1, Me.txtDate) & "#")


    Espero contar novamente com a ajuda.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5275
    Registrado : 15/03/2013

    Re: Dlookup em data completa - DMax e DMin mês e ano

    Mensagem  ahteixeira em 9/3/2018, 12:36

    Olá Elias,

    Não devemos misturar questões as respostas dos colegas atenderam para a questão do título do tópico.

    No entanto, veja se é isto que pretende:
    Código:
    Private Sub Comando0_Click()

    Dim strMin, strMax As String
       
        strMin = Nz(DMin("[Identificacao]", "tblAtual", "Year([DataEntrada]) = " & Year(Me.txtDate) & " AND Month([DataEntrada]) = " & Month(Me.txtDate)), "Não existe registo")
        strMax = Nz(DMax("[Identificacao]", "tblAtual", "Year([DataEntrada]) = " & Year(Me.txtDate) & " AND Month([DataEntrada]) = " & Month(Me.txtDate)), "Não existe registo")

        MsgBox "Mínimo : " & strMin & vbCrLf & vbCrLf & "Maximo : " & strMax & vbCrLf, vbInformation, "Identificação"
       
    End Sub

    Teste com o exemplo que disponibilizou, não se esqueça de ajustar os registos para obter resultados.

    Abraço a todos

    ----
    Nota: Ajustei o título do tópico para pesquisas no fórum.

      Data/hora atual: 17/7/2018, 01:20