[Resolvido]Parâmetros Consulta - Gerar Relatório.

Salve galera. Tudo bem?

Gostaria de pedir uma ajuda de vocês, talvez seja uma dúvida boba... Mas vamos la..

Eu tenho um formulário, onde criei algumas Combos que são preenchidas com os valores de uma determinada tabela. Até aí tudo certo.
Eu seleciono os itens que eu quero e clico, os valores selecionados na combo são passados para uma consulta, que me retorna um relatório.

Ok, nada demais. Funcionando 100%.

Porém pensando hoje, tive a idéia de passar mais de um valor e criar agrupamentos no relatório por um código.
Como posso fazer para passar mais de 1 parâmetro por vez? Teria de usar outro componente? ListBox???
Na minha tabela eu tenho um código de categoria {9 - 10 - 11}. Atualmente eu seleciono 1 deles e trago os valores.
Como posso fazer para passar mais de um código? E agrupar isso no meu relatório?
Tipo, trazer o {9 E 11} ?

Obrigado a todos.

Imagino que você tenha um parâmetro no campo Código da sua consulta mais ou menos assim:

Como Formulários!NomeDoForm!NomeCampo

Se for esse o método, acrescente mais um campo no form e mude para:

Entre Formulários!NomeDoForm!NomeCampo1 & Formulários!NomeDoForm!NomeCampo2

Se você colocar no campo1 o código 9 e no campo2 o código 11, lhe serão retornados os registros 9, 10 e 11.

Estou fazendo exatamente assim Criquio...

É uma boa idéia.. Resolve parcialmente o problema...

Mas e no caso de eu selecionar apenas 1 valor?? E no outro não colocar nada? A consulta funcionaria normalmente?

Obrigado.

Outra coisa....

Tenho uma outra tabela que contém códigos diversos... Atualmente seleciono apenas um para gerar meu relatório, mas pensei em fazer um comparativo...

Aí a idéia de Entre não daria certo...

Como posso fazer? para passar mais de 1 valor para minha consulta?

Obrigado.

Ok... Obrigado Criquio.. Irei testar..

quanto ao comparativo... seria parecido com minha duvida anterior...

Na minha tabela tenho vários códigos de Assessorias.. de 01 a 20..

E gostaria de selecionar tipo... 05 E 10 E 15.. E no relatório criar agrupamentos disto..
e um quadro final de total... com os valores somados dos 3...

É possível?
Obrigado.

Criquio....
Coloquei da maneira que você me indicou... porém não deu muito certo...

Código:

Entre "*" & [Forms]![Agencia].[ACT] & "*" E "*" & [Forms]![Agencia].[Act2] & "*"

Ele me traz o valor do primeiro campo apenas...
Estou usando ComboBox...tem algum outro componente que seja mais facil para fazer isto?


Obrigado.

Olá Finando,

Só um pitaco.

Troca o "Entre" por "Como"

Teste ai.

Nivaldo.

Valeu Nivaldo... vou testar aqui pra ver....

=D

Ainda estou me batendo pra conseguir passar mais de um parâmetro para minha consulta... sem ter que adicionar N campos no meu form..

Para Datas este código isto vai solucionar...

Agora para os códigos de agencias, Não sei como fazer...
Sem idéias por enquanto...

Obrigado.

Outro pitaco,

Tenta assim também:

Como "*" & [Forms]![Agencia].[ACT] & "*" Ou "*" & [Forms]![Agencia].[Act2] & "*"

Nivaldo.

Thanks...

Vou testar tb...

=D

Salve Nivaldo... mesmo problema... ele esta trazendo apenas um valor...

Não estou conseguindo fazer..

Alguém tem alguma dica??
de como posso passar mais de 1 parâmetro??

Obrigado.

Rapaz olha o simples;

http://dl.dropbox.com/u/771097/finando.rar

Obrigado JPaulo... Aprendi algo que não sabia.. Sobre consultas...


Mas ainda assim ainda não consegui...

O negócio é mais ou menos assim...

