[Resolvido]Erro de sintaxe ao realizar filtros simulaneos em formulário

Boa tarde pessoal,

Estou com um erro de sintaxe ao realizar filtros simultâneos em formulário

Como vocês podem ver no BD anexo, no Menu Não Efetivado

Quanto chamo a Combobox indicada na figura, ele retorna um erro de sintaxe,

Anexo

Tente assim...

Sao das Tres Cbo's...

Código:


Private Sub cboConta_AfterUpdate()
   
  Me.Filter = "Conta= " & Me!cboConta & ""
  Me.FilterOn = True
 
End Sub

Private Sub cboAno_AfterUpdate()
  Me.Filter = "Ano= " & Me!cboAno & ""
  Me.FilterOn = True
 
End Sub

Private Sub cboMes_AfterUpdate()
  Me.Filter = "Mês= " & Me!cboMes & ""
  Me.FilterOn = True
 
End Sub



O código até funcionou, porem quanto eu filtro cboConta, ele solta o filtro de cboMes,
Ou seja, não esta considerando o filtro das outras combos

Veja se assim atende as sua necessidades!

Mudei a consulta de origem dos registros do formulario, e apliquei os filtros la na consulta...

Como "*" & [Formulários]![NaoEfetivado]![cboConta] & "*"

E no evento apos atualizar de cada Cbo coloquei o DoCmd.Requery para refazer a consulta e atualizar os registros.

Inclui um novo Botao para limpar os Filtros...


Dessa forma eu sei que da certo, mas da forma como voce estava tentando montar eu nao sei como fazer...

Olá Fabio, perfeito, é isso mesmo que quero fazer,

Mas olha só, quando seleciona por exemplo: mês 1, ele traz todos os meses que tem 1, exemplo: 1, 10, 11 e 12,
Tentei mexer no critério de filtro na consulta, mas não deu certo

Verdade amigao... o problema esta no Como *... dessa forma nao funcionará pra vc...


Mas vendo aqui seu BD e testando mais um pouco, descobri o motivo do erro...

Faça o seguinte, no Formulário Formate as tres Cbo para NUMERO geral (cboconta, cboano e cbo mes) assim funcionará seu codigo Original...

Me.Filter = "Conta=" & cboConta & "" & "and Ano=" & cboAno & "" & "and Mês=" & cboMes & ""


Porem vi um defeito nos filtros dessa forma... Se uma das combos estiverem nulas ele da erro no Filtro... então terá que Tratar isso...

Meu amigo, agora acho que Foi...

Bom, Mudei suas Cbos e coloquei todas como Numero GERAL.

Coloquei um Filtro para cada Situação Possivel com condição IF (Nao sei se é a maneira mais saudavel, de tratar o erro quando uma delas forem nulas, mas FUNCIONOU)

Código:


Private Sub cboConta_AfterUpdate()
'Observer que montei um filtro para cada opção possível, para evitar o erro quando uma das
'cbo estiverem vazias.
If Not IsNull(cboAno) And Not IsNull(cboMes) Then
Me.FilterOn = False
Me.Filter = "Conta=" & cboConta & "" & "and Ano=" & cboAno & "" & "and Mês=" & cboMes & ""
Me.FilterOn = True
    
    ElseIf IsNull(cboAno) And Not IsNull(cboMes) Then
    Me.FilterOn = False
    Me.Filter = "Conta=" & cboConta & "" & "and Mês = " & cboMes & ""
    Me.FilterOn = True
    
ElseIf Not IsNull(cboAno) And IsNull(cboMes) Then
Me.FilterOn = False
Me.Filter = "Conta=" & cboConta & "" & "and Ano = " & cboAno & ""
Me.FilterOn = True
        
    ElseIf IsNull(cboAno) And IsNull(cboMes) Then
    Me.FilterOn = False
    Me.Filter = "Conta=" & cboConta & ""
    Me.FilterOn = True
 End If
End Sub


Teste e veja se Atende ao que precisa...

