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!
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