[Resolvido]Consulta com Caixa de Comb

Ola...
Espero que esteja tudo bem por estes lados...

Estou a criar uma série de consultas nas quais os nomes a inserir no Critério da consulta tem que ser exactamente igual ao da tabela, certo?

Há forma de colocar num critério de consulta uma caixa de combinação para evitar erros e facilitar a procura do mesmo?

Tipo.. Consulta por Classificação do Evento, critério [Classificação do Evento] ..resposta Conferência Internacional, etc... a ideia é que por vezes os nomes são grandes e têm caracteres ^~ e acontecerá que ao fazer a consulta a pessoa não coloque os ^~ ou mesmo escreva algum erro ortográfico, etc.
Com a minha ideia a pessoa quando quisesse realizar determinada consulta apenas seleccionava o que pretendia (Nome Evento; Ano Evento; Classificação Evento, etc..) dependendo da consulta... e depois de seleccionar era mostrado um relatório com as informações relativas a consulta...

Há forma de fazer isto, ou alguma solução, nas questões do forum não encontrei ninguém com o meu problema...

Abraço

Directamente no criterio na consulta não permite a colocação de combobox`s

O que se faz é inserir uma combobox no formulario, e referenciá-la no criterio da sua consulta.

Forms!SeuFormulario!SuaCombobox

eu ja tinha visto assim uns exemplos...ok...

e ao seleccionar uma qualquer pode ser criado um relatório a partir daí?

Pode sim, mas para isso acontecer terá de ter o seu relatorio vinculado a essa consulta.

exacto exacto....

então será...crio a consulta com os dados que pretendo... crio um novo form e coloco la as comb box?

ha algum exemplo no forum para eu entender?

Simples e feito no momento;

http:// Link removido a pedido do usuário, devido ao exemplo conter informações pessoais.

Boas....consegui adaptar a minha bd só com um grande se não... a combo visualiza os dados, mas no procedimento ele ao seleccionar o pretendido ele não abre o relatório, não abre nada...

Coloquei o código e alterei assim:

Private Sub Caixa1_AfterUpdate()
Dim strRelatorio As String
strRelatorio = "RelatorioEvento"
DoCmd.OpenReport strRelatorio, acPreview
End Sub


Obr...

O seu relatorio tem de estar vinculado à consulta.

A consulta tem de ter no criterio, [Formulários]![SeuFormulario]![Caixa1]

RelatorioEvento, tem de ser o nome exacto do seu relatorio.

Veja o exemplo com atenção e sem pressas, estou o dia todo aqui para o ajudar.

Mas eu tenho isso mesmo....

Se poder dê uma olhadela...

http:// Link removido a pedido do usuário, devido ao exemplo conter informações pessoais.

Obrigado

Amigão, no SQL da Combobox não tinha o criterio de referencia à caixa1.

http:// Link removido a pedido do usuário, devido ao exemplo conter informações pessoais.

Nota:
Antes de postar exemplos, faça sempre o Compactar/Reparar, de 8,5 megas passou para 2 megas.

Amigo...

Tem toda a razão relativo ao compactar reparar... sorry...

No SQL .... isso não é no separador do acontecimento, depois de actualizar?

Nas propriedades do relatorio, Guia Dados, fonte de registro (Record Source).

Se pressionar os 3 pontinhos nessa linha, abre o SQL (consulta) que dá origem a esse relatorio.

Amigo....

coloquei tudo como disse... vi todos os passos... continua sem dar...

http:// Link removido a pedido do usuário, devido ao exemplo conter informações pessoais.

Vi todo o SQl....coloquei da mesma forma...adaptado e nada...

Vou testar aqui o seu.

Mas o que lhe mandei funciona, certo ?

Amigo Rui, já vi qual é o seu problema.

O formulario Consultas não pode ter as Adições, Filtros, etc... desabilitados.

Habilite tudo, na Guia Dados das propriedades do formulario, e coloque no evento VBA depois de actualizar na combobox que tambem não tem lá.

Aqui;

http:// Link removido a pedido do usuário, devido ao exemplo conter informações pessoais.

Haaa....ok.... ja estava a alterar....

Obrigado...

Quando selecciono o que pretendo ele depois fica sempre selecionado....ha forma de sempre que escolho e abre um relatorio as caixas voltarem a "branco"?

Ja agora...Posso criar macro a definir que quando escolhido a opção ele feche o form, e depois no relatorio crio um botão para voltar?

Não faça com Macro, continue com o VBA.

Se quiser só limpar as Combobox`s


