Filtro entre Datas

Ola pessoal, peço por gentileza uma ajuda dos nobres colegas,

a questão é a seguinte preciso filtrar datas, como faço para que os campos em amarelo eu digite a data entre eles
e ele filtre o subform que esta baixo, se for o caso podemos colocar as datas neles e um botão ao lada para que no evento "ao clicar"
ele filtre o subform abaixo

Desde já agradeço pela atenção dispensada !

Meus amigos consegui fazer o filtro agora coloquei um botão para imprimir, mais ao invés dele imprimir os dados filtrados
ele esta imprimindo todos os registros da tabela, algum poderia me ajudar por gentileza ?

Já tentei todos esse e não consegui

Código:



DoCmd.OpenReport "rltSaida_Lista", acViewPreview, , "cli_nome=""" & Me!cli_Nome & """"


DoCmd.OpenReport "rltSaida_Lista", acViewPreview, , Nz(Me.Filter, "")


DoCmd.OpenReport "rltSaida_Lista", acViewPreview, OpenArgs:="SELECT * FROM tblColaboradores WHERE " & filtroLista
DoCmd.Maximize


DoCmd.OpenReport "rltSaida_Lista", acViewPreview, , "idColaborador =" & Me!idColaborador
DoCmd.Maximize





Vê aqui

http://maximoaccess.forumeiros.com/t17726-filtrando-varias-datas-em-formulario-continuo

Agradeço amigo pela ajuda, o filtro eu consegui resolver !

Eu preciso agora de um código pra colocar no botão de imprimir
pois estes códigos que postei ai nenhum da certo, porque eles estão imprimindo toda a tabela
e eu queria que imprimisse só os dados filtrados do SubForm.

Poderia me ajudar ?

boa tarde,

coloque a parte do banco de dados que você está com problemas, pra ver se podemos ajudar.

Tenta então assim

http://maximoaccess.forumeiros.com/t17512-pesquisa-entre-datas

http://maximoaccess.forumeiros.com/t17740-resolvidodata-inicial-e-data-final-em-relatorio

Grande mestre Avelino é um prazer ser ajudado pelo Sr.

O código é esse

Código:

Private Sub txData1_Change()

Dim filtro As String
If Len(Me!txData1.Text & "") = 0 Then
    Me!sfrmSaida.Form.Filter = ""
    Me!sfrmSaida.Form.FilterOn = False
    Exit Sub
End If
filtro = "[cli_Data_Saida1] like '*" & Me!txData1.Text & "*'"
Me!sfrmSaida.Form.Filter = filtro
Me!sfrmSaida.Form.FilterOn = True

End Sub


Funcionou sim Mestre, mais só temos um probleminha, depois da filtragem quando aparece mais de 3 registros no SubForm na hora
que chamo o relatório para visualizar a impressão só aparece 3 registros na folha de impressão, sendo que no subForm tem 4 ou mais registros !