[Resolvido]Critérios "Ou"

Boa noite a todos,

É possível determinar critérios "Ou" para um mesmo campo em uma consulta através de um formulário?

Atualmente uso:

Como [Forms]![NomeFormulário]![TxtCriterio] & "*" - para obter um ou todos os registros

Como ficaria para selecionar dois ou mais códigos do mesmo campo usando somente o TxtCriterio???


Nivaldo.

Boas nivaldo veja se o operador In funciona


Cumprimentos.

Bom dia Nivaldo, bom dia Piloto.

Dando um pitaquinho, pois passei por esse mesmo problema.

Veja o tópico aqui, !

Espero que lhe seja útil.

Abraços

Obrigado pela atenção,

Piloto, vou fazer umas buscas e estudar o operador In para ver se consigo algo.

Silvio, da forma como você indicou no link eu também já faço.
Na verdade o que estou querendo é que a consulta retorne, através do critério indicado no post acima, dois ou mais tipos de códigos de um mesmo campo.

Se na linha critério da consulta eu colocar: 1 Ou 3 Ou 5
A consulta me retorna somente os códigos 1, 3 e 5.

Minha dúvida é como faço para colocar esse critério através de um formulário.


Más vamos pra frente. Pode ser que apareça mais alguma ideia.


Nivaldo.

Dê uma passada aqui;


http://maximoaccess.forumeiros.com/t1594-instrucoes-sql-como-utilizar

Boas Nivaldo veja esta SQL, observe que o critério está em uma variável separada por vírgulas.


 StrSQL = "SELECT Lançamentos.Ordenar, Lançamentos.LN, Lançamentos.Data, Lançamentos.Conta, Lançamentos.[Data Valor]," _
        & "Lançamentos.Movimentos, Lançamentos.Ref, Lançamentos.Entidade, Lançamentos.Doc, Lançamentos.Débito, Lançamentos.Crédito," _
        & "Lançamentos.Observações, Lançamentos.Reconciliado, Lançamentos.[Pré Datado], Lançamentos.Valor" _
        & " FROM Lançamentos WHERE Movimentos In ('" & strList & "') Or Ref In ('" & strList1 & "')"


StrList ou StrList1 conteria os seus critérios da seguinte Maneira:  1,2,3 etc...
No lugar de uma variável poderia ser uma caixa texto onde se digitaria os códigos separados por uma vírgula...

 StrSQL = "SELECT Lançamentos.Ordenar, Lançamentos.LN, Lançamentos.Data, Lançamentos.Conta, Lançamentos.[Data Valor]," _
        & "Lançamentos.Movimentos, Lançamentos.Ref, Lançamentos.Entidade, Lançamentos.Doc, Lançamentos.Débito, Lançamentos.Crédito," _
        & "Lançamentos.Observações, Lançamentos.Reconciliado, Lançamentos.[Pré Datado], Lançamentos.Valor" _
        & " FROM Lançamentos WHERE Movimentos In ('" & Me.SuaCaixaTexto & "') Or Ref In ('" & Me.SuaCaixaTexto1 & "')"

Esta SQL pode ser colocar em uma consulta gráfica tambem.


Cumprimentos.

J Paulo e Piloto,

Fiz uns testes aqui más não tive êxito.
Logo mais a noite preparo um exemplo para ficar melhor de analisar.


Nivaldo.

Aguardamos.

Cumprimentos.

Bom dia a todos,

Piloto e JPaulo,

Como mencionei acima, tentei implementar o exemplo e as instruções recebidas más não tive muito sucesso.

- Tentei montar em vba a instrução da minha consulta gráfica, más não retorna os registros filtrados. A instrução está no evento Ao carregar do formulário FormPesquisaGeral.

- Na consulta gráfica eu até consigo filtrar, más se um dos campos do critério estiver nulo não retorna correto. Os campos (TxtCriterios e TxtCriterios2) para os critérios estão no formulário FormFiltro.

