Em propriedades coloque a caixa de combinação com a origem da linha "Janeiro";"Fevereiro";"Março"... depois em evento ->Após atualizar -> [Procedimento do evento] escreva Select Case Combinação6.Value Case "Janeiro" Lista8.RowSource = "SELECT Tabela1.nome, Tabela1.numero, Tabela1.data FROM Tabela1 WHERE (((Tabela1.data)>=#1/1/2006# And (Tabela1.data)<=#1/31/2006#));" Case "Fevereiro" Lista8.RowSource = "SELECT Tabela1.nome, Tabela1.numero, Tabela1.data FROM Tabela1 WHERE (((Tabela1.data)>=#2/1/2006# And (Tabela1.data)<=#2/28/2006#));" Case "Março" Lista8.RowSource = "SELECT Tabela1.nome, Tabela1.numero, Tabela1.data FROM Tabela1 WHERE (((Tabela1.data)>=#3/1/2006# And (Tabela1.data)<=#3/30/2006#));" End Select colocando um select casa para cada mes, alterando é claro o nome da tabela os campos e a data inicial e final a segunda parte coloque n propriedade da caixa de listagem -> evento -> ao clicar duas vezes uma macro para abrir seu formulario ou o comando DoCmd.opemform "nome do formulario", o mesmo filtro usado para a lista espero ter ajudado.