[Resolvido]Pesquisa entre datas

Tenho um formulário com várias pesquisas que me filtram um relatório

o problema é alterar o código para alem dos filtros que faz me filtre também entre datas

Junto o bd

O que necessita codificar é a parte laranja do formulário com a data inicial e data final e que funcione também com os outros filtros

Código que utilizo no botão Filtrar

Código:

Private Sub Command28_Click()
Dim strSQL As String, intCounter As Integer
    'Build SQL String
    For intCounter = 1 To 9
        If Me("Filter" & intCounter) <> "" Then
            If Me("Filter" & intCounter).Tag = "Dia" Then
                strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = #" & Format(Me("Filter" & intCounter), "mm/dd/yyyy") & "# And "
            Else
                strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
            End If
      End If
    Next

    If strSQL <> "" Then
        'Strip Last " And "
        strSQL = Left(strSQL, (Len(strSQL) - 5))
        'Set the Filter property
        Reports![NUIPCSREG_38].Filter = strSQL
        Reports![NUIPCSREG_38].FilterOn = True
    Else
        Reports![NUIPCSREG_38].FilterOn = False
    End If
End Sub

Não testei.. mas é por aqui:

Dim strSQL As String, intCounter As Integer
     'Build SQL String
     For intCounter = 1 To 9
        If Me("Filter" & intCounter) <> "" Then
            If Me("Filter" & intCounter).Tag = "Dia" Then
                strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = #" & Format(Me("Filter" & intCounter), "mm/dd/yyyy") & "# And "
            ElseIf Me("Filter" & intCounter).Tag = "Filter10" Then
                strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = #" & Format(Me("Filter" & intCounter), "mm/dd/yyyy") & "# And " _
                        & " Hora >= #" & Me.Filter10 & "# And Hora <= #" & Me.Filter11 & "# And "
            Else
                strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
            End If
       End If
     Next

     If strSQL <> "" Then
        'Strip Last " And "
        strSQL = Left(strSQL, (Len(strSQL) - 5))
        'Set the Filter property
        Reports![NUIPCSREG_38].Filter = strSQL
        Reports![NUIPCSREG_38].FilterOn = True
     Else
        Reports![NUIPCSREG_38].FilterOn = False
     End If

Cumprimentos.

Não funciona.
Se pesquiso a mesma data no inicio e no fim funciona mas se coloco a data de inicio diferente da data de fim não devolve pesquisa.

UP

UP

Olá, veja se se ajuda o conteúdo abaixo

Baixe aqui

A pesquisa foi feita no site http://www.fmsinc.com/microsoftaccess/query/crosstab-report/index.html
Esse arquivo me ajudou a resolver o problema de pesquisa por datas, mas a partir de um formulário onde insiro as datas.

O formulário é filtrado através de uma consulta, o que, até o momento não é o seu caso, mas talvez possa adaptar.

UP

UP

Não compreendi.. Envie o bd com a modifcação e forneça mais detalhes.

Cumprimentos.

De exemplo de duas datas (Início e fim) e fale qual resultado deveria ser exibido.. (Poste o bd com o código adaptado)


Cumprimentos.

Ok Harrison segue a bd

Os filtros que não funcionam são os que estão no fundo a amarelo

se colocar a data de inicio igual á final funciona mas se a data de inicio for diferente da final filtra para zero registos

UP

UP

UP

UP

Atente à mensagem de número 10 e responda ao que perguntei..

Cumprimentos.

Harrison a bd já a coloquei na mensagem 11 com o código que me passaste na mensagem 2

Quero por exemplo pesquisar entre 01-01-2014 e 20-01-2014 utilizando ainda a pesquisa das outras listas como o crime e a morada.


Como disse antes com o teu código na mensagem 2 só funciona se a data inicio for igual á fim tipo: Inicio 02-01-2014 Fim 02-01-2014.
Se for data diferente inicio e fim já não filtra tipo: Inicio 02-01-2014 Fim 08-02-2014.

Já me ajudaste antes nos filtros desta bd tudo funciona mas os novos campos que coloquei não funcionam.

O campo ano quando preenchido bloqueia o campo data e o campo data inicio e data fim para não escrever.
O campo data quando preencho bloqueia o campo ano e o campo data inicio e data fim para não escrever.
O campo data inicio e data fim quando preencho bloqueia o ano e o data só que não filtra.

O critério era que escolhesse duas datas (inicio e fim) e pudesse escolher também os filtros de crime e local e me aparecesse todos os registos correspondentes a esses critérios entre a data inicio e fim sendo cada filtro opcional.

