Controle de Formulário dentro de uma Consulta

[lusojunior 0]

Olá pessoal,Estou criando um BD e nele gostaria de ter uma agenda que funcionasse da seguinte forma: Quando digitasse uma nova data no formulário, em um subformulario abaixo apareceria a lista de compromissos gravados a partir da data informada.Já tentei vincular os campos dos dois formulários mas sempre atualiza mostrando apenas os eventos agendados para a data que foi digitada. Como faço para colocar o valor de um controle de formulario dentro de um objeto consulta do access para que possa ser atualizado assim que há modificações no campo?

[Spiritwalker 0]

Prezado lusojunior:Experimente declarar o "Objeto de origem" de seu Subformulário uma consulta que chamaremos de "qryDatas". Ela será atualizada todas as vezes que o conteúdo da caixa de texto do seu formulário sofrer alteração. Para isso, no evento AfterUpdate da mesma, favor inserir o código abaixo:Dim db As DatabaseDim qdf As QueryDefDim strSQL As StringIf IsNull(NomeDaCaixaDeTexto) Or NomeDaCaixaDeTexto = "" ThenExit SubElsestrSQL = "SELECT * FROM NomeDaSuaTabela WHERE NomeDoCampoDataDaSuaTabela >= "# & NomeDaCaixaDeTexto & #""Set db = CurrentDbdb.QueryDefs.RefreshFor Each qdf In db.QueryDefsIf qdf.Name = "qryDatas" Thendb.QueryDefs.Delete qdf.NameEnd IfNext qdfSet qdf = db.CreateQueryDef("qryDatas", strSQL)NomeDoSeuSubformulario.Requeryqdf.Closedb.CloseEnd IfEspero que isso ajude.Abraços.