Private Sub Caixa1_AfterUpdate()
Dim strRelatorio As String
strRelatorio = "RelatorioEvento"
DoCmd.OpenReport strRelatorio, acPreview
Me.Caixa1 = ""
End Sub


Se quiser fechar o formulario;

No evento VBA ao Carregar no seu relatorio:

Private Sub Report_Load()
DoCmd.Close acForm, "Consultas"
End Sub

Tá a ficar muito bom...obrigado....

Mais uma coisa...qual o comando VBA para nas combox aparecer uma opção TODOS???

Como assim "Todos"

Pode detalhar ?

Agora isto complicou... nao estou a conseguir abrir a bd no 2007.... grrr....

Digamos que, quando escolho a consulta...ele vai a um especifico....ha forma de colocar um valor TODOS... como se o critério fosse... Como "*" & [critério] & "*" ..

Dá sim;

Uma nova combobox, com Lista de Valores.

Na linha valores coloque "Todos"

Faça o seu relatorio vinculado a uma consulta sem criterio algum.

No evento VBA após atualizar dessa combo;

Private Sub NovaCombox_AfterUpdate()
Dim strRelatorio As String
strRelatorio = "RelatorioTodos"
DoCmd.OpenReport strRelatorio, acPreview
End Sub


Existem mil maneiras de fazer nestum....

"Existem mil maneiras de fazer nestum...." .... muito bem visto....


Abraço

Estive a estudar e treinar o seu sql, mas nao estava a fazer o que eu pretendia.... Estou a tentar fazer isto :






É possível?

Para fazer o que você pretende é tambem simples;

1º no SQL da combobox "Evento",

SELECT Registo_Eventos.[Nome Evento],Registo_Eventos.[Nome Evento]
FROM Registo_Eventos
UNION SELECT "Todos", "*"
FROM Registo_Eventos;

2º Insira uma caixa de texto no form, em modo invisivel e dê-lhe o nome de txtFiltra-

3º No criterio do campo Nome_Evento na consulta que alimenta o seu Relatorio:

Like [Forms]![Consultas]![txtFiltra]

Rui, funcionou ?

Se funcionou diga-nos para se dar o tópico como Resolvido, por favor.

Peço desculpa Paulo, não tinha visto a resposta a este tópico....

Ja devolvo resposta...

Bom dia....

Resultou a funcionalidade JPaulo.... Obrigado a todos...até novas dúvidas

Obrigado pelo retorno, o forum agradece.

Precisando de novo dê um grito.

Desculpem reabrir o tópico.

Eu tenho este procedimento:

Private Sub Caixa2_AfterUpdate()
Me.txtFiltra2.Value = Me.Caixa2.Column(1)
Me.txtFiltra2.Requery
Dim strRelatorio As String
strRelatorio = "SituaçãoAguardar"
DoCmd.OpenReport strRelatorio, acPreview
Me.Caixa2 = ""
DoCmd.Close acForm, "Menu_Consultas"
End Sub

dá para definir critério de consulta "0" ou "-1" (campos SIM/NÃO) no código? Pois ao colocar critério na consulta ele não me obedece...
Para este caso seria "0"

Está resolvido...


SELECT [Alunos Interessados].[Nome Completo], CETS.[Designação do CET], CETS.Localidade, [Regime Horário].Regime, [Preferência Opções].Opção
FROM [Regime Horário] INNER JOIN ([Preferência Opções] INNER JOIN (CETS INNER JOIN ([Alunos Interessados] INNER JOIN [Interessados e Opções] ON [Alunos Interessados].CodCandidato=[Interessados e Opções].CodCandidato) ON CETS.CodCET=[Interessados e Opções].CodCET) ON [Preferência Opções].CodOpcao=[Interessados e Opções].CodOpcao) ON [Regime Horário].CodRegime=[Interessados e Opções].CodRegime
WHERE (((CETS.[Designação do CET]) Like Forms!Menu_Consultas!txtFiltra2) And (([Interessados e Opções].[A aguardar])=-1));

tinha =0 e deve conter -1 ...

para efeito pratico tem que estar activado qualquer dos campos SIM/NAO

Só mais uma dica;

Pode sempre utilizar para os filtros das chekbox`s

0 ou False
-1 ou True

devo construir a linha como?

Tal como está, apenas lhe mostrei uma outra maneira de filtrar as chekbox`s

WHERE (((CETS.[Designação do CET]) Like Forms!Menu_Consultas!txtFiltra2) And (([Interessados e Opções].[A aguardar])=-1));

Ou

WHERE (((CETS.[Designação do CET]) Like Forms!Menu_Consultas!txtFiltra2) And (([Interessados e Opções].[A aguardar])=True));

haa...ok...

Obrigado!