[Resolvido]Formulário com com parametro e caixa de seleção para filtrar o resultado da consulta

Senhores,

Estou tentando criar um formulário no access no qual a fonte de registro será uma consulta, sendo que será inserido no relatório um campo de data para filtrar os registros daquela determinada data e ao exibir os registros no relatório, eu gostaria de incluir uma caixa de seleção na qual o usuário marcaria dentro dos registros selecionados em uma data, aqueles que seria exportados para o excel.

Por exemplo:
No formulário o usuário digita um data, por exemplo: 25/08/2011 e mostraria no subform acoplado todos os registros do dia 25/08/2011, na seguencia o usuário marcaria a caixa de seleção somente daqueles registros que ele gostaria de enviar para o excel.

1º na consulta coloque o criterio:

como forms!NomedoFrom!NomeDaCaixaTextoData

2º crie um formulario continuo a partir desta consulta

3º No form crie a caixa de texto que vai receber a data e coloque o mesmo nome que colocou no criterio da consulta:

NomeDaCaixaTextoData

4º adicione o subform ao Formulario

5º no evento AfterUpdate da caixa de texto coloque:

me.NomedoSubform.requery

Agora basta testar e retornar resultado

Deu erro de parametro na linha:

me.formescritorio.requery


E como fazer para a parte na minha mensagem para:

na sequencia o usuário marcaria a caixa de seleção somente daqueles registros que ele gostaria de enviar para o excel.

tenta:
me.NomedoSubform.refresh

E como fazer para a parte na minha mensagem para:

na sequencia o usuário marcaria a caixa de seleção somente daqueles registros que ele gostaria de enviar para o excel.

veja se ajuda:

http://maximoaccess.forumeiros.com/t770-exportar-para-excel?highlight=exportar

hoje já nao consigo, mas amanha faço um pequeno exemplo demonstrativo de como o user pode escolher apenas alguns registos e exporta-los para excel

Boas, nao sei se já resolveste o teu problema, se nao o resolveste, aqui vai um pequenino exemplo, foi criado com base no topico que indiquei do Mestre JPaulo, que está simplesmente brutal e certinho como sempre e que apenas fiz uma pequenina adaptaçao para o que pretendias.

Peço desculpa pela demora, mas nunca mais me lembrei deste tópico...

http://dl.dropbox.com/u/10750210/exportToexcel.rar

P.S. O exemplo nao está muito bonitinho, mas faz o que pretendes, é isso que interessa

Deu erro na linha:
Set xls = CreateObject("Excel.application")

verifica se tens registado estas referencias:


Microsoft Excel 11.0 ou 12.0 Object Library

e

Microsoft DAO 3.6 Object Library

Microsoft Excel 14.0 Object Library

e

Microsoft DAO 3.6 Object Library

estas a funcionar com o access 2010?

sim, estou com access 2010.

ahh pois, o código é completamente diferente...

cria-se objectos desta maneira:

Dim appExcel As Excel.Application

Set appExcel = Excel.Application

Não tenho o access 2010, portanto nao te posso ajudar...

sorry

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

ok