[Resolvido]Botão para exportar um Sub Formulário para Excel com dados filtrados

Boa tarde amigos desenvolvedores,

Quebrei a cabeça e ainda não consegui exportar um Sub Formulário para Excel com dados filtrados.

Só consigo criar a macro de exportação mas preciso que exporte o subformulário vigente com a filtragem:



https://2img.net/h/oi67.tinypic.com/2afwhuw.png

Preciso clicar no botão e ele levar apenas os dados mostrados na tela!

Toda ajuda é bem vinda!

Renato,

A consulta do subformulário é embutida ou existe uma consulta (objeto)?

Caso tenha uma consulta (objeto) esse é o código:

Código:

DoCmd.OutputTo acOutputQuery, "NomeConsulta", "Excel97-Excel2003Workbook(*.xls)", "", True, "", 0, acExportQualityScreen

Caso não tenha a consulta crie uma com os mesmos filtros da consulta (embutida) e salve como um (objeto) e depois aplique o código acima.


Atenciosamente,

Uilson Oliveira

Oi Uilson,

Existe uma consulta Objeto sim, crieio subformulário baseado nela.

Apliquei o código que passou em um botão colocando o nome da consulta que necessito, porém ainda gera o excel sem os filtros...

Renato,

Se possível me envie o projeto ou apenas os objetos envolvidos para que eu possa verificar ...

Oi Uilson obrigado pela atenção,

Quando tento enviar o arquivo dá isso:

"Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 0 Kb)"

Arquivo zipado com apenas 346KB

Estou fazendo algo errado?

Envia no meu email: uilsonbrasil@hotmail.com

Enviei, assim que conseguirmos resolver posto no fórum para acréscimo de conhecimento da comunidade.

Achei algo preocupante...

https://support.office.com/pt-br/article/Exportar-dados-para-o-Excel-64e974e6-ae43-4301-a53e-20463655b1a9

"Não é possível exportar macros, módulos ou relatórios para o Excel. Ao exportar um formulário ou uma folha de dados que contenha subformulários ou subfolhas de dados, somente o formulário ou a folha de dados principal é exportada. É necessário repetir as operações de exportação de cada subformulário e subfolha de dados a serem exibidos no Excel."

Ou seja, não posso exportar subformulário? Foi o que entendi.

Renato,

Como eu disse: O correto é exportar através de uma consulta filtrada.

Retornei em seu e-mail.

Bons Estudos.


Att,

Muito obrigado Uilson

Exatamente, o formulário que fiz inicialmente foi com um subformulário, mas dessa forma a exportação não funciona.

Para aparecerem os dados relacionados você modificou a consulta para RIGHT JOIN?

Quando eu monto a consulta para a listagem pelo modo design ele só monta com INNER JOIN, tem como mudar sem precisar alterar o SQL na mão?

Só finalizando o entendimento da solução para reportar aqui no post o entendimento do todo.

Renato,

Não consegui entender a sua dúvida.

Quando crio a listagem preciso de uma consulta, você fez Export1.

Quando eu construo uma consulta trazendo campos de tabelas relacionadas o access gera SQL com INNER JOIN, assim traz apenas os registros necessariamente relacionados.

Já os registros sem campos relacionados, que estão em branco, ele não traz a não ser que use RIGHT JOIN.

Aí minha dúvida foi, você alterou na mão os INNER para RIGHT?

Veja o resultado da consulta Export1

SELECT tblMoveis.Numero, tblMoveis.SimCard, tblAcesso.Acesso, tblTipoMovel.TipoMovel, tblSituacao.Situacao
FROM tblTipoMovel RIGHT JOIN (tblSituacao RIGHT JOIN (tblAcesso RIGHT JOIN tblMoveis ON tblAcesso.codAcesso = tblMoveis.codAcesso) ON tblSituacao.codSituacao = tblMoveis.codSituacao) ON tblTipoMovel.codTipoMovel = tblMoveis.codTipoMovel
WHERE (((tblMoveis.Numero) Like "*" & [forms]![Consulta Números Móveis2].[txtNumero] & "*") AND ((tblMoveis.SimCard) Like "*" & [forms]![Consulta Números Móveis2].[txtSimCard] & "*") AND ((tblAcesso.Acesso) Like "*" & [forms]![Consulta Números Móveis2].[txtAcesso] & "*") AND ((tblTipoMovel.TipoMovel) Like "*" & [forms]![Consulta Números Móveis2].[txtTipoMovel] & "*") AND ((tblSituacao.Situacao) Like "*" & [forms]![Consulta Números Móveis2].[txtSituacao] & "*"));