UP

UP

UP

UP

Adoro teus Up's       

É a forma correta de avisar.. Ei olha eu aqui!!!  rsrs

Bem amigo.. Hoje estou um pouco cansado.. Mas amanha verei este tópico.

Tenha uma ótima noite..

Abraços.

Ainda bem que gostas     

Refresque-me a memória da maneira mais clara possível.

Cumprimentos.

Como disse na mensagem 17
Quero pesquisar por exemplo entre o dia 29/12/2013 e o dia 05/01/2014 o NUIPC GDABF de Furto em veículo motorizado no Parque de Estacionamento, Praia da falesia, Lisboa e ao aplicar o filtro aparecer-me só esses registos.

O codigo que me deste funciona em todos os filtros menos nos filtros entre datas que coloquei na bd com fundo amarelo.
Com o teu codigo esses campos funcionam se data inicio for igual a data fim se for diferente já não funciona.

Resolveste?


Cumprimentos.

ainda não.

Desculpe amigão, tenho andado aterefado... Amanha tento resolver este.

Cumprimentos.

UP

UP

UP

To pisando na bola com este tópico não é amigão?

Vou tentar fazer isto hoje.

Cumprimentos.

Não tem problema Harysohn quando puderes agradeço.

UP

UP

up

UP

Peço desculpa pela insistencia.
É o ultimo UP que fasso visto parecer que ninguem consegue resolver, amanhã fecho o tópico.
Obrigado a todos os que tentaram ajudar.
Ok aqui vai:

UP

Novamente obrigado a todos.
Já que não foi possivel resolver fecho.

Não sei o que aconteceu mas a minha mensagem desapareceu do forum.

Caso alguem possa ajudar, agradeço

http://maximoaccess.forumeiros.com/t17512-resolvidopesquisa-entre-datas

Boa tarde,
A confirma que a mensagem não desapareceu é que criou hiperligação.
Uni à dúvida original
Sobre a bd, bloqueia ao abrir

Tenta as teclas shift + Enter

Ok Refiz o código, o filtro entre datas já funcional, o problema é que agora os outros filtros não funcionam com os Filter10 e Filter11

Private Sub Command28_Click()
Dim strSql As String, intCounter As Integer
'Build SQL String
For intCounter = 1 To 11
If Me("Filter" & intCounter) <> "" Then
If Not IsNull(Me.Filter10) And Not IsNull(Me.Filter11) Then
DoCmd.OpenReport "NUIPCSREG_38", acViewPreview, , "Dia >= #" & Format(Me!Filter10, "mm/dd/yyyy") & "#" _
& " And Dia <= #" & Format(Me!Filter11, "mm/dd/yyyy") & "#"
DoCmd.OpenForm "frmFilter", acNormal
Else
strSql = strSql & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
End If
End If
Next

If strSql <> "" Then
'Strip Last " And "
strSql = Left(strSql, (Len(strSql) - 5))
'Set the Filter property
DoCmd.OpenReport "NUIPCSREG_38", acViewPreview
Reports![NUIPCSREG_38].Filter = strSql
Reports![NUIPCSREG_38].FilterOn = True
DoCmd.OpenForm "frmFilter", acNormal
Else
DoCmd.OpenReport "NUIPCSREG_38", acViewPreview
Reports![NUIPCSREG_38].FilterOn = False
DoCmd.OpenForm "frmFilter", acNormal
End If
End Sub

UP

UP

Ok após vários UPs consegui resolver por tentativa e erro, ficou assim:

Código:

Private Sub Command28_Click()
Dim strSQL As String, intCounter As Integer
     'Build SQL String
     For intCounter = 1 To 11
        If Me("Filter" & intCounter) <> "" Then
            If Me("Filter" & intCounter).Tag = "Dia" Then
                strSQL = strSQL & " Dia >= #" & Format(Me!Filter10, "mm/dd/yyyy") & "#" _
                & " And Dia <= #" & Format(Me!Filter11, "mm/dd/yyyy") & "# And "
            Else
                strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
            End If
       End If
     Next

     If strSQL <> "" Then
        'Strip Last " And "
        strSQL = Left(strSQL, (Len(strSQL) - 5))
        'Set the Filter property
        Reports![NUIPCSREG_38].Filter = strSQL
        Reports![NUIPCSREG_38].FilterOn = True
     Else
        Reports![NUIPCSREG_38].FilterOn = False
     End If
End Sub

O Codigo tinha eventos repetidos

Obrigado a todos os que tentaram ajudar, deixo o codigo pode ser que ajude alguem.