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

3 participantes

    SQL VBA Trazer valor vazio

    avatar
    gilmarjs7
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 24/08/2021

    SQL VBA Trazer valor vazio Empty SQL VBA Trazer valor vazio

    Mensagem  gilmarjs7 13/7/2022, 02:06

    Boa noite, pessoal, tudo bem?

    Estou fazendo uma instrução SQL no Access via VBA, mas não está retornando o resultado que desejo.

    Eu quero que traga conforme abaixo, porém quando o campo "combuf" for vazio, eu quero que traga os resultados em que esse campo for vazio, porque realmente existe na base alguns registros com esse campo vazio.

    A instrução que estou utilizando é:

    strSQL = "SELECT bd_ano, bd_equipe, bd_tecnico FROM Base WHERE bd_ano BETWEEN " & Me.txt_consultaanoinicio & " AND " & Me.txt_consultaanofim & " AND bd_uf='" & Me.combuf & "' ORDER BY bd_ano DESC"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    SQL VBA Trazer valor vazio Empty Re: SQL VBA Trazer valor vazio

    Mensagem  Alexandre Fim 13/7/2022, 15:41

    Olá Gilmar,

    Tente isso:

    Código:


        strSQL = "SELECT bd_ano, bd_equipe, bd_tecnico FROM Base "
        strSQL = strSQL & " WHERE bd_ano BETWEEN " & Me.txt_consultaanoinicio & " AND " & Me.txt_consultaanofim & " "
       
        If Trim(Me.combuf) = Empty Or IsNull(Me.combuf) Then
            strSQL = strSQL & " AND bd_uf IS MULL"
        Else
            strSQL = strSQL & " AND bd_uf='" & Me.combuf & "' "
        End If
       
        strSQL = strSQL & " ORDER BY bd_ano DESC "



    Acredito que irá funcionar.

    Att,
    FIM


    .................................................................................
    SQL VBA Trazer valor vazio Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    SQL VBA Trazer valor vazio Information2 Postar anexos no fórum: CLIQUE AQUI

    SQL VBA Trazer valor vazio Setinf11
    Sistemas e Tecnologia Ltda
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 473
    Registrado : 25/02/2016

    SQL VBA Trazer valor vazio Empty Re: SQL VBA Trazer valor vazio

    Mensagem  FranklinJSP 13/7/2022, 15:47

    Alexandre

    Código:
    AND bd_uf IS MULL
    AND bd_uf IS NULL


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    SQL VBA Trazer valor vazio Empty Re: SQL VBA Trazer valor vazio

    Mensagem  Alexandre Fim 13/7/2022, 15:56

    Ops...é verdade !!! scratch
    Obrigado pela ajuda, @FranklinJSP...

    Retificando:

    Código:

        strSQL = "SELECT bd_ano, bd_equipe, bd_tecnico FROM Base "
        strSQL = strSQL & " WHERE bd_ano BETWEEN " & Me.txt_consultaanoinicio & " AND " & Me.txt_consultaanofim & " "
       
        If Trim(Me.combuf) = Empty Or IsNull(Me.combuf) Then
            strSQL = strSQL & " AND bd_uf IS NULL"
        Else
            strSQL = strSQL & " AND bd_uf='" & Me.combuf & "' "
        End If
       
        strSQL = strSQL & " ORDER BY bd_ano DESC "


    É isso

    Att,
    FIM


    .................................................................................
    SQL VBA Trazer valor vazio Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    SQL VBA Trazer valor vazio Information2 Postar anexos no fórum: CLIQUE AQUI

    SQL VBA Trazer valor vazio Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 15/8/2022, 13:36