[Resolvido]Consulta com vários critérios

Boa noite,

Gostaria de saber como faço para inserir vários critérios em um mesmo campo da consulta.

Tentei utilizar assim, mas não está funcionando:

Como "*" & [Forms]![Frm_filtros_C_Ismael]![Posto1] E [Forms]![Frm_filtros_C_Ismael]![Posto2] E [Forms]![Frm_filtros_C_Ismael]![Posto3] & "*"

Tenho um Form de filtros, onde utilizei 3 campos: Posto1, Posto2 e Posto3.

Alguma sugestão.

Preciso dizer que antes já pesquisei no fórum, mas não encontrei nada de acordo com os critérios que coloquei para buscar.

Obrigado

Ismael.

Cada critério deve ser precedido por um "como":

Código:

Como "*" & [Forms]![Frm_filtros_C_Ismael]![Posto1] Ou Como "*" & [Forms]![Frm_filtros_C_Ismael]![Posto2] & "*" Ou Como "*" & [Forms]![Frm_filtros_C_Ismael]![Posto3] & "*"

O "Ou" vai retornar qualquer um dos três postos. Se você prefere registros que constem os três postos ao mesmo tempo, aí você troca o "Ou" pelo "E"(sem aspas).

hiperjohn

Obrigado pela dica, no entanto, fiz o teste com a sua sugestão, mas não filtrou corretamente. Os 3 campos. Posto1, Posto2 e Posto3, são apenas para que se eu precisar filtrar por algum posto específico, e se eu não colocar nenhum posto, trás todos os que eu tenho lançado.

Onde será que pode estar o erro?

Bom dia,
Comece com VBA, é mais poderoso e mais amigável

Alexandre, segui sua dica, inclusive aproveitando um código que você fez pra mim em outro tópico.


' Ao inserir um critério no campo Posto1, filtrou corretamente, mas quando coloquei critérios nos campos Posto2 e Posto3, não filtrou nada. Onde está o meu erro?





Private Sub Abrir_Form_Click()

Dim strFiltro As String


If Not IsNull(Posto1) Then
If strFiltro = "" Then
strFiltro = "Unidade='" & Posto1 & "'"
Else
strFiltro = strFiltro & " and Unidade='" & Posto1 & "'"
End If
End If



If Not IsNull(Posto2) Then
If strFiltro = "" Then
strFiltro = "Unidade='" & Posto2 & "'"
Else
strFiltro = strFiltro & " and Unidade='" & Posto2 & "'"
End If
End If



If Not IsNull(Posto3) Then
If strFiltro = "" Then
strFiltro = "Unidade='" & Posto3 & "'"
Else
strFiltro = strFiltro & " and Unidade='" & Posto3 & "'"
End If
End If



DoCmd.OpenReport "Relatório1", acViewPreview, , strFiltro


End Sub

Não explicou bem, mas provavelmente quer as condições funcionem separadamente. Se for isso, coloque OR em vez de AND

Alexandre, consegui resolver agora, com VBA mesmo. Obrigado pela dica.

Boa noite Ismael,

Você poderia por gentileza compartilhar o script VBA que você utilizou?
Estou passando pela mesma dúvida que você estava passando.

Claro,

Segue aí, o código que eu usei para resolver, no meu caso:


Private Sub Abrir_Form_Click()

On Error Resume Next

Dim strFiltro As String




If Not IsNull(Posto1) And Not IsNull(Posto2) Then
If strFiltro = "" Then
strFiltro = "(Unidade='" & Posto1 & "' or Unidade='" & Posto2 & "' or Unidade='" & Posto3 & COM & "')"
Else
strFiltro = strFiltro & " and (Unidade='" & Posto1 & "' or Unidade='" & Posto2 & COM & "')"
End If
ElseIf Not IsNull(Posto1) Then
If strFiltro = "" Then
strFiltro = "Unidade='" & Posto1 & "'"
Else
strFiltro = strFiltro & " and(Unidade ='" & Posto1 & COM & "'"
End If


ElseIf Not IsNull(Posto2) Then
If strFiltro = "" Then
strFiltro = "Unidade='" & Posto2 & "'"
Else
strFiltro = strFiltro & " and Unidade='" & Posto2 & COM & "'"
End If



ElseIf Not IsNull(Posto3) Then
If strFiltro = "" Then
strFiltro = "Unidade='" & Posto3 & "'"
Else
strFiltro = strFiltro & " and Unidade='" & Posto3 & COM & "'"
End If
End If


If Not IsNull(Placa1) And Not IsNull(Placa2) Then
If strFiltro = "" Then
strFiltro = "(Placa='" & Placa1 & "' or Placa='" & Placa2 & "' or Placa='" & Placa3 & "' or Placa='" & Placa4 & "' or Placa='" & Placa5 & COM & "')"
Else
strFiltro = strFiltro & " and (Placa='" & Placa1 & "' or Placa='" & Placa2 & "' or Placa='" & Placa3 & "' or Placa='" & Placa4 & "' or Placa='" & Placa5 & COM & "')"
End If


ElseIf Not IsNull(Placa1) Then
If strFiltro = "" Then
strFiltro = "Placa='" & Placa1 & "'"
Else
strFiltro = strFiltro & " and(Placa ='" & Placa1 & COM & "'"
End If


ElseIf Not IsNull(Placa2) Then
If strFiltro = "" Then
strFiltro = "Placa='" & Placa2 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa2 & COM & "'"
End If



ElseIf Not IsNull(Placa3) Then
If strFiltro = "" Then
strFiltro = "Placa='" & Placa3 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa3 & COM & "'"
End If



ElseIf Not IsNull(Placa4) Then
If strFiltro = "" Then
strFiltro = "Placa='" & Placa4 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa4 & COM & "'"
End If


ElseIf Not IsNull(Placa5) Then

If strFiltro = "" Then
strFiltro = "Placa='" & Placa5 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa5 & COM & "'"

End If


ElseIf Not IsNull(Placa6) Then

If strFiltro = "" Then
strFiltro = "Placa='" & Placa6 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa6 & COM & "'"

End If

ElseIf Not IsNull(Placa7) Then

If strFiltro = "" Then
strFiltro = "Placa='" & Placa7 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa7 & COM & "'"

End If

ElseIf Not IsNull(Placa8) Then

If strFiltro = "" Then
strFiltro = "Placa='" & Placa8 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa8 & COM & "'"

End If

ElseIf Not IsNull(Placa9) Then

If strFiltro = "" Then
strFiltro = "Placa='" & Placa9 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa9 & COM & "'"

End If

ElseIf Not IsNull(Placa10) Then

If strFiltro = "" Then
strFiltro = "Placa='" & Placa10 & "'"
Else
strFiltro = strFiltro & " and Placa='" & Placa10 & COM & "'"

End If


ElseIf Not IsNull(Cidade) Then

If strFiltro = "" Then
strFiltro = "cid='" & Cidade & "'"
Else
strFiltro = strFiltro & " and cid='" & Cidade & COM & "'"

End If


ElseIf Not IsNull(Cidade2) Then

If strFiltro = "" Then
strFiltro = "cid='" & Cidade2 & "'"
Else
strFiltro = strFiltro & " and cid='" & Cidade2 & COM & "'"

End If
End If

DoCmd.OpenReport "Relatório1", acViewPreview, , strFiltro


End Sub