eu estou utilizando atualmente o componente ComboBox... e através de um distinct eu preencho eles..
Aí Blz..
Seleciono os seguintes Filtros.

-Agencia -> combo
-Mes -> combo
-Act -> combo

E isto é passado para minha consulta... que me traz os resultados através de um relatório.

Ótimo, mas eu gostaria de trazer Mais de uma Agencia E Mais de um Mes E mais de um ACT de uma mesma vez... para fazer um comparativo... e agrupar isto no meu relatório..

Exemplo...
Quero trazer as Agencias = 002 E 010 E 016
Nos Meses = 08 E 09
Com ACT = 9 E 11

Acho que a combo não é o melhor componente para isto...

Alguma idéia de como eu posso fazer isto?

Estou a dias nesse mesmo problema.. o Access está me dando uma surra neste quesito..
Obrigado a todos.

Isso ae já é outra coisa.

É o que acontece quando se abre um tópico e não se detalha devidamente o que se pretende, mas tranquilo.

Para o que você quer o melhor é utilizar uma ListBox com Multi-Seleção.

Vou ver aqui no meu bau, enquanto espera dê uma tentada.

OK... Irei testar...

Digamos que no dia que postei faltou acrescentar um detalhamento maior... Ficarei esperto na próxima..
Ficou uma visão muito macro, mas a idéia é mesma...

Obrigado por hora...

Att,

JPaulo... consegui carregar o List com os valores...

Porém não estou conseguindo montar o VBA para acrescentar o OR com os valores da Lista...

e chamar meu relatório para exibir os valores.

Vou ficar careca ainda uhaSdhuASD..

Obrigado.

Veja se ajuda, se não amanhã faço um pequeno exemplo.

http://www.databasedev.co.uk/query_using_listbox.html

Grande JPaulo... Muito obrigado pelo exemplo...

Novas, consegui passar mais de um valor para minha consulta... Demorei para conseguir entender como funcionava este "QueryDef".. Mas me trouxe os valores que eu precisava...

E também consegui trazer os valores com mais de 1 ListBox..

Porémmm.. Não entendi neste código como funciona o ALL..
http://www.databasedev.co.uk/query_using_listbox.html

E gostaria de fazer uma pergunta... Eu utilizava minha consulta para gerar um relatório... quando eu clicava no botão Buscar no formulário.. eu chamava uma macro.. que Abria o relatório.. Resultado de uma consulta..
Neste caso, que é com o VB.. Como faço para chamar meu relatório??

Obrigado.

Coloque aqui um exemplo do seu banco para vermos como vai isso...

JPaulo... Tem um pequeno problema...

Todas as minhas tabelas são vinculadas a uma base Oracle...


Viajando aki nos meus códigos tive uma idéia... fiz em 2 passos... vai resolver meu problema, e ainda consegui fazer com totais..
Estou aprendendo a mecher com isto..

Comentei a linha que abria a consulta...
'DoCmd.OpenQuery "Agencia_Carteira_", acViewNormal

E como ele atualiza a consulta... criei um novo botão para chamar ela abrindo um relatório...
O design do relatório ficou meio feio, mas isto é detalhe... Tenho que aprender como fazer um design melhor, usando o assistente fica estranho... mas resolve..

Gostaria de perguntar mais uma coisa...
No relatório eu tenho tudo em códigos... Como posso fazer para substituir estes códigos por uma descrição?

Tipo
MES: 08
ACT: 10

Gostaria de substituir isto por
MES: AGOSTO
ACT: RESIDENCIAL

Como faço isso?
Tentei utilizar o FORMAT no campo FONTE DE CONTROLE em propriedades do componente no relatório...
Mas ele aparece Janeiro e não agosto..
Qual a maneira correta de fazer?

Agradeço a atenção e a paciência... Mas estou aprendendo a mecher com o Access e VBA...

Obrigado.

Alguma dica?? De como faço essas substituições no relatório??

