MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Pesquisa entre datas

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Pesquisa entre datas

    Mensagem  toyebom em Dom 16 Fev 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
    Anexos
    teste_1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.4 Mb) Baixado 49 vez(es)


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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Dom 16 Fev 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Dom 16 Fev 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Qua 19 Fev 2014, 03:51

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Qui 20 Fev 2014, 02:43

    UP


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

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  João Ricardo em Qui 20 Fev 2014, 03:36

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

    Baixe aqui

    A pesquisa foi feita no site [Você precisa estar registrado e conectado para ver este link.]
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sex 21 Fev 2014, 13:27

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sex 21 Fev 2014, 20:35

    UP


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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Sab 22 Fev 2014, 15:59

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

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Sab 22 Fev 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sab 22 Fev 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
    Anexos
    teste_1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 47 vez(es)


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Dom 23 Fev 2014, 18:56

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Seg 24 Fev 2014, 19:09

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Qua 26 Fev 2014, 01:13

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sex 28 Fev 2014, 19:55

    UP


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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Sab 01 Mar 2014, 00:40

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

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sab 01 Mar 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Ter 04 Mar 2014, 18:24

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sex 07 Mar 2014, 13:21

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sab 08 Mar 2014, 19:02

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sab 08 Mar 2014, 20:03

    UP


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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Seg 10 Mar 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Seg 10 Mar 2014, 22:57

    Ainda bem que gostas  lol! lol! lol! 


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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Seg 10 Mar 2014, 23:18

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

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Ter 11 Mar 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Ter 11 Mar 2014, 00:58

    [Você precisa estar registrado e conectado para ver esta imagem.]


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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Seg 24 Mar 2014, 21:59

    Resolveste?


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Seg 24 Mar 2014, 22:05

    ainda não.


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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Sab 05 Abr 2014, 00:57

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

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Dom 04 Maio 2014, 04:12

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Qui 15 Maio 2014, 03:19

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Qui 15 Maio 2014, 22:40

    UP


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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  HARYSOHN em Sex 16 Maio 2014, 12:15

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

    Vou tentar fazer isto hoje.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sex 16 Maio 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Seg 19 Maio 2014, 00:18

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Ter 27 Maio 2014, 00:08

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Qua 02 Jul 2014, 04:05

    up


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Ter 22 Jul 2014, 20:50

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Qui 07 Ago 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Sex 08 Ago 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas com relatório aberto

    Mensagem  toyebom em Seg 08 Set 2014, 13:03

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

    Caso alguem possa ajudar, agradeço

    [Você precisa estar registrado e conectado para ver este link.]

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  Alexandre Neves em Seg 08 Set 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Ter 09 Set 2014, 23:59

    Tenta as teclas shift + Enter


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Seg 15 Set 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Seg 15 Set 2014, 22:26

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Ter 16 Set 2014, 18:24

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Pesquisa entre datas

    Mensagem  toyebom em Qua 17 Set 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.

      Data/hora atual: Ter 06 Dez 2016, 05:44