fabiopaes vocé é o cara,

Estou tentando incluir mais duas combos, para Cartão e Fatura,
Tentei replicar o código que usou nas outras combos, mas não consegui....

Na verdade acredito que consegui entender a lógica, mas não consegui aplicar....

Mais uma vez obrigado!!!

Outra coisa, mais a frente, estou tentando montar algo para que eu só possa lançar registro em Cartão e Fatura que estejam ativos

Que bom que era isso...

Assim que tiver um tempo dou uma olhada...

Uma coisa, caso essas novas Combos estejam no mesmo formulario e vc queira que elas filtrem igual essas que monteis, tera que incluir novas condicoes If, para cada combo...

Ex: Nova combo chamada cboBusca1.  Tera que ir na combo Conta e editar as condicoes pois tera caso em que eu quero filtra so a conta e a cboBusca1, tera casos que vou aplicar filtro em todas... entao... tem que refazer tudo com todas as possibilidades... Comboconta vazia, comboano preenchida, cboBusca1 preenchida... Filtro sera...


Outra coisa chata que deve observar e o tipo de dados que tem nas cbos, se for Texto fica entre ' " " '  se for Numero fica entre ""   ....

Uma olhada Rapida, vi que na CboCartao, o erro que apresentava la é porque deve haver mais de um Campo chamado

Cartao

em tabelas que estão relacionadas... pra corrigir isso basta substituir "Cartao = ... por    "tabLancamento.Cartao=

Veja que informei a qual campo cartao estava me referindo ( o da tabela tabLançamento)

Código:


Private Sub cboCartao_AfterUpdate()

'Eu tentei

If Not IsNull(cboFatura) And Not IsNull(cboConta) Then
Me.FilterOn = False
Me.Filter = "tabLancamento.Cartao=" & cboCartao & "" & "and Fatura=" & cboFatura & "" & "and Conta=" & cboConta & ""
Me.FilterOn = True
    
    ElseIf IsNull(cboFatura) And Not IsNull(cboConta) Then
    Me.FilterOn = False
    Me.Filter = "tabLancamento.Cartao=" & cboCartao & "" & "and Conta = " & cboConta & ""
    Me.FilterOn = True
    
        ElseIf Not IsNull(cboFatura) And IsNull(cboConta) Then
        Me.FilterOn = False
        Me.Filter = "tabLancamento.Cartao=" & cboCartao & "" & "and Fatura = " & cboFatura & ""
        Me.FilterOn = True
        
    ElseIf IsNull(cboFatura) And IsNull(cboConta) Then
    Me.FilterOn = False
    Me.Filter = "tabLancamento.Cartao = " & cboCartao & ""
    Me.FilterOn = True
  End If


Vou te passar o comando completo Da CboConta, daee vc pratica fazendo os outros...

Código:


'Se tudo preenchido filtra em tudo
If Not IsNull(cboAno) And Not IsNull(cboMes) And Not IsNull(cboCartao) And Not IsNull(cboCartao) Then
Me.FilterOn = False
Me.Filter = "Conta=" & cboConta & "" & "and Ano=" & cboAno & "" & "and tabLancamento.Cartao = " & cboCartao & ""
Me.FilterOn = True
   
    'filtra conta e mes
    ElseIf IsNull(cboAno) And IsNull(cboCartao) And Not IsNull(cboMes) And IsNull(cboCartao) Then
    Me.FilterOn = False
    Me.Filter = "Conta=" & cboConta & "" & "and Mês = " & cboMes & ""
    Me.FilterOn = True
   
        'filtra conta e ano
        ElseIf Not IsNull(cboAno) And IsNull(cboMes) And IsNull(cboCartao) And IsNull(cboCartao) Then
        Me.FilterOn = False
        Me.Filter = "Conta=" & cboConta & "" & "and Ano = " & cboAno & ""
        Me.FilterOn = True
       
