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]ignorar Nulos na função Select

    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    [Resolvido]ignorar Nulos na função Select Empty [Resolvido]ignorar Nulos na função Select

    Mensagem  leoavila7 14/8/2015, 02:57

    Boa noite prezados;

    Tenho um código que alimenta uma combo box, usando a seguinte linha:

    Set rs = CurrentDb.OpenRecordset("Select * FROM Eleitorado ORDER BY Apelido;")

    Pois, bem, o campo referenciado nem sempre possui preenchimento, e possui registros com valor nulo, e isso tem me gerado problemas na hora de selecionar a combo, entao eu pensei em modificar a instrução acima de forma que ela desprezasse os nulos e trouxesse somente os valores NotNull. Poderiam me ajudar?

    Abaixo deixo a instrução completa, extraida daqui desse forum que tanto contribui com meu trabalho.

    Abraços!

    Código:
    Private Function fncCarregaCboC() As Boolean
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    On Error GoTo trataerro
    aux.AbreConexao aux.chave
    Set db = CurrentDb
    Set rs = CurrentDb.OpenRecordset("Select * FROM Eleitorado ORDER BY Apelido;")
    Me!con.RowSource = ""
    Do While Not rs.EOF
    Me!con.AddItem rs!Apelido
    rs.MoveNext
    Loop
    rs.Close
    db.Close
    'aux.FechaConexao aux.chave
    sair:
    Exit Function
    trataerro:
    Select Case Err.Number
    Case 3031, 3044, 3131: fncCarregaCboC = True
    End Select
    End Function
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]ignorar Nulos na função Select Empty Re: [Resolvido]ignorar Nulos na função Select

    Mensagem  Alexandre Neves 14/8/2015, 21:27

    Boa noite,
    Retirei o "Resolvido" que terá colocado inadvertidamente
    Sobre a dúvida
    Set rs = CurrentDb.OpenRecordset("Select * FROM Eleitorado WHERE Not IsNull(Apelido) ORDER BY Apelido;")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    [Resolvido]ignorar Nulos na função Select Empty Re: [Resolvido]ignorar Nulos na função Select

    Mensagem  leoavila7 14/8/2015, 21:34

    Muito obrigado Alexandre Neves, caiu como luva, grande abraço

    Conteúdo patrocinado


    [Resolvido]ignorar Nulos na função Select Empty Re: [Resolvido]ignorar Nulos na função Select

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 20:52