Filtro Data Inicial e Data Final

Boa Tarde meus amigos:
Estou tentando fazer um filtro data inicial e data final em um formulário com subformulário onde tem vários campos (24 campos) e não estou obtendo exito, vem sempre a mensagem que é um filtro complexo. Gostaria de ver com alguém que possa me ajudar. Agradeço.

Private Sub BtnFiltrarData_Click()
   
Dim j As Boolean, filtro As String
           If IsNull(Me!txtdatainicial) Then j = True
           If IsNull(Me!txtdatafinal) Then j = True
           If j = True Then
           MsgBox "Informe o período desejado! ...", vbInformation, "Aviso"
           Me!txtdatainicial.SetFocus
       
       Exit Sub
       
       End If

           Me.SUB_FORM_CADASTRO_CODIGO.Form.Filter = _
           " datapedido >= #" & Format(Me.txtdatainicial, "mm/dd/yyyy") & "#" _
           & "And datapedido <= #" & Format(Me.txtdatafinal, "mm/dd/yyyy") & "#"
           Me.SUB_FORM_CADASTRO_CODIGO.Form.FilterOn = True
           Me![txtdatainicial].SetFocus
   
End Sub

Boa tarde!

acsanches, poste o BD para podermos ajuda-lo com maior agilidade.

No Aguardo

De conformidade com sua solicitação estou postando o BD...
O filtro que desejo normalizar é o de Cadastro de Produtos Código.
Por enquanto obrigado pela atenção.

Boa tarde!

acsanches, Acredito que sua solução esteja no link abaixo, como estou no trabalho agora não consigo entender e adaptar seu projeto. Tente adapta-lo conforme link abaixo, caso não consiga assim que estiver em casa tentarei ajuda-lo.

https://www.maximoaccess.com/t10166-abrir-consulta-com-filtro-via-form-vba

Boa Tarde Bigfill....

O link que vc me passou não atende o que pretendo.
Se vc tiver condição de dar uma olhada com calma no BD te agradeço.

Boa tarde à todos !

Peço permissão aos meus colegas.

Veja se é o pretendido (ver anexo).

Boa tarde thiagonsilvaa,

Em primeiro lugar agradeço pela atenção dispensada ao assunto.

A principio é isto mesmo, mas está acontecendo o seguinte:

- Quando abre o formulário e aplica o filtro funciona de acordo;
- Quando clica em limpar e procurar para novo filtro vem a mensagem
 de erro "consulta complexa".

Se tiver condições de dar mais uma verificada fico grato.

Se possível me informar onde foi alterado o evento.

Boa tarde !

Qual a versão do access está a usar ?

Testei na versão 2013 32 bits e funcionou perfeitamente.

Sobre as alterações:



Apenas alterei a fonte de registro para: SELECT * FROM SUB_FORM_CADASTRO_CODIGO;

OBS: Imagem corresponde a forma que você tinha enviado

Olá thiagonsilvaa,

A versão que utilizo é o access 2007...

Aproveitar mais uma vez para agradecer sua atenção, como tbém os demais amigos que tenham visto este BD e estão me ajudando.

Como te falei o unico erro que está dando é este quando solicito novo filtro, contudo, é isso mesmo.

Então deve faltar mais algum detalhe por ser a versão access 2007.

Boa tarde !

Acredito que se atualizares a sua versão o problema se resolva..

Ou utilize de uma outra maneira os filtros, por exemplo através de uma consulta..

Valeu Thiagonsilvaa,

Por enquanto meu muito obrigado.

Bom dia, passando para dar um pitaco. Qual é o botao de "novo Filtro"?

Não encontrei (talvez pela correria), tal botão mas, já pensou em uma solução mais simples?

DoCmd.Close acForm, "seuformumlario", acSaveNo
DoCmd.OpenForm "seuformulario"

Bom dia Tauron....

O problema encontra-se no Cadastro de Pedidos por Código, quando vou fazer o filtro por data apresenta erro no evento.

Agradeço sua atenção.

Até mais.

acsanches, teste se seria isto.

Inserir a sugestão do Mestre tauron.

Acho que ira lhe atender.

Bom dia bigfill ....

Na real é isto mesmo, só que tem um porém:

1) quando abre o formulário Cadastro por Código e acionar o botão filtrar data funciona certinho;
2) quando ele está aberto e aciona o botão limpar ou procurar e acionar o botão filtrar ele dá erro. Está faltando algum comando que limpe este erro.

De qualquer forma já foi um avanço.

E por enquanto fico grato ao seu empenho e de todo pessoal que tem colaborado.

Fico no aguardo de uma possível solução.