[Resolvido]Relatório a partir de uma consulta

Fiz um banco de dados para o controle de processos do local em que trabalho. Nele consigo controlar a entrada, saída e circulação do processo por toda a repartição.Fiz uma consulta que leve a um relatório a partir de um critério (Nº do Processo). Como desejo que venha as informações de mais de um processo por relatório, repeti mais 3 vezes esse critério, de maneira que quando abro a consulta ela me pergunta o Nº do processo 4 vezes. O meu problema passou a ser o seguinte:

* Gostaria de saber se tem como fazer um formulário com uma caixa de combinação (Nº do Processo) e um botão incluir. Cada vez que eu colocar um número de processo na caixa de combinação e apretar o botão incluir, esse número vai para uma caixa de texto, podendo aculumar 4 números. Colocar mais um botão chamado gerar guia para direcionar ao relatório contendo as informações dos 4 processos.

Sou iniciante e já tentei diversas formas e não consegui. Cheguei a achar um modelo na net do que eu quero, mas não consegui adaptar ao meu bd.

Caso possam me ajudar, já fico agradecida.

Luciana

Bom dia,

você usa 1 consulta apenas...

se sim

no form coloque uma combobox

o item Nº do Processo deve ser a primeira coluna

...

já na consulta (Nos critérios) coloque para o campo Nº do Processo

=[FORMS]![SeuFormulário]![Sua combobox]

Desculpa minha burrice, mas o que é um combox? Como faço para fazer? Como faço para fazer um? Realmente tenho apenas 1 consulta para esse relatório.

Luciana

Seja bem vinda ao forum. parece-me que anda aí muita confusão e que a sua BD deve estar mal estruturada. Uma combo só por si já fornece valores, não necessitando de caixas de texto para ligar à combo, excepto nos casos em que seja necessário popular dados. Será que poderia ser mais clara na descrição do problema? Ficaria mais fácil ajudar.

Olá Luciana, seja bem vinda ao forum. Combox ou combobox é caixa de combinação. Uma maneira de se obter o que você precisa, pode ser assim: você tem a combo com os valores a serem escolhidos. Pode criar 4 campos de texto: txt1, txt2, txt3 e txt4. No evento "Após atualizar" da sua combo, coloque assim:

If IsNull(Me.txt1) Then
Me.txt1 = Me.SuaCombo
ElseIf IsNull(Me.txt2) Then
Me.txt2 = Me.SuaCombo
ElseIf IsNull(Me.txt3) Then
Me.txt3 = Me.SuaCombo
ElseIf IsNull(Me.txt4) Then
Me.txt4 = Me.SuaCombo
Else
MsgBox "Já foi escolhido o número máximo de registros", vbOkOnly + vbInformation, "ATENÇÃO"
Enf If

No critério desse campo na consulta, coloque assim:

Como "*" & Formulários!NomeDoForm!txt1 & "*" OU "*" & Formulários!NomeDoForm!txt2 & "*" OU "*" & Formulários!NomeDoForm!txt3 & "*" OU "*" & Formulários!NomeDoForm!txt4 & "*"

Dependendo do caso, pode ser que tenha que ser assim:

Como "*" & Formulários!NomeDoForm!txt1 & "*" E "*" & Formulários!NomeDoForm!txt2 & "*" E "*" & Formulários!NomeDoForm!txt3 & "*" E "*" & Formulários!NomeDoForm!txt4 & "*"

Fiz um exemplo simples para você dar uma olhada pra entender melhor.

veja a combobox no formulário o código vba nela contido
e veja também a consulta do relatório.

Criqui,

Fiz o que aconselhou:

1. Montei um formulário (chamado teste) com um combobox que procura os registros na minha consulta a partir do Nº do Processo e coloque o nome de SeuCombo;
2. Criei txt1, txt2, txt3 e txt4;
3. No evento após atualizar coloquei o código que descreveu;
4. No critério da consulta coloquei o código que me descreveu.

O formulário apareceu da forma que imaginei pois coloco o Nº do Processo no combobox que preenche txt1, txt2, txt3 e txt4.

Mas como faço agora para gerar o relatório?

Tentei fazer criando uma botão de comando ligado a um macro que abre o relatório, sendo que o relatório não vem com os dados do formulário pesquisa que criei. Pode continuar me ajudando?

Caso possam me adicionar

Para gerar o relatório, você deve selecionar a consulta e clicar em Relatório. Aqui vai depender se estás a usar o Access 2007/2010 ou anterior. Para abrir o relatório no botão do formulário, pode colocar no evento "Ao clicar" do botão:

DoCmd.OpenReport "NomeDoRelatório", acViewReport

Vou ter que dar uma saída agora mas daqui a alguns minutos eu retorno e aí a gente pode se falar pelo msn, caso necessário, mas a solução final deve ser postada aqui para servir de consulta a outros membros, OK?

Fiz o que aconselhou, sendo que não está abrindo para visualização, e sim, imprimindo.

Meu access é o 2003.

Coloque acViewPreview, ao invés de acViewReport

Vocês devem estar me achando a mais burras das participantes do forum. Rsrsrsrsrsrs.

Realmente apareceu a visualização do relatório, mas com todos os dados já cadastrados e não com os dados selecionados no txt1, txt2, txt3 e txt4.

De coração, me desculpem pela amolação, mas estou a mais de 2 semanas tendo fazer isso apenas lendo os foruns, mas não consegui e o único jeito que tive foi enviar perguntas.

Aqui não rótulamos ninguém. apenas ajudamos nas dúvidas existentes. Ninguém sabe tudo e ninguém nasce ensinado. Sinta-se livre para expor as suas dúvidas.

Como faço para que apareça no relatório os registros dos processos selecioandos no txt1, txt2, txt3 e txt4?

Uma sugestão

Porque não coloca a BD disponível para download. Talvez fica-se mais fácil ajudar.

Luciana, se puder colocar uma cópia do aplicativo para a gente dar uma olhada, pode ser que seja mais rápido. Pode compactar em zip e colocar como anexo aqui mesmo.

Estou tentando colocar, mas está dando erro. Vou continuar tentando.

Este é o bd.

Resolvemos o assunto via msn. Vou dar uma limpada no exemplo para postar aqui para futuras consultas. Amanhã devo fazer isso.

Graças a ajuda deste forum consegui resolver meu problema. Nunca imaginei que fosse ter uma ajuda tão rápida e com tanta dedicação. A todos um muito obrigada e em especial ao criquio que teve tanta paciência em tirar as minhas dúvidas.

Nosso prazer é poder ajudar mesmo. Agradecemos pelas palavras

Como prometido, vai o exemplo. O que foi implementado nesse exemplo:

• A consulta usa 4 campos do formulário para o filtro.

• O valor desses campos são escolhidos em uma combo.

• A combo não permite repetir Números nos campos.

Esperamos que possa servir para outros membros.