Início
![[Resolvido]Filtrar relatorio atraves de um formulário Empty](https://2img.net/i/empty.gif)
lulenunes 5/5/2016, 17:01Caro amigos, boa tarde.
Possuo um relatório chamado RL_Form561 que tem como origem uma consulta chamada CS_Form561 baseada em várias tabelas. Este relatório contém os seguintes campos: CodFunc, NomeFunc, CodPOP, NomePOP, Autor. e SiglaDepto.
O caso é que a utilização varia conforme a ocasião, as vezes preciso um relatório por POP, as vezes por Depto e as vezes por funcionário, como sou bem amador em VBA, acabei por criar tres relatórios, um para cada necessidade e no formulário coloquei uma caixa de combinação com as seguintes opções: "Por POP", "Por Funcionário", "Por Setor".
Para que eu possa fazer a seleção, estou iniciando com o seguinte código:
IF CxComb_Opcao = "Por POP" Then
Docmd.OpenReport "RL_Form561POP", acViewPreview
Docmd.Maximize
End IF
legal, isto funciona somente para uma opção, neste caso abrir o relatório por POP, porém, como devo dar continuidade no código para que abra cada relatório quando selecionado na cxcomb?
grato a todos
Possuo um relatório chamado RL_Form561 que tem como origem uma consulta chamada CS_Form561 baseada em várias tabelas. Este relatório contém os seguintes campos: CodFunc, NomeFunc, CodPOP, NomePOP, Autor. e SiglaDepto.
O caso é que a utilização varia conforme a ocasião, as vezes preciso um relatório por POP, as vezes por Depto e as vezes por funcionário, como sou bem amador em VBA, acabei por criar tres relatórios, um para cada necessidade e no formulário coloquei uma caixa de combinação com as seguintes opções: "Por POP", "Por Funcionário", "Por Setor".
Para que eu possa fazer a seleção, estou iniciando com o seguinte código:
IF CxComb_Opcao = "Por POP" Then
Docmd.OpenReport "RL_Form561POP", acViewPreview
Docmd.Maximize
End IF
legal, isto funciona somente para uma opção, neste caso abrir o relatório por POP, porém, como devo dar continuidade no código para que abra cada relatório quando selecionado na cxcomb?
grato a todos
