[Resolvido]Exibir todos os registros quando o filtro na consulta origem não receber valor

Saudações pessoal.

Preciso que o subform (Agenda_SubformTodos) seja recarregado de acordo com a data selecionada no textbox (txtDataSelect) assim que chamar o evento "Após Atualizar" desta textbox, Maaaaas... Se nenhuma data for selecionada, o subform deve exibir todos os registros!!!

Já está funcionando quando tem uma data selecionada, quando não tem, o subform fica sem registros.
Já tem uma consulta com filtro no campo datainicial na origem do subform.
Forms!Agenda!Agenda_SubformTodos!txtDataSelect

Funfa, mas preciso exibir todos os registros qnd não houver data selecionada.

Desde já agradeço a atenção

boa tarde
tente usar a propriedade recordsource para recriar os dados do subformulario.

segue exemplo:
Me.subformulario.RecordSource = "Select * from NomeTabela Order by NomeCampo"

Então. ..

Ainda não funfou

No textbox "txtSelectData", no evento Após Atualizar coloquei : Forms!Agenda!Agenda_subformTodos.requery

Com a intenção de fazer o subformulario atualizar porém filtrando os registros de acordo com a data selecionada.
No evento Ao Carregar do subformulario coloquei:
Algo assim, Se o campo txtSelectData não for nulo, a propriedade recordsource vai usar essa data para trazer os registros, SE NÃO, traga todos.

Mas após atualizar a textbox txtSelectData não consigo fazer o subformulario recarregar usando o requery  

Onde está faltando algo?

boa tarde,
vc pode enviar parte do bd para analisarmos?

vc tentou usar desse jeito?
Me.subformulario.RecordSource = "Select * from NomeTabela Order by NomeCampo"

lembrando que a propriedade RecordSouce exige uma consulta SQL no formato de string, ou seja, texto.

Então. ..

No evento Ao Carregar do subformulario coloquei:

If not isnull(Forms!Agenda!txtSelectData)then
  Dim strAgenda, DataAgenda as String
  DataAgenda = Forms!Agenda!txtSelectData

  StrAgenda ="Select * from_
     & "where DataInicial =" & DataAgenda
     RecordSource =StrAgenda
Else
   Me.recordsource ="Select *  from agenda order by DataInicial"
End If

Isso está no evento ao carregar do subformulario, penso que conseguindo fazer com que ele seja recarregado após inserir uma data no campo do formulário principal (Usando o evento Após Atualizar da textbox, ele filtraria os registros.

Procede?

boa tarde,
Isso está no evento ao carregar do subformulario, penso que conseguindo fazer com que ele seja recarregado após inserir uma data no campo do formulário principal (Usando o evento Após Atualizar da textbox, ele filtraria os registros.

Procede?
sim, procede.
acho q o seu erro esta pq vc esta colocando o seu codigo no lugar errado. tente colocar no evento
ao carregar do form principal.
Fiquei na duvida na questao do campo usado para filtrar a data, ele fica no sub ou no form principal?

'tente fazer mais ou menos assim:
If not isnull(Me.SeuSubFormulario!txtSelectData)then
 Dim strAgenda, DataAgenda as String
 DataAgenda = me.txtSelectData 'nao entendi muito bem aqui. vc tem o mesmo campo tanto no subformulario quanto no form principal?

 'por se tratar de data coloque entre # para evitar erros. e caso o resultado vier diferente do que vc espera converta a data
 'para o formato americado na clausula sql where.
 'exemplo: "where DataInicial =#" & Format(DataAgenda,"mm/dd/yyyy") & "#"

 StrAgenda ="Select * from_
    & "where DataInicial =#" & DataAgenda & "#"

    Me.SeuSubFormulario.RecordSource = StrAgenda 'nao esqueça de colocar o Me.
Else
  Me.SeuSubFormulario.RecordSource ="Select *  from agenda order by DataInicial"
End If

Então...

Ronaldojr1

O campo (txtSelectData) onde insiro a data e que tem o código no evento Após Atualizar, está no form principal(Agenda), após inserir a data o subformulario Agenda_subformTodos deveria ser recarregado, e assim trazer só os registros com a data inserida.
Coloquei o ponto de interrupção no evento Após Atualizar do campo txtSelectData no form Agenda para acompanhar, mas quando chega em: forms!agenda!agenda_subformTodos.requery deveria "saltar" para o evento carregar do subformulario subformTodos (correto?) mas não acontece.

Acabei de testar o seguinte:

Coloquei o código que estava no evento Ao Carregar do subformulario Agenda_subformTodos, no evento Current do mesmo subformulario e funcionou, aparentemente não causou nenhum conflito, depois parou de funcionar e provocou outros erros

Adapte o arquivo em anexo ao seu cenário

Funfou

IvanJr, obrigado pela força! E aos demais também todas as dicas me acrescentaram
.
O exemplo era exatamente o que eu estava tentando fazer.
Não sabia que usando FilterOn na textbox do form principal teria esse efeito no subform, nem tinha tentado usá-lo fazendo referência ao subform.

Mais uma vez obrigado senhores.
Resolvido!!!

O fórum agradece o retorno. Não esqueça o resolvido no tópico. Sucesso.

Bom dia IvanJr,
Achei bem interessante sua solução, em muitos casos
sera bem mais simples desta maneira.
Obrigado pela contribuição, ja add este uso no meu repertorio rs
E boa sorte com o resto do desenvolvimento do seu BD EdContramão

Sucesso

Ronaldo, por vezes já peguei o caminho mais difícil quando na verdade sempre tem outro mais simples. De tanto apanhar nessa vida fui aprendendo alguns macetes. Sucesso.

E o resolvido?

Resolvido!!!

Obrigado pela confirmação. O fórum agradece. Sucesso.