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] Preciso aprimorar uma filtragem.

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 12:21

    Bom dia.

    Preciso aprimorar uma filtragem.

    Dim filtro as Date
    Dim strFilter As String

    filtro = "DataAtendimento between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
    If Len(Me.CboDentista & "") > 0 Then
    strFilter = strFilter & " AND DentistaOculta ='" & Me.CboDentista.Column(0) & "'" And filtro
    End If

    Preciso que se faça o filtro strfilter juntamente com o filtro filtro, mas não acontece isso conforme o que está feito acima.

    Obrigado.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Noobezinho em 9/1/2018, 12:40

    Olá Silvio

    Tudo bem, companheiro.

    Como é uma consulta seleção, você pode fazer diretamente na grade da consulta.

    E quando a consulta estiver fufando, pode clicar no Botão SQL da consulta e pegar o a sentença SQL dela e utilizar no VBA.


    [ ]'s





    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 12:47

    Grande Noobezinho, prazer em revê-lo por essas bandas

    Não é consulta, mas sim uma combobox ( CboDentista ) com duas caixas de textos ( DI e DF ) filtrando formulário continuo.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Noobezinho em 9/1/2018, 13:39

    Pois então, meu amigo

    Faça uma consulta utilizando esses parâmetros como origem de registro do formulário continuo

    Utilize um form principal para a combo e as textboxes DI e DF e um subform para o form contínuo.

    utilize um botão para quando clicar ele povoar o form contínuo com os dados retornado.

    O botão só irá retornar resultados se houver dados para executar a consulta.

    Qualquer dúvida,  disponibilize as tabelas e forms afins, com no máximo 2 registros.

    [ ]'s
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  ahteixeira em 9/1/2018, 14:30

    Olá a  todos,

    Noob, folgo em o ver por cá  Very Happy , andou desaparecido!

    Silvio, a variável fitro não pode ser do tipo Date deve ser String para os dados apresentados, teste assim:

    Código:
    Dim filtro As String 'não pode ser tipo date
    Dim strFilter As String

        filtro = "[DataAtendimento] between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
        
        If Len(Me.CboDentista & "") > 0 Then
            strFilter = strFilter & " AND DentistaOculta ='" & Me.CboDentista.Column(0) & "'" And filtro
        Else
            strFilter = filtro
        End If

    Abraço a todos
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 16:01

    Alvaro, a linha...
    filtro = "[DataAtendimento] between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"

    Não produziu efeito esperado, mostra ainda datas fora do intervalo escolhido de Di e DF.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  ahteixeira em 9/1/2018, 16:04

    Olá, não vi o codigo todo

    Silvio tem que ficar de "olho vivo", teste assim:

    Código:
    Dim filtro As String 'não pode ser tipo date
    Dim strFilter As String

        filtro = "[DataAtendimento] between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
        
        If Len(Me.CboDentista & "") > 0 Then
            strFilter = filtro  & " AND DentistaOculta ='" & Me.CboDentista.Column(0) & "'"
        Else
            strFilter = filtro
        End If

    Abraço

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Noobezinho em 9/1/2018, 16:13

    Silvio

    Experimente direto:

    filtro = "[DataAtendimento] between Forms!NOMEDOFORM!DI AND Forms!NOMEDOFORM!DF"

    [ ]'s
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 16:26

    Sim Alvaro, eu estou atento sim....já tinha feito a mudança de Date para String antes de testar o que me passou.

    Noobezinho, ainda sem o efeito desejado. Tando do seu modo ( direto ) como do Álvaro ainda mostra datas fora do período escolhido em FI e DF.

    A luta continua aqui.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 16:40

    Noob...

    Código:
    Pois então, meu amigo

    Faça uma consulta utilizando esses parâmetros como origem de registro do formulário continuo

    Utilize um form principal para a combo e as textboxes DI e DF e um subform para o form contínuo.

    utilize um botão para quando clicar ele povoar o form contínuo com os dados retornado.

    O botão só irá retornar resultados se houver dados para executar a consulta.

    Qualquer dúvida,  disponibilize as tabelas e forms afins, com no máximo 2 registros.

    [ ]'s

    Não posso lhe passar, pois contém dados reais, mas se desejar entrar nessa luta, posso lhe passar um link com um vídeo explicando como precisa ficar.

    O desafio é grande...


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  ahteixeira em 9/1/2018, 16:42

    Olá Silvio,
    Teste com o código da mensagem nº 7, tem alteração em relação à 5.

    Abraço a todos
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 16:55

    Alvaro....testei e nada, ainda mostra resultados fora do intervalo


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  ahteixeira em 9/1/2018, 17:00

    Olá, em que parte esta a falhar, datas?
    Dentista?

    Abraço
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 17:21

    Datas....ele pega o dentista corretamente, mas mostra datas fora do intervalo especificado em DI e DF


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Noobezinho em 9/1/2018, 17:23

    Acredito que você possa colocar dois registros fictícios para a gente poder analisar.

    [ ]'s
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 17:41

    Noob, até posso, mas envolve muita coisa ..não apenas dois registros, vão muito mais que isso. Há várias entidades envolvidas nesse Frm.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Noobezinho em 9/1/2018, 17:48

    Pena Silvio

    Sinto não poder ajudar melhor
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  FabioPaes em 9/1/2018, 17:50

    olá silvio! Esse Tópico não seria o mesmo desse?
    [Você precisa estar registrado e conectado para ver este link.]

    Se for, por favor de seguimento a ele ou avisa para juntar ambos.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 17:50

    Noob, lhe mandei uma msg em PVT


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  ahteixeira em 9/1/2018, 17:59

    Olá a todos,

    Silvio, vamos lá despistar então:

    1) No código que postou não vejo a invocar o acçao para filtrar, mostre mais código.
    2) Já tentou colocar só o intervalo de datas e verificar se está a fazer o filtro
    3) Verifique em que evento está a chamar e via debug.print ou depurar o que está a fazer.

    Abraço a todos
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 9/1/2018, 18:00

    Alvaro...farei isso agora.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 10/1/2018, 16:22

    Fábio escreveu:olá silvio! Esse Tópico não seria o mesmo desse?
    [Você precisa estar registrado e conectado para ver este link.]

    Se for, por favor de seguimento a ele ou avisa para juntar ambos.


    Rotinas diferentes, porém quase semelhantes em um mesmo formulário.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  Silvio em 19/1/2018, 18:36

    Resolvido com a rotina da mensagem 7


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Preciso aprimorar uma filtragem.

    Mensagem  ahteixeira em 20/1/2018, 18:28

    Olá a todos,

    Silvio, está provado que vários filtros num único form, além de ter que estar bem estruturado exige bastante código e atenção.
    Obrigado pelo retorno, o fórum agradece.

    Abraço a todos

      Data/hora atual: 19/12/2018, 16:21