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


    [Resolvido] Like recuperar valores nulos

    avatar
    ErickFelix
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 24/05/2013

    [Resolvido] Like recuperar valores nulos Empty [Resolvido] Like recuperar valores nulos

    Mensagem  ErickFelix 24/9/2014, 10:34

    Bom dia pessoal! Meu formulário possui um campo de pesquisa que insere critérios na consulta:

    Como [campoForm] & "*"

    Porém essa consulta elimina todos os valores nulos do campo. Para resolver isso, eu poderia fazer

    Como [campoForm] & "*" Ou É Nulo

    Mas dessa forma quando o usuário pesquisar um valor, todos os valores nulos serão retornados juntos. :\
    Alguém sabe de que forma posso fazer essa consulta? Usando um IIF ou algo do tipo se possível..
    Agradeço desde já qualquer esforço, abraço!


    Última edição por ErickFelix em 24/9/2014, 11:14, editado 1 vez(es)
    avatar
    ErickFelix
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 24/05/2013

    [Resolvido] Like recuperar valores nulos Empty Re: [Resolvido] Like recuperar valores nulos

    Mensagem  ErickFelix 24/9/2014, 11:14

    Consegui resolver utilizando Filter e FilterOn cheers
    Esse site explica certinho como fazê-lo: http://www.usandoaccess.com.br/tutoriais/aprenda-filtragens-no-access.asp?id=1#inicio

    "Veja no exemplo abaixo, um código que filtra um subformulário(sfrmClientes) à medida que se digita em uma caixa de texto (txCliente) do formulário principal:
    Código:

    Private Sub txCliente_Change()
    Dim filtro As String
    If Len(Me!txCliente.Text & "") = 0 Then
        'Se não há nada digitado, remove o filtro
        Me!sfrmClientes.Form.Filter = ""
        Me!sfrmClientes.Form.FilterOn = False
        Exit Sub
    End If
    filtro = "[NomeDoCliente] like '*" & Me!txCliente.Text & "*'"
    Me!sfrmClientes.Form.Filter = filtro
    Me!sfrmClientes.Form.FilterOn = True
    End Sub"

      Data/hora atual: 21/11/2024, 20:38