Renato,

A única alteração que fiz na consulta foi no critério de filtros:

Estava assim: Como "*" & xxxx
Ficou assim: Como "*" & xxxx & "*"

Salvei ela como um objeto do projeto.


Att,

Entendi,

Só que quando coloco vários filtros os valores vão sumindo, ficando restritos aqueles que tem valores de relacionamento.

Quando coloco no filtro:

Como "*" & [forms]![Consulta Números Móveis2].[txtNumero] & "*"

Funciona por que todos os registros tem números de telefone, mas quando coloco mais um filtro:

Como "*" & [forms]![Consulta Números Móveis2].[txtSituacao] & "*"

Não funciona pois nem todos os telefones tem essa informação de Situação, muitos são vazios nesse campo.

Aquele modelo que me devolveu por e-mail, sem alterar nada perceba que na tabela tblMoveis existem TRÊS números cadastrados mas na consulta está trazendo apenas DOIS números, por causa dos filtros!

Preciso mostrar todos os dados quando não houver nenhum filtro!

Como faço vários filtros incluindo os campos vazios?

Como "*" & [forms]![Consulta Números Móveis2].[txtNumero] & "*" E Nulo

Dessa forma não traz nada.

Tentei dessa forma no OU mas traz tudo sempre...

Será que vou ter que implantar algo como isso?

https://accessporexemplo.wordpress.com/filtros-sequenciais/

Olá para o email não é uma boa conduta, privamos os outros membros, que também podem ter necessidade da mesma ajuda.

Acho que a situação do alerta do Administrador ainda se mantêm, veja link abaixo:
https://www.maximoaccess.com/t22138-anexar-ao-forum?highlight=forum+anexos

Seguindo a recomendação, coloque na nuvem e partilhe o link.
Eu aconselho um destes, todos de borla:

Copy 15Gb (*)
Meocloud 16gb (*)

Os mais conhecidos:
Dropbox 2Gb (*)
OneDrive 15Gb (**)
Google Drive 15Gb

Nota:
Nos assinalados (*), coloquei link de refral para ganharmos (eu e você) espaço extra.
Nos assinalados (**), coloquei link de refral apenas eu ganho espaço extra.


Outra alternativa será o GE.TT, não é obrigatório abertura de conta, apenas tem de arrastar o ficheiro e postar o link, bastante simples e rápido para partilha simples.

Por último, solicito que um dos intervenientes, poste pelo menos no GE.TT , ficando assim disponivel para os restantes membros do forum.
Abraço

Combinado ahteixeira:

Segue o link: http://ge.tt/8uKJ7IS2/v/0?c

O problema continua o do assunto, importar subformulário, mas como vimos não ser possível trocamos para uma listagem.

Porém a listagem não tem filtros necessários para uso do formulário e agora o desafio é fazer esses filtros.

Tentei o critério da seguinte forma:

SeImed([forms]![Consulta Números Móveis2].[txtSimCard]<>"";[forms]![Consulta Números Móveis2].[txtSimCard])

Pensei, se o valor do campo for diferente de vazio faça o filtro, mas não traz nada.

Mais alguma sugestão caro Uilson e amigos do fórum?

Como não foi encontrada uma solução direta para o assunto do tópico, vou dar como resolvido tendo como paliativo:

No lugar de subformulário, insira uma Caixa de Listagem.

Em outro tópico abordarei o tema filtragem dos dados em caixa de listagem.

Obrigado pela ajuda de todos os envolvidos.