Como falei no começo do tópico, estou procurando filtrar um campo com dois ou mais códigos através de um formulário. O ideal seria que esses códigos fossem passados através de um só campo do formulário, más se for preciso pode-se colocar dois ou mais campos.

Segue o exemplo do bd.

Nivaldo.

Boas Nivaldo, qual campo na tabela e qual campo.. ?


Cumprimentos.

Bom dia Nivaldo, está feito apenas para a caixa texto txtCritérios, veja como foi feito e adapte os demais critérios que desejar.

Private Sub Form_Load()
    Dim intForma, intForma2 As Integer
    
    intForma = (Nz(Forms!FormFiltro!TxtCriterios))
    intForma2 = (Nz(Forms!FormFiltro!TxtCriterios2))
  
strSql = "SELECT TblDespesas.CodDespesa, TblDespesas.CodFormaPagto, TblDespesas.CodTipoDespesa, TblDespesas.CodSubTipoDespesa," _
        & "TblDespesas.HistoricoDespesa, TblDespesas.DataDespesa, (Nz(Format([DataVencimento],'dd/mm/yyyy'))) AS [Data Vencimento]," _
        & "(Nz(Format([DataPagto],'dd/mm/yyyy'))) AS [Data Pagto], TblDespesas.ValorDespesa, TblDespesas.QtdParcela, TblDespesas.NumParcela," _
        & "Format([DataDespesa],'mm/yyyy') AS MesAnoDesp, TblFormaPagto.FormaPagto, TblTipoDespesa.TipoDespesa," _
        & "Format([DataDespesa],'dd/mm/yyyy') AS Dia, TblDespesas.Parcelado, TblDespesas.SomaParcial, TblSubTipoDespesa.SubTipoDespesa," _
        & "TblDespesas.DataVencimento, TblDespesas.DataPagto, (nz(Format([DataVencimento],'mm/yyyy'))) AS [Mes Vencto]," _
        & "(Nz(Format([DataPagto],'mm/yyyy'))) AS [Mes Pagto] FROM TblTipoDespesa INNER JOIN (TblFormaPagto INNER JOIN" _
        & " (TblDespesas INNER JOIN TblSubTipoDespesa ON TblDespesas.CodSubTipoDespesa = TblSubTipoDespesa.CodSubTipoDesp)" _
        & " ON TblFormaPagto.CodFormaPagto = TblDespesas.CodFormaPagto) ON TblTipoDespesa.CodTipoDespesa = TblDespesas.CodTipoDespesa" _
        & " WHERE TblDespesas.CodFormaPagto In (" & intForma & ")"
  Me.RecordSource = strSql

End Sub

Cumprimentos.

Boa noite Piloto,

Desculpe a demora em retornar.

Fiz um teste (de forma rápida) com o que você me passou mais deu uma mensagem de tipos incompatíveis.

Amanhã vejo com mais calma e lhe dou um retorno.

Por enquanto o meu muito obrigado pela atenção.


Nivaldo.

Veja:

https://dl.dropboxusercontent.com/u/26441349/Nivaldo.zip

Cumprimentos.

Bom dia Piloto,

O exemplo que você me passou serviu de guia para os outros campos, más com uma restrição: Não tenho mais a opção de me retornar todos os registros.

Em contrapartida a minha necessidade fez com que eu encontrasse um exemplo do Plinio Mabese que se encaixa no que eu preciso. O exemplo se chama Filtro Genérico, e estou anexando para apreciação dos demais usuários.

Mais uma vez Piloto, só tenho a agradecer sua boa vontade e a ajuda de todos desse fórum.


Nivaldo.

Bom dia Nivaldo, realmente fica com este tipo de restrição. Ja tive este tipo de problema e contornei utilizando duas SQL, uma filtrada e outra normal...
Direcionando a cada caso com uma cláusula if.

O Fórum agradede o retorno.