VBA Query voor records met blank veld

[tommeke1980]

Hoi,

via vba in Word zou ik graag een query lanceren die me alle records weergeeft waarvoor een bepaald veld blank is. Iemand een idee?

Toegepast op onderstaande code geeft dit: welke waarde moet ik aan de variabele 'strTeZoekenVak' geven opdat de lessen waarvoor er geen vak is ingevuld in de database in de listbox opgenomen worden?

Alvast bedankt,

Tom

Private Sub lbVakken_Click()

Dim dbs          As DAO.Database
Dim rstLessen    As DAO.Recordset
Dim strTeZoekenVak As String

Application.ScreenUpdating = False

lbLessen.Clear

If lbVakken.Text <> "ONBEKEND" Then
strTeZoekenVak = lbVakken.Text
Else: strTeZoekenVak = ""
End If

Set dbs = OpenDatabase(ThisDocument.Path & "\agenda.mdb")

Set rstLessen = dbs.OpenRecordset("SELECT DISTINCT lessen.lescode from lessen WHERE lessen.vak='" & strTeZoekenVak & "'")
    With rstLessen
        .MoveNext
        If .EOF = False Then
            Do Until rstLessen.EOF
                lbLessen.AddItem .Fields("lescode")
                rstLessen.MoveNext
            Loop
        End If
    End With
Set dbs = Nothing
Set rstLessen = Nothing

End Sub

 

[AccessUser]

Mogelijke oplossing

Set dbs = OpenDatabase(ThisDocument.Path & "\agenda.mdb")
If lbVakken.Text <> "ONBEKEND" Then
Set rstLessen = dbs.OpenRecordset("SELECT DISTINCT lessen.lescode from lessen WHERE lessen.vak='" & lbVakken.Text "'")

Else
Set rstLessen = dbs.OpenRecordset("SELECT DISTINCT lessen.lescode from lessen WHERE lessen.vak is null " )
End If

mohamed

 

[tommeke1980]

Werk perfect! Thx Mohamed.