MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Pesquisa entre datas

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty [Resolvido]Pesquisa entre datas

    Mensagem  toyebom 16/2/2014, 00:12

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 16/2/2014, 10:42

    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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 16/2/2014, 14:45

    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.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 19/2/2014, 03:51

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 20/2/2014, 02:43

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 20/01/2013

    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  João Ricardo 20/2/2014, 03:36

    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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 21/2/2014, 13:27

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 21/2/2014, 20:35

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 22/2/2014, 15:59

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

    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 22/2/2014, 16:00

    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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 22/2/2014, 17:17

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 23/2/2014, 18:56

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 24/2/2014, 19:09

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 26/2/2014, 01:13

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 28/2/2014, 19:55

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 1/3/2014, 00:40

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

    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 1/3/2014, 20:14

    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.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 4/3/2014, 18:24

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 7/3/2014, 13:21

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 8/3/2014, 19:02

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 8/3/2014, 20:03

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 10/3/2014, 02:19

    Adoro teus Up's  lol!  lol!  lol! 

    É 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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 10/3/2014, 22:57

    Ainda bem que gostas  lol! lol! lol! 


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 10/3/2014, 23:18

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

    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 11/3/2014, 00:48

    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.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 11/3/2014, 00:58

    [Resolvido]Pesquisa entre datas 1zzhv6u


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 24/3/2014, 21:59

    Resolveste?


    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 24/3/2014, 22:05

    ainda não.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 5/4/2014, 00:57

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

    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 4/5/2014, 04:12

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 15/5/2014, 03:19

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 15/5/2014, 22:40

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Convidado
    Convidado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Convidado 16/5/2014, 12:15

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

    Vou tentar fazer isto hoje.

    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 16/5/2014, 19:07

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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 19/5/2014, 00:18

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 27/5/2014, 00:08

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 2/7/2014, 04:05

    up


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 22/7/2014, 20:50

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 7/8/2014, 23:54

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 8/8/2014, 20:49

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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas com relatório aberto

    Mensagem  toyebom 8/9/2014, 13:03

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Alexandre Neves 8/9/2014, 14:13

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 9/9/2014, 23:59

    Tenta as teclas shift + Enter


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 15/9/2014, 03:08

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 15/9/2014, 22:26

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 16/9/2014, 18:24

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Pesquisa entre datas Empty Pesquisa entre datas

    Mensagem  toyebom 17/9/2014, 00:45

    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 Razz

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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Conteúdo patrocinado


    [Resolvido]Pesquisa entre datas Empty Re: [Resolvido]Pesquisa entre datas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:27