[Resolvido]Não consigo procurar dados em caixa de combinação

Olá,

Meu objetivo é clicar no botão de comando para procurar todos os dados escrito: Sem Informação.

Estou usando essa fórmula abaixo:

Código:

Private Sub Comando68_Click()
    If Me.FilterOn Then
        Me.FilterOn = False
    Else
        Me.Filter = "Nome='Sem Informação' or Profissao='Sem Informação' or Cidade='Sem Informação'"
        Me.FilterOn = True
    End If
End Sub


Porém a coluna Cidade nesse meu projeto eu uso como caixa de combinação. Será que o erro está ai?



Observação:
Eu usei essa mesma fórmula em outro projeto e deu certo, mas também não tinha nenhum coluna com caixa de combinação.

Tom,

A coluna "Cidade" da tabela "Cadastro Geral" é do tipo Numérico.
Para o filtro funcionar, é necessário buscar o Código da tabela "Cidade" onde a descrição é "Sem Informação"

Copie e cole o código abaixo no botão de filtro:

Código:



Private Sub Comando68_Click()
Dim iCid As Integer
   
    iCid = DLookup("[Código]", "Cidade", "[Cidade] = 'Sem Informação'")
    Me.Filter = "[Nome] = ""Sem Informação"" OR Profissao = ""Sem Informação"" OR Cidade = " & iCid & ""
    Me.FilterOn = True

End Sub



É isso!!

Boa sorte

Olá, Alexandre

Obrigado pela ajuda.

Para entender a nova fórmula eu criei mais dois campos (Por exemplo: Time e Carro).

Apenas o campo "Carro" não deu certo fazer a busca da palavra = Sem Informação. Esse campo também uso caixa de combinação igual ao campo Cidade.

Segue abaixo a fórmula com as informações "novas" (Não tenho conhecimento profissional do Access).

Código:

Private Sub Comando68_Click()
Dim iCid As Integer
   
    iCid = DLookup("[Código]", "Cidade", "[Cidade] = 'Sem Informação'")
    iCid = DLookup("[Código]", "Carro", "[Carro] = 'Sem Informação'")
    Me.Filter = "[Nome] = ""Sem Informação"" OR Profissao = ""Sem Informação"" OR Time = ""Sem Informação"" OR Carro = " & iCid & "" Or Cidade = " & iCid & """
    Me.FilterOn = True
End Sub

Tom,

A variável "iCid" é para armazenar soemnte o código da cidade.
Não pode utilizar a mesma variável, nesta situação, para este filtro.

Código:



Private Sub Comando68_Click()
Dim iCid As Integer
Dim iCar as Integer
   
    iCid = DLookup("[Código]", "Cidade", "[Cidade] = 'Sem Informação'")
    iCar = DLookup("[Código]", "Carro", "[Carro] = 'Sem Informação'")
    Me.Filter = "[Nome] = ""Sem Informação"" OR Profissao = ""Sem Informação"" OR Time = ""Sem Informação"" OR Carro = " & iCar & "" Or Cidade = " & iCid & """
    Me.FilterOn = True
End S



Tom, precisa estudar mais os conceitos de variáveis.
Este erro é muito básico.

[]'s

FIM

Olá, Alexandre

Obrigado pela ajuda.

Apliquei a nova fórmula, mas apareceu a seguinte mensagem:

Erro em tempo de execução '13'.
Tipos incompatíveis.

Por favor, ajudar se possível.

Tom,

O erro está na utilização de ASPAS DUPLAS no filtro.
Verifique...corrija...que vai funcionar.

boa sorte.

Obrigado mais uma vez pela ajuda.

100% resolvido.