Gostaria de perguntar mais uma coisa...
No relatório eu tenho tudo em códigos... Como posso fazer para substituir estes códigos por uma descrição?

Tipo
MES: 08
ACT: 10

Gostaria de substituir isto por
MES: AGOSTO
ACT: RESIDENCIAL

Como faço isso?
Tentei utilizar o FORMAT no campo FONTE DE CONTROLE em propriedades do componente no relatório...
Mas ele aparece Janeiro e não agosto..
Qual a maneira correta de fazer?

Obrigado a todos.

Boa noite, finando

Cole esta função num módulo


Function NomeMes(Mes As Integer) As String
'criada por Alexandre Neves
'em 2010-09-18
'para finando
'do fórum MaximoAccess
Select Case Mes
Case 1
NomeMes = "Janeiro"
Case 2
NomeMes = "Fevereiro"
Case 3
NomeMes = "Março"
Case 4
NomeMes = "Abril"
Case 5
NomeMes = "Maio"
Case 6
NomeMes = "Junho"
Case 7
NomeMes = "Julho"
Case 8
NomeMes = "Agosto"
Case 9
NomeMes = "Setembro"
Case 10
NomeMes = "Outubro"
Case 11
NomeMes = "Novembro"
Case 12
NomeMes = "Dezembro"
End Select
End Function

No relatório, coloque NomeMes(Mes)

Relativamente à outra conversão, crie código semelhante

Salve Alexandre Neves...

Muito Obrigado pela dica... aprendi mais 2 coisas.. com este seu exemplo...

Funcionou perfeitamente... mais um problema resolvido...


E fica mais uma dúvida que estou quebrando a cabeça a alguns dias... quando eu gero meu relatório, eu chamo uma função que gera um pdf.. à partir do meu relatório..

Utilizei o exemplo que nosso caro amigo Jpaulo me passou (http://www.databasedev.co.uk/query_using_listbox.html), via VBa.. fiz em 2 passos, um que atualiza a consulta, e outro que executa uma macro para abrir o relatório e chamar a função q exporta para pdf.. todas estas funçoes estão em um módulo.. mas como eu posso selecionar N filtros diferentes, o arquivo sempre é sobrescrito.
Eu gostaria de passar os valores dos meus filtros para o nome desse pdf.. Como posso fazer?

eu gero o pdf assim...

Código:

Public Function PDF_AgenciaCarteira()

Dim blRet As Boolean
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
blRet = ConvertReportToPDF("Agencia_Carteira", vbNullString, _
"C:\Relatorios" & "Agencia_Carteira.pdf", False, True, 150, "", "", 0, 0, 0)

eu gostaria de fazer algo do tipo..

Código:

Public Function PDF_AgenciaCarteira()

Dim blRet As Boolean
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
blRet = ConvertReportToPDF("Agencia_Carteira", vbNullString, _
"C:\Relatorios" & "Agencia_Carteira_[Filtro01]_[Filtro02].pdf", False, True, 150, "", "", 0, 0, 0)

sendo que, esses Filtro01 e Filtro02, são campos selecionados em meu formulário, através de um ListBox com multi seleção...

Como posso passar estes valores para este módulo??? E salvá-lo com o nome dos meus filtros? para que eu possa diferenciá-los?

Obrigado a todos pela ajuda...

Teste assim;

Dim blRet As Boolean
blRet = ConvertReportToPDF("Agencia_Carteira", vbNullString, _
"C:\Relatorios" & "Agencia_Carteira" & "[Filtro01]" & "[Filtro02]" & ".pdf", False, True, 150, "", "", 0, 0, 0)
End Function

Salve JPaulo...

Desculpe-me na demora para responder, pois tive um acidente e quebrei a mão, mas aos poucos estou retornando.

Então, não deu muito certo.. Estes valores estão em um ListBox com multi seleção..
Não estou conseguindo colocar estes valores no nome do arquivo..

Existe alguma outra maneira de fazer isto?

Obrigado.

Se preferir coloque num site publico o seu banco ou parte dele para analisar-mos.