[Resolvido]Comparação para abrir relatórios

Olá pessoal!

Estou com uma dificuldade para realizar a comparação no evento apos o click de um botão, esse botão está num formulário com alguns campos para a seleção, a depender dos resultados das seleções abro os respectivos relatórios.
Nesse formulário de chamada dos relatórios tenho os campos para a seleção e alguns deles vai ficar sem registro, então terei que fazer as comparações nos campos que contem registro e sem registro (vazio).

Já estou com todos os relatórios prontos através das consultas que atende a minha necessidade.

Desde já agradeço pela ajuda!

Boa tarde e bem-vindo ao fórum
Leia e respeite as regras para termos o fórum organizado e mantermos os membros respeitados

Colocou uma dúvida, um membro deu uma resposta e o colega não deu seguimento
Dê continuidade aos temas por si abertos

Sobre a presente dúvida, dê todos os pormenores e pode disponibilizar dados significativos para se avaliar melhor e trabalhar em concreto a sua dúvida

Olá Alexandre, boa tarde!
Respondi sim a resposta do colega, como conseguir resolver a dúvida tentei excluir o tópico mas não conseguir e acabei excluindo somente a resposta que fiz ao colega.
Desculpe aí pela falha.

Quando consegue resolver, divulgue como conseguiu para ajudar outros que tenham a mesma dúvida. É este o objectivo do fórum
Assim, vá ao tema e complete-o e dê-o por Resolvido no botão apropriado

Sobre a duvida vou tentar explicar, sou iniciante no Access.

Tenho um projeto para registro de ocorrências em linhas de produção, já tenho finalizado todos os cadastros dos equipamentos, setores, áreas, linhas, e funcionários.
Já finalizei também todas as consultas, formulários e login, estou agora iniciando os relatórios, como o meu projeto se baseia exclusivamente em seleção por filtros tenho várias consultas para obter os dados necessários para as fonte dos registros dos formulários e relatórios.
O meu problema agora é em conseguir num formulário de seleção fazer a programação para chamar os relatórios de acordo as seleções que for realizada nesse formulário.
Tenho várias Combobox com filtros e preciso fazer a programação de comparação nesses campos para chamar os relatórios.
Na verdade preciso mesmo é de um norte, para assim conseguir finalizar o projeto.

Crie uma consulta e no criterios dos campos dessa consulta coloque a referencia a essas combos do formulario, exemplo Forms!SeuForm!SuaCombo.

Alimente os seus relatorios com essa ou essas consultas.

Olá JPaulo!

Os resultados das consultas de acordo com as seleções no formulário seleção já conseguir finalizar e associar aos relatórios respectivos, a minha dificuldade é para criar a programação no evento Click de um botão para chamar esses relatórios de acordo aos campos selecionados.
Já tentei alguns procedimentos que encontrei no fórum mas ainda não conseguir finalizar.

Exemplo:

Tenho 6 ComboBox sendo que a chamada dos relatórios vai ocorrer de acordo as seleções nessas combo.

combo1 + combo2 = Relatório 1
combo1 + combo3 - = Relatório 2
combo1 + combo2 + combo3 = Relatório 3
combo1 + combo3 + combo4 = Relatório 4
combo1 + combo2 + combo4 = Relatório 5
combo1 + combo3 + combo5 = Relatório 6
combo1 + combo4 + combo5 = Relatório 7
combo1 + combo5 + combo6 = Relatório 8
combo1 + combo4 + combo6 = Relatório 9

mais ou menos essa ideia de logica.

Olá Henri

Talvez algo assim

Código:

if not isnull(combo1) and not isnull(combo2) then
  Chamar o relatório 1
elseif not isnull(combo1) and not isnull(combo3) then
  Chamar o relatório 2
elseif not isnull(combo1) and not isnull(combo2) and not isnull(combo3) then
  Chamar o relatório 3
....
endif
 

Saludos

Olá Franklin!

Obrigado pela ajuda, irei testar logo pela manhã.

Olá pessoal!

Não estou conseguindo fazer essa lógica de comparações funcionar corretamente.
Alguém pode me ajudar?

Código:

 Private Sub btnRelatorio_Click()

If Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) Then
  DoCmd.OpenReport "RData", acViewReport

ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxTecMatricula) Then
  DoCmd.OpenReport "RTecnico", acViewReport
 
ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxTecMatricula) And Not IsNull(Me.cbxIdMaquina) Then
  DoCmd.OpenReport "RTecLinha", acViewReport

ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxTecFuncao) Then
  DoCmd.OpenReport "RFuncao", acViewReport

ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxturno) Then
  DoCmd.OpenReport "RTurno", acViewReport
 
ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxTecFuncao) And Not IsNull(Me.cbxIdMaquina) Then
  DoCmd.OpenReport "RFunLinha", acViewReport

ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxIdMaquina) Then
  DoCmd.OpenReport "RLinha", acViewReport
 
ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxIdMaquina) And Not IsNull(Me.cbxArea) Then
  DoCmd.OpenReport "RArea", acViewReport
 
ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxIdMaquina) And Not IsNull(Me.cbxArea) And Not IsNull(Me.cbxSetor) Then
  DoCmd.OpenReport "RSetor", acViewReport
 
ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxIdMaquina) And Not IsNull(Me.cbxArea) And Not IsNull(Me.cbxSetor) And Not IsNull(Me.cbxTipo) Then
  DoCmd.OpenReport "RTipo", acViewReport

