[Resolvido]Pesquisa-EntreDatas no subformulário

Olá a todos !
Preciso de um favor dos demais.
No campo da Data Inicial tenho o seguinte critério:

Código:

Entre [Formulários]![frmBaixas]![DataInicial] E [Formulários]![frmBaixas]![DataFinal]

No subformulário tenho duas Caixas de Texto ( campos ) DI e DF e um botão ( Filtrar ) com o seguinte código:

Código:

Dim Filtro As String
Filtro = "DataInicial between #" & DI & "# and #" & DF & "#"
Me.Filter = Filtro
Me.FilterOn = True
Me.Requery

Boa tarde,

Do jeito que está, você está filtrando apenas o campo DataInicial. Altere o trecho Filtro = "DataInicial between #" & DI & "# and #" & DF & "#" por:

Código:

Filtro = "DataInicial = #" & DI & "# and DataFinal = #" & DF & "#"

Abraço.

Olá Cassio, em primeiro lugar obrigado, executei o que me disse, mas não filtra:

Código:

Private Sub Filtrar_Click()
Dim Filtro As String
Filtro = "DataInicial = #" & DI & "# and DataFinal = #" & DF & "#"
Me.Filter = Filtro
Me.FilterOn = True
Me.Requery
End Sub

Eu acho que tem haver por ser um formulário a chamar um subformulário, deveria estar a atualizar o subformulário, mas não estou a conseguir efetuar este passo. Obrigado uma vez mais.

Boa tarde,

No subformulário tenho duas Caixas de Texto ( campos ) DI e DF e um botão ( Filtrar ) com o seguinte código:

O botão e os campos de data estão no formulário ou no sub-formulário? Caso estejam no formulário principal, escreva o código como abaixo:

Código:

Private Sub Filtrar_Click()
Dim Filtro As String
Filtro = "DataInicial = #" & DI & "# and DataFinal = #" & DF & "#"
Me.SeuSubForm.Filter = Filtro
Me.SeuSubForm.FilterOn = True
End Sub

Abraço.

Senhores, me permita... So lembrando os amigos da necessidade de formatarmos a data para o padrão Americano "mm/dd/yyyy" na hora de construir o Filtro... Pode ser que seja esse o problema!

Boa tarde,

FabioPaes tem absoluta razão:

Código:

Private Sub Filtrar_Click()
Dim Filtro As String
Filtro = "DataInicial = #" & format(DI, "mm/dd/yyyy") & "# and DataFinal = #" & format(DF, "mm/dd/yyyy") & "#"
Me.SeuSubForm.Filter = Filtro
Me.SeuSubForm.FilterOn = True
End Sub

Abraço.

Olá Cássio
Os campos de Data estão no subformulário. Irei tentar assim :

Código:

Private Sub Filtrar_Click()
Dim Filtro As String
Filtro = "DataInicial = #" & format(DI, "mm/dd/yyyy") & "# and DataFinal = #" & format(DF, "mm/dd/yyyy") & "#"
Me.Filter = Filtro
Me.FilterOn = True
Me.Requery
End Sub

Na linha colocarei como o Fábio disse e você confirmou. Logo que chegue a casa irei testar e respondo para vocês.

Olá, sem êxito, em qualquer uma das formas apresentadas.

Pergunta: DataInicial é o nome do campo da tabela?

Se quer pesquisar entre datas, por um único campo como por exemplo DataVenda...
Deverá ser assim:


Filtro = "DataVenda= #" & format(DI, "mm/dd/yyyy") & "# and #" & format(DF, "mm/dd/yyyy") & "#"


Posta aqui o seu Exemplo e nos mostre como chegar a esse relatorio!

Código:

Entre [Formulários]![frmtabBaixas]![DataInicial] E [Formulários]![frmtabBaixas]![DataFinal]

No botão para filtrar por datas

Código:

Private Sub Filtrar_Click()
Dim Filtro As String
Filtro = "DataInicial = #" & format(DI, "mm/dd/yyyy") & "# and DataFinal = #" & format(DF, "mm/dd/yyyy") & "#"
Me.Filter = Filtro
Me.FilterOn = True
Me.Requery
End Sub

Anexo não veio!

Olá, Fábio, sinceramente não tinha reparado que tinha solicitado.
Peço desculpa ! Segue em anexo exemplo do bd ( parte do mesmo )

Bom dia,

Com a licença do amigo Fabio, retire o trecho Entre [Formulários]![frmBaixas]![DataInicial] E [Formulários]![frmBaixas]![DataFinal] da consulta do subformulário e funcionará perfeitamente. Só faça as correções de design e exibição de acordo com o que precisa.

Abraço.

Olá Cássio, mas não funciona, peço desculpa, mas já tinha retirado para testar.
No entanto após retirar o critério:

Código:

Entre [Formulários]![frmBaixas]![DataInicial] E [Formulários]![frmBaixas]![DataFinal]

Bom dia,

Sim, funciona corretamente. Fiz algumas alterações e estou enviando um modelo em anexo.

Quando voce abre o seu formulário principal, no evento Ao Carregar você colocou para ir a um novo registro. Como você vinculou o form ao subformulário para mostrar, no subform, os eventos relativos ao registro selecionado no form principal, você tem que selecionar um registro no form principal e ter o retorno no subform do eventos referente, depois disso você pode aplicar o filtro que funcionará perfeitamente.

Alterei a sintaxe da string filtro. Veja como ficou.

Abraço.

CassioFabre escreveu:Com a licença do amigo Fabio,...

Amigo, sempre podemos responder a um tópico que ja esta sendo acompanhado por outra pessoas! Isso aumenta o nível de conhecimento e facilita o aprendizado! Sintam-se a vontade para responder em qualquer tópico que esteja acompanhando!!!

Deu certo sim. Obrigado Cássio e ao Fábio também, obrigado pela vossa ajuda.
Sucesso a todos.