[Resolvido]Incluir duas condições na exibição de um Relatório

Boa tarde pessoas,

gostaria de saber se é possível incluir mais uma condição no filtro do relatório em destaque:

tipo:


DoCmd.OpenReport "rtl_produtividade_rel", acViewReport, "", Setor & Turn


sei que ta ainda meio vacaiado as condições mas para este critério ajudaria muito pra não ter que criar mais uma consulta e outro relatorio.



Private Sub Comando61_Click()

Dim Setor, Turn

Turn = ("[Turno] = [Formulários]![frm_produtividade]![lista70]")
Setor = ("[area] = [Formulários]![frm_produtividade]![area]")


If DateDiff("n", [dt4], [dt3]) > 0 Then
MsgBox "Data Final inferior a Data incial! ", vbOKOnly + vbExclamation + vbDefaultButton1, "ATENÇÃO"
DoCmd.Close acReport, "rtl_produtividade_rel"
dt4.SetFocus
dt4.value = ""
End If

If IsNull(dt3) Then
    MsgBox "Data inicial não informada!", vbExclamation, "Atenção"
    dt3.SetFocus
ElseIf IsNull(dt4) Then
    MsgBox "Data final não informada!", vbExclamation, "Atenção"
    dt4.SetFocus


ElseIf IsNull(area) Then

DoCmd.OpenReport ("rtl_produtividade_rel"), acViewReport


Else
 
DoCmd.OpenReport "rtl_produtividade_rel", acViewReport, "", Setor

End If

End Sub






agradeço

Olá! Primeiro, uma dica: procure sempre declarar o tipo das variáveis. Variável não declarada assume o tipo Variant que apesar de funcionar, pode não ser o mais adequado:

Dim Setor As String, Turn As String

Para adicionar condições, basta usar os operadores Or ou And:

DoCmd.OpenReport "rtl_produtividade_rel", acViewReport, "", Setor & " Or " & Turn

Agora, se o que quer é a possibilidade de escolher qual condição quer, crie uma combo com uma lista de condições:

DoCmd.OpenReport "rtl_produtividade_rel", acViewReport, "", Me.NomeDaCombo.Value

Beleza, vou fazer os testes. por hora agradeço pelo help.

Muitíssimo obrigado, funcionou perfeito. tks


ficou assim


Private Sub Comando61_Click()

Dim SETOR As String, Turn As String


Turn = ("[Turno] = [Formulários]![frm_produtividade]![lista70]")
SETOR = ("[area] = [Formulários]![frm_produtividade]![area]")


If DateDiff("n", [dt4], [dt3]) > 0 Then
MsgBox "Data Final inferior a Data incial! ", vbOKOnly + vbExclamation + vbDefaultButton1, "ATENÇÃO"
DoCmd.Close acReport, "rtl_produtividade_rel"
dt4.SetFocus
dt4.value = ""
End If

If IsNull(dt3) Then
    MsgBox "Data inicial não informada!", vbExclamation, "Atenção"
    dt3.SetFocus
ElseIf IsNull(dt4) Then
    MsgBox "Data final não informada!", vbExclamation, "Atenção"
    dt4.SetFocus


ElseIf Not IsNull(lista70) And IsNull(area) Then

DoCmd.OpenReport "rtl_produtividade_rel", acViewReport, "", Turn


ElseIf Not IsNull(area) And IsNull(lista70) Then

DoCmd.OpenReport "rtl_produtividade_rel", acViewReport, "", SETOR


ElseIf IsNull(area) And IsNull(area) Then

DoCmd.OpenReport ("rtl_produtividade_rel"), acViewReport


Else
 
DoCmd.OpenReport "rtl_produtividade_rel", acViewReport, "", Turn & " and " & SETOR

End If

End Sub





ate mais