MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

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

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

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

    Mensagem  tombr 18/9/2021, 01:35

    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?

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

    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.
    Anexos
    [Resolvido]Não consigo procurar dados em caixa de combinação AttachmentProcurar Informacao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (85 Kb) Baixado 6 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 18/9/2021, 20:01

    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

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

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

    Mensagem  tombr 19/9/2021, 00:18

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 19/9/2021, 16:20

    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

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

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

    Mensagem  tombr 19/9/2021, 23:26

    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.
    Anexos
    [Resolvido]Não consigo procurar dados em caixa de combinação AttachmentProcurar Informacao (Time e Carro).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (127 Kb) Baixado 8 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 19/9/2021, 23:45

    Tom,

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

    boa sorte.

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

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

    Mensagem  tombr 19/9/2021, 23:58

    Obrigado mais uma vez pela ajuda.

    100% resolvido.

      Data/hora atual: 16/10/2021, 21:11