[Resolvido]Criar rotina

Pessoal preciso criar uma rotina ,exporte para excel dados de subform exemplo
tenho 10 linhas de dados num subform ,mas quero enviar 3 delas para relatorio. depois quero enviar mas duas de outro sub form , e por fim quero imprimir, pensei em exportar para excel,mas se alguem tiver outra soluçao .

Agravina

Uma dica

Porque não faz uma consulta com os dados pretendidos e depois os envia para o excel conforme pretende?

Abraço

como poderia fazer isto? quando abro o form com subform me apresenta 15 itens , quero mandar apenas os selecionados, como fazer?

Agravina

Faça uma consulta baseada nas tabelas que alimentam o form principal e o sub formulário.

Por exemplo, você tem uma tabela principal Conta e uma secundária subConta. As duas estão ligadas pela chave primária ID. A Tabela Conta fornece os dados ao formulário principal e a subConta ao subformulário.

No assistente de consultas do access-criar consulta. Inclua os daos da tabela principal que necessita e os dados da tabela secundária que também necessita.

Pode exportar a consulta através de um botão de comando no form, da seguinte maneira:


On Error Resume Next
Dim Msg, Style, Title
Msg = "Esta função cria um ficheiro em Excel na Pasta xxx do nomedaaplicação" & Chr(13) & Chr(10) & "Deseja continuar?"
Style = vbYesNo
Title = "Exportar"
Msg = MsgBox(Msg, Style, Title)
If Msg = vbYes Then
DoCmd.OutputTo acQuery, "xxxx Consulta", "MicrosoftExcelBiff8(*.xls)", "C:\nome da aplicação\nomedapasta\xxxxx Consulta, False, "", 0"
Else
Cancel=True
End If

Viera ,nao quero abusar mas,vc nao teria um exemplo,mas estou conseguindo fazer? com exemplo fica mais claro.

Agravina

Penso que sim. Só tenha um pouco de paciência que vou procurar. Logo coloco aqui

Amigo

Este exemplo foi retirado de uma aplicação minha já antiga, mas serve para ver o código e aproveitar para o seu. Lembre-se que deve fazer referência ao Microsoft Excel na sua versão.

Presumo que funciona no 7. Tome cuidado com o caminho da aplicação e o nome da Pasta que tem que criar. Leia atentamente o código.

http://dl.dropbox.com/u/8157744/Agravinaexcel.mdb

oK Vou dar uma olhada.

Amigo viera ,nao estou me achando por isso postei um bd exemplo se puder dar uma olhada .abra form produtos la tem mais uma explicaçao do que pretendo
http://www.speedyshare.com/files/24503977/Banco_de_Dados1.accdb

Amigo

Durante o fim de semana não tenho acesso ao 2007, só no 2003. Vou entrar em contacto com o meu colega Criquio para ver se ele dá uma vista de olhos tá!