End If

End Sub

Bom dia

Código:

Private Sub btnRelatorio_Click()
  If Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxTecMatricula) And Not IsNull(Me.cbxIdMaquina) Then
      DoCmd.OpenReport "RTecLinha", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxTecMatricula) Then
      DoCmd.OpenReport "RTecnico", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxTecFuncao) And Not IsNull(Me.cbxIdMaquina) Then
      DoCmd.OpenReport "RFunLinha", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxTecFuncao) Then
      DoCmd.OpenReport "RFuncao", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxturno) Then
      DoCmd.OpenReport "RTurno", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxIdMaquina) And Not IsNull(Me.cbxArea) And Not IsNull(Me.cbxSetor) Then
      DoCmd.OpenReport "RSetor", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxIdMaquina) And Not IsNull(Me.cbxArea) And Not IsNull(Me.cbxSetor) And Not IsNull(Me.cbxTipo) Then
      DoCmd.OpenReport "RTipo", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxIdMaquina) And Not IsNull(Me.cbxArea) Then
      DoCmd.OpenReport "RArea", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) And Not IsNull(Me.cbxIdMaquina) Then
      DoCmd.OpenReport "RLinha", acViewReport
  ElseIf Not IsNull(Me.txtdatainicial) And Not IsNull(Me.txtDataFinal) Then
      DoCmd.OpenReport "RData", acViewReport
  End If
End Sub


Olá Alexandre!

Fiz á alteração no código mas só faz a chamada do relatório "RTecnico" justamente no If.

Dê continuidade a este tema. Eliminei o outro

Com seu código não poderá abrir mais que 1 relatório. Caso aconteça, explique em que situações e quais relatórios ele abre

Reveja a sua lógica. O seu erro está na lógica
Repare:
Para funcionar bem deve colocar em 1º lugar a comparação que envolvem mais controlos e só em seguida as comparações que tivessem menos controlos

Caso tenha preenchido TxtDataInicial, TxtDataFinal, CbxTecMatricula e CbxIdMaquina
com o seu código ele abria o relatório RData porque tinha em 1º a verificação do TxtDataInicial e TxtDataFinal

Veja assim

Código:

Private Sub btnRelatorio_Click()
  If Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxTecMatricula) > 0 And Len("" & cbxIdMaquina) > 0 Then
      DoCmd.OpenReport "RTecLinha", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxTecMatricula) > 0 Then
      DoCmd.OpenReport "RTecnico", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxTecFuncao) > 0 And Len("" & cbxIdMaquina) > 0 Then
      DoCmd.OpenReport "RFunLinha", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxTecFuncao) > 0 Then
      DoCmd.OpenReport "RFuncao", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxturno) > 0 Then
      DoCmd.OpenReport "RTurno", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxIdMaquina) > 0 And Len("" & cbxArea) > 0 And Len("" & cbxSetor) > 0 Then
      DoCmd.OpenReport "RSetor", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxIdMaquina) > 0 And Len("" & cbxArea) > 0 And Len("" & cbxSetor) > 0 And Len("" & cbxTipo) > 0 Then
      DoCmd.OpenReport "RTipo", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxIdMaquina) > 0 And Len("" & cbxArea) > 0 Then
      DoCmd.OpenReport "RArea", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 And Len("" & cbxIdMaquina) > 0 Then
      DoCmd.OpenReport "RLinha", acViewReport
  ElseIf Len("" & txtdatainicial) > 0 And Len("" & txtDataFinal) > 0 Then
      DoCmd.OpenReport "RData", acViewReport
  End If
End Sub

Agradeço pela ajuda Alexandre,

Tentei com esse novo código, mas continua abrindo somente o relatório "RTecLinha" mesmo alterando todas as seleções só chama o "RTecLinha"

Estou agora modificando minhas consultas para deixar todas as seleções do formulário carregar as informações em somente uma consulta, sendo assim gerando somente um relatório.

Vou tentar dessa forma pra ver se consigo finalizar esse projeto.

Caso tenha mais alguma ideia ficarei muito grato pela ajuda.

Gostaria de agradecer a todos pela ajuda, conseguir finalizar deixando todas as seleções do formulário gerando uma unica consulta, sendo assim um único relatório.

O código ficou assim:

Código:

Private Sub btnRelatorio_Click()
  If IsNull(Me.txtdatainicial) And IsNull(Me.txtdatafinal) Then
      MsgBox "Campos Data Inicial e Data Final são obrigatório...", vbInformation
  Else
      DoCmd.OpenReport "RGeral", acViewReport
  End If
End Sub

Muito obrigado!