[Resolvido]Filtros por data.

Prezados,

Tenho um formulario continuo (frmPesquisarRecebidas) que abre com dados filtrados no evento ao carregar conforme abaixo:

Me.Form.RecordSource = "SELECT * FROM Recebido where nomeBeneficiario = Forms![Form_Itens enviados].[Nome da Usuário]"

Após abrir tem duas textbox para filtrar um intervalo entre datas, depois de preencher data clico no btnfiltrarDados (código abaixo) para me retornar o intervalo pretendido.
Mas não consigo prosseguir, pois na linha em vermelho apresenta a mensagem 3075 (Operador faltando).

Alguem pode me indicar qual operador falta?

Dim strSQL As String
Dim filtro As String
filtro = Format(Me!txDataInicial, "dd/mm/yyyy") & "# AND #" & Format(Me!txDataFinal, "dd/mm/yyyy")
strSQL = "SELECT * FROM Recebido WHERE dataHoraInternacao Between [Formulários]![frmPesquisarRecebidas]![txDataInicial] And [Formulários]![frmPesquisarRecebidas]![txDataFinal] #" & filtro & "# "
DoCmd.ApplyFilter , "dataHoraInternacao Between [Formulários]![frmPesquisarRecebidas]![txDataInicial] And [Formulários]![frmPesquisarRecebidas]![txDataFinal] #" & filtro & "# "

Up.

Up.

Prezados,

Andei fazendo alguns testes com o código abaixo e não mais apresenta o erro 3075, porém, não retorna tudo que está registrado na tabela no intervalo de uma data que o usuário informar. Ex: Entre 01/01/2015 E 30/01/2015. Deveria retornar tudo do dia 01 até dia 31/01/2015.

Se alguém tiver uma sugestão eu agradeço.

Dim strSQL As String
Dim Filtro As String
Filtro = Format(Me!txDataInicial, "mm/dd/yyyy") & "# AND #" & Format(Me!txDataFinal, "mm/dd/yyyy")
strSQL = "SELECT * FROM Recebido WHERE dataHoraInternacao Between [Forms]![frmPesquisarRecebidas]![txDataInicial] And [Forms]![frmPesquisarRecebidas]![txDataFinal] #" & Filtro & "# "
DoCmd.ApplyFilter , "dataHoraInternacao = #" & Filtro & "#"

Amigos, bom dia,

Consegui achar a sintaxe correta do código para filtrar dados entre datas.

Dim filtro As String
If Not IsNull(Me.txDataInicial) And Not IsNull(Me.txDataFinal) Then
filtro = "Recebido.dataHoraInternacao Between #" & Format(Me!txDataInicial, "mm/dd/yyyy") & "# AND #" & Format(Me!txDataFinal, "mm/dd/yyyy") & "#"
Filter = filtro
FilterOn = True

Else
filtro = MsgBox("Informe a Data Inicial e Data Final para prosseguir...", vbCritical + vbQuestion, "Log")

End If