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

    [Resolvido]Pesquisa entre datas

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    João Ricardo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 526
    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

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

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    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
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 876
    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 21 Nov 2017, 12:11