[Resolvido]Criar caixa de combinação com relatórios

Pessoal boa tarde.

Gostaria de criar uma caixa de combinação onde a lista fosse vários relatórios, dai escolho um e quando clicar em um botão ok ele vai buscar o relatório que esta selecionado na de combinação.

como posso fazer isso.

podem me ajudar.

Obrigado.

Dá uma busca no forum que encontras alguns exemplos

Pesquisei mas não devo estar procurando corretamente.

Por isso estava pensando aqui.

Gostaria de criar uma caixa de combinação assim.

tenho uma tabela chamada relatórios.

codrel Nome
1 relatório 1
2 relatório 2
3 relatório 3

dai quando escolher um deles

no botão Chamado Filtro ele faça um evento do tipo :

se na caixa de combinação codrel for 2 ele abra o relatório 2.

como posso construir esse evento.

eu vou determinar quais relatórios deverá abrir dentro do evento, apenas não sei como criar o evento para determinar
1 vai abrir X relatório.
caso seja 2
abre x outro relatório.


obrigado pela ajuda.

Veja esse exemplo amigo.


https://dl.dropboxusercontent.com/u/90217826/RelatorioCaixaListagem2.mdb

Existe um exemplo nas mensagens do amigo João Paulo que foi postado recentemente.

Pessoal bom dia.

Olhei o exemplo a forma seria essa.
Porém são vários relatórios cada um que chama tabelas diferentes e consultas diferentes.
Hoje tenho muitos botões na tela para fazer esses relatório, usando a caixa de combinação fica mais organizado sabe.

Tipo eu poderia cria uma tabela de relatórios onde cadastro eles e depois crio a caixa de combinação com um botão do lado para chamar ele.

Exemplo
Tabela de relatórios
Cód Nome
1 Estoque
2 Funcionários
3 Caixa

Dai quando escolho o Estoque e clico no botão ele executaria assim.

Pegaria o que escolhi e executaria.

Se for 1 que é o estoque abre o relatório X
Se for 2 abre o relatório y

E assim por diante eu deixaria na função qual relatório deve abrir.

Essa função que não sei como monta-la pois pode ter 3 ou mais relatórios que quero colocar na caixa de combinação.

Obrigado pela ajuda pessoal

pessoal buscando eu consegui

só que estava para imprimir direto e substitui o final.

Mas não sei como fazer para que eu escolha o relatório ele visualize, imprimindo dá certo mas para visualizar não

meu código

Private Sub Combina71_BeforeUpdate(Cancel As Integer)
If ([Combina71] = "Contas à Pagar - Em Aberto") Then DoCmd.OpenReport "Contas_a_pagar_ab_peri", acPreview
If ([Combina71] = "Contas à Pagar - Liquidadas") Then DoCmd.OpenReport "Contas_a_pagar_liqui_peri", acPreview
If ([Combina71] = "Contas à Receber - Em Aberto") Then DoCmd.OpenReport "Contas_a_receber_ab_peri", acPreview
If ([Combina71] = "Contas à Receber - Liquidadas") Then DoCmd.OpenReport "Contas_a_receber_liqui_peri", acPreview
If ([Combina71] = "Contas à Pagar / Receber - Em Aberto") Then DoCmd.OpenReport "Relatorio_em_aberto_geral", acPreview
If ([Combina71] = "Contas à Pagar / Receber - Liquidadas") Then DoCmd.OpenReport "Relatorio_liquidado_geral", acPreview
If ([Combina71] = "Contas Classificadas por Cliente/Fornecedor - Em Aberto") Then DoCmd.OpenReport "Relatorio_em_aberto_geral_class", acPreview

End Sub

não sei como fazer para escolher e já visualizar ou criar um botão que faça executar ele.

Código:

Private Sub Combina71_AfterUpdate(Cancel As Integer)
    Select Case Me.Combina71
        Case  "Contas à Pagar - Em Aberto"
        DoCmd.OpenReport "Contas_a_pagar_ab_peri", acViewPreview, "", "", acNormal
        Case  "Contas à Pagar - Liquidadas"
        DoCmd.OpenReport "Contas_a_pagar_liqui_peri", acViewPreview, "", "", acNormal
        Case  "Contas à Receber - Em Aberto"
        DoCmd.OpenReport "Contas_a_receber_ab_peri", acViewPreview, "", "", acNormal
        Case  "Contas à Receber - Liquidadas"
        DoCmd.OpenReport "Contas_a_receber_liqui_peri", acViewPreview, "", "", acNormal
        Case  "Contas à Pagar / Receber - Em Aberto"
        DoCmd.OpenReport "Relatorio_em_aberto_geral", acViewPreview, "", "", acNormal
        Case  "Contas à Pagar / Receber - Liquidadas"
        DoCmd.OpenReport "Relatorio_liquidado_geral", acViewPreview, "", "", acNormal
        Case  "Contas Classificadas por Cliente/Fornecedor - Em Aberto"
        DoCmd.OpenReport "Relatorio_em_aberto_geral_class", acViewPreview, "", "", acNormal
    End Select
End Sub


João Paulo.

Na caixa de combinação eu coloquei conforme o código descrito acima.
Porém ele não executa.

na caixa de combinação eu coloquei assim.

Tipo de origem da linha escolhi Lista de valores.
Em Origem da Linha coloquei os nomes.
Depois no evento coloquei antes de atualizar o evento acima.

Mas escolho o relatório e nada acontece.

teria como deixar para escolher o nome do relatório na caixa de combinação e depois criar um botão que ao clicar ele puxe o nome da caixa de combinação e execute o relatório que desejo conforme o nome selecionado.

Pessoal resolvido.

Paulo e amigos.

O problema estava na parte da origem da linha onde o " - " estava maior e não batia com a escrita do evento.

Obrigado a todos.

Paulo obrigado o dai rodou ou seu código.
obrigado

Só tinha de funfar mesmo, nada mais simples que um Select Case.
Obrigado pelo retorno o forum agradece.