[Resolvido]Abrir um formulário contínuo baseado em uma consulta sem critério e inserir o critério através do VBA

Prezados, boa noite!

Eu tenho uma situação que nem imagino como resolver...

Eu tenho um formulário que contem os botões: Jan, Fev, Mar, Abr, Mai, Jun, Jul, Ago, Set, Out, Nov, Dez e com eles eu abro um formulário contínuo que tem como Fonte de Registro uma consulta com critério entre datas que mostra todas as visitas comerciais efetuadas naquele mês.

Como será uma atividade frequente, eu gostaria de saber se eu ao invés de criar uma consulta e um formulário para cada mês, eu tenho com ter apenas uma consulta sem critério e um formulário e no botão de abrir o formulário eu insiro no VBA esse critério.

Se alguém conseguir me dar uma luz, agradeço imensamente.

Abraços

nao seria melhor uma combo com o nome dos meses.. ao invés de tantos botoes?

Poderia na consulta formatar um campo nao acoplado para apresentar o nome do mes..

e no criterio: Como Form!NomeDoform.SuaCombo

e no evento após atualizar da combo.. abrir o formulário

DoCmd.OpenForm "SeuForm"

Harysohn, boa noite!

Mas de qualquer forma eu iria precisar das consultar conforme período e dos formulários conforme período, não eh?

Ai não ajudaria...

basta apenas um form e uma consulta para este form confome falei acima.

Prezados, boa noite!

Há como eu mexer ou criar uma consulta no VBA? Sei la... usando um docmd.RunSql, não poderia ajudar?

Ai na questão HAVING eu alteraria conforme cada botão...

Por exemplo:

Setembro: HAVING(((Visitas.Data)>=#9/1/2011# And (Visitas.Data)<#10/1/2011#))
Outubro: HAVING(((Visitas.Data)>=#10/1/2011# And (Visitas.Data)<#11/1/2011#))
Novembro: HAVING(((Visitas.Data)>=#11/1/2011# And (Visitas.Data)<#12/1/2011#))
Dezembro: HAVING(((Visitas.Data)>=#12/1/2011# And (Visitas.Data)<#01/1/2012#))

Abraços

Boa noite, Bruno

Comece como o amigo Hary falou.
Tenha um formulário (frmPrincipal) com caixa de combinação (CxcFiltroMesAno) para seleccionar o mês pretendido.
Tenha um formulário (frmDadosMes) para abrir com os dados todos sem filtragem
Tenha um botão no frmPrincipal para abrir o frmDadosMes com filtro seleccionado. Do género Docmd.Openform "frmDadosMes",,,"Data>#" & DateSerial(Year(CxcFiltroMesAno), Month(CxcFiltroMesAno), 0) &# and Data<#" & DateSerial(Year(CxcFiltroMesAno), Month(CxcFiltroMesAno) + 1, 1) &"#"

Alexandre, boa noite!

Agradeço as sugestões, mas eu não pretendo trabalhar com a caixa de combinação...

Mas se eu consigo filtrar pelo docmd.openform, eu poderia então utiliza-lo para suprir a minha necessidade, tipo:

No formulário "calendariodevisitas" onde só contem botões, colocar ao clicar no botão Outubro o comando

doCmd.OpenForm ("visitasmês2011",,,[data] >= 10/01/2011 and < 11/01/2011)

O problema é que esse código da erro...

Abraços

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.