'Conta e Cartao
ElseIf IsNull(cboAno) And IsNull(cboMes) And IsNull(cboFatura) And Not IsNull(cboCartao) Then
Me.FilterOn = False
Me.Filter = "Conta=" & cboConta & "" & "and tabLancamento.Cartao = " & cboCartao & ""
Me.FilterOn = True
   
    'Conta e Fatura
    ElseIf IsNull(cboAno) And IsNull(cboMes) And IsNull(cboCartao) And Not IsNull(cboFatura) Then
    Me.FilterOn = False
    Me.Filter = "Conta=" & cboConta & "" & "and fatura = " & cboFatura & ""
    Me.FilterOn = True
   
'Filtra so Conta
ElseIf IsNull(cboAno) And IsNull(cboMes) And IsNull(cboCartao) And IsNull(cboFatura) Then
Me.FilterOn = False
Me.Filter = "Conta=" & cboConta & ""
Me.FilterOn = True



Funciona com todas as combos...

Quanto a só lançar nos cartões que estiverem ativos, acho que é relativamente simples....

Quando você cadastra as formas de Pagamento ( no caso os cartões) você coloca um campo sim/nao com nome Bloqueado.

Dessa forma, na consulta onde seleciona a forma de Pagamento, Você manda exibir apenas os que estiverem com Valor padrão no campo Bloqueado como 0. assim se ele tiver marcado (-1) nem aparece pro usuário selecionar ele...

fabiopaes mais uma vez obrigado, está me ensinando muito,

Confesso que ainda não estou entendendo a lógica do código que voce propos, até tentei fazer ele na tab Conta, mas deu erro que esta faltando um fecha IF
Se puder olhar e me dizer oq estou errando, quero fazer seozinho o código da combo Fatura,

Quanto a exibir apenas cartoes ativos, eu consegui, porem ele omite a informação de qual cartao foi atribuido o registro, conforme imagem no Zip

Obrigado mesmo!

Sobre os Cartões...

Faça o seguinte teste... Abra seu Formulário de Naoefetivado e veja que terá 229 Registros. Isso porque agora está Trazendo pra essa tela apenas os Cartões que estão ATIVOS na tabela de Cartões. Vá ate a tabela dos cartoes e mude o Cartao BOLO para Não no campo Ativo, fecha e abre denovo o Formulario e verá que agora aparecerá 228 Registros, pois agora ele omitiu o registro que tem no Cartão Bolo...

Nao sei bem se é isso que pretendia... mas se for isso veja as mudanças nos campos:

CboCartao (mudei para permitir selecionar apenas os cartões que estao Ativos) veja a Origem da linha;
***Campo Cartao do formulário (para mostrar corretamente o nome do Cartao do registro, este era o motivo pelo qual omitia o cartao quando o mesmo estava inativo na tabela de cartoes.) veja a Origem da linha;
Consulta NaoEfetivado (inclui o campo ATIVADO da tabela cartoes, e mandei trazer apenas o que tiver o valor "SIM").

Basicamente isso...

Quanto aos Filtros, acho que ficaram faltando muitas condições If... rerererererereere

Quando você manda aplicar um filtro no cambo Conta, Mês e Ano, ele espera que tenha alguma valor NOS TRÊS CAMPOS, e se nao tiver valor Em qualquer um dos 3 campos vai dar erro e não irá aplicar o filtro... Por isso a Necessidade de Criarmos condiçoes If para cada situação possível... pois:

Posso muito bem ir la e preencher apenas a combo Conta (aee dará erro pois ficou nulo a combo ano e a combomes).
O cara pode estar filtrando la na combo Ano e vim e preencher a combo Conta... entao o filtro teria quer apenas em cima de CONTA E ANO...

Como te falei antes, não tenho experiencia com programação, pode haver até outra forma de fazer esses filtros...

Veja  a explicação em áudio e video.
youtu.be/lSv_1EnLKxQ

Se ainda lhe interessar, Tem uma forma defazer sem a necessidade de Criar Varios IFs... Acumulando o Filtro em Variavel. Se interessar, avisa que damos continuidade...