[Resolvido]Alterar Origem de dados de um Relatório

Bom dia.

O Problema:

Tenho alguns relatórios baseados em consultas sem filtros nas consultas para exibir todos os dados quando o user clicar no botão.
Para economizar espaço no banco, eu crio outro botão com o comando:  DoCmd.OpenReport stDocName, acViewPreview, "Nome da Outra Consulta"

Com o nome de outra consulta exatamente igual mas com filtros assim: Como "*" & [Codigo do Instrumento:] & "*"

Na maioria dos casos isso funciona e o vba altera a origem de dados do relatório, mas as vezes não da certo mesmo os relatórios e consultas sendo exatamente iguais...

Duvida:
Gostaria de saber o porque isso ocorre e como eu poderia fazer para não ter que criar outro relatório identico apenas para mudar a origem dos dados.

Olá David

Como você mesmo disse, Alterar a origem de dados do relatório.

Experimente assim:

-Crie as consultas para serem usadas na propriedade Fonte de registro (RecordSource) - creio que já as tem.

- Ao invés de 2 botões para abrir o relatório, use  caixa de texto, ou caixa de opções (ideal) para se escolher qual relatório abrir.
- O botão para abrir o relatorio é normal sem critério algum.
- Na propriedade Ao carregar do relatório, faça a verificação de qual relatório foi selecionado para ser aberto e abra-o.

 Exemplo:
 digamos que tenha uma caixa de opções com 2 opções relatório 1 e relatório 2 e que se clicou na segunda opção

 então:
 If Forms!NomeFormulario!NomeCaixaopção =1 then
    me.recordsource = a consulta 1
 else
    me.recordsource = a consulta 2
 endif

Como pode ver irá abrir o relatório com os dados da consulta 2

Isso é apenas um esboço. acredito que poderá  desenvolver melhor.

[ ]'s

Noob

Bom Noobezinho, te juro que tentei de tudo nesse sentido que você me passou, mas não consegui nada.

Um dos problemas deve ser que  o form que estou usando não esta acoplado a nenhum conjunto de registro, trata-ase apenas de um form com botões para impressão.

Penando nisso, tentei no formulário que tem os registros acoplado e realmente não sai do Zero.

Envie um exemplo, colocando as tabelas , formulários e os relatórios em questão, pra eu dar uma olhada.

Como o fórum está com problemas em anexar arquivos, use o Mega ou Dropbox.


Noob

O formulário tem um botão com uma impressora, e outro ao lado com uma lupa, o da lupa faz uma pesquisa, mas o outro eu gostaria que ele mostrasse todos os registros sem filtros baseados na consulta...

Link: https://mega.co.nz/#!BUFQTYKZ!y4AJuSHiGltSWf71Ox8AlkrqJ8-xIDvYzpvbB8XANKc

David

No botão imprimir, a sintaxe do código tem um pequeno erro :

DoCmd.OpenReport stDocName, acViewPreview, "C_InstrumentoEmprestimoLocalizacaoGeral"

O correto é:

DoCmd.OpenReport stDocName, acViewPreview, , "C_InstrumentoEmprestimoLocalizacaoGeral"

Veja que está faltando um vírgula, deixei-a em vermelho pra puder ver melhor.

Se era isso que estava pegando, ta resolvido, meu amigo

Noob

então, Não mudou a origem dos dados do relatório, ainda não era isso...

Quando uso comando após essa segunda virgula, uso para encontrar um registro específico como por exemplo:
>>>> DoCmd.OpenReport stDocName, acPreview, , "[IDRegistro] = " & Me.IDForm & ""

Neste caso ele retorna o relatório que tenha o ID igual ao do relatório atual...

Por isso tinha colocado uma virgula antes, como disse...isso funciona na maioria dos meus relatórios...mas nesse em específico ele não muda a origem.

Bem, ainda não entendi direito o que pretende.

Toda vez que vou abrir o teu formulário , da a mensagem que o Access não está respondendo, tenho que esperar
para que normalize.



Como meu Access é o 2010 , não tenho como saber o que é:

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

A opção 10 do menu editar é o que, salvar?

Disse que esse botão da Lupa, faz a consulta, mas não vejo nada alem dessa linha.

Já experimentou isso?

DoCmd.OpenReport stDocName, acPreview, "C_InstrumentoEmprestimoLocalizacaoGeral" , "[IDRegistro] = " & Me.IDForm & ""

Lógico que vc tem que substituir  [IDRegistro] = " & Me.IDForm pelos nomes reais dos controles

meu access é o 2000...

O que eu pretendia era o seguinte, o meu relatório na propriedade (Origem do registro) tem uma consulta com o nome "C_InstrumentoEmprestimoLocalizacaoGeral", que abe uma consulta com um filtro simples na data "è nulo" dentro da consulta.

Mas eu gostaria que quando eu apertasse um outro botão, o VBA mudasse essa propriedade (Origem do registro) desse mesmo relatório para outra consulta "C_InstrumentoEmprestimoLocalizacaoFiltro" onde contem um filtro no Código do instrumento.

Assim evitando que eu tenha que criar outro relatório idêntico, apenas pra mudar a origem do registro.

eu consegui chegar a uma conclusão aceitável.

Resolução do Problema:

Deixei o Relatório vinculado a consulta sem filtro nenhum.

Um botão com o nome geral abre o Relatório sem filtro algum

Em outro botão coloquei o código:

Dim stDocName, StrFiltro As String
StrFiltro = InputBox("Digite o Código do instrumento", "Pesquisar Instrumento")

stDocName = "InstrumentoEmprestimoLocalizacaoGeral"

DoCmd.OpenReport stDocName, acViewPreview, , "CodigoInstrumento Like " & """*" & StrFiltro & "*"""

Dessa forma ele faz uma busca trazendo todos os resultados digitados na Inputbox..

Agradecimentos:

Muito obrigado pela ajuda Noobezinho.

espero ter talvez contribuído também.

Que ótimo que conseguiu !

Eu sempre digo, que lava a alma quando solucionamos por nós mesmo,né?

Valeu o retorno

Boa sorte !!

Noob