[Resolvido] Preciso aprimorar uma filtragem.

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.

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

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.

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

Olá a  todos,

Noob, folgo em o ver por cá   , 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

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.

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

Silvio

Experimente direto:

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

[ ]'s

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.

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

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

Abraço a todos

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

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

Abraço

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

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

[ ]'s

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.

Pena Silvio

Sinto não poder ajudar melhor

olá silvio! Esse Tópico não seria o mesmo desse?
https://www.maximoaccess.com/t32206-multiplos-filtros-ao-clicar-em-um-botao-formulario-continuo

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

Noob, lhe mandei uma msg em PVT

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

Alvaro...farei isso agora.

Fábio escreveu:olá silvio! Esse Tópico não seria o mesmo desse?
https://www.maximoaccess.com/t32206-multiplos-filtros-ao-clicar-em-um-botao-formulario-continuo

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

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

Resolvido com a rotina da mensagem 7

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