VBA loop werkt niet?

[dscjve]

Geachte helpers,

Ik wil in een tabelletje nagaan of er een emailadres ontbreekt.
Deze loop draait maar stapt konsekwent over rs.Fields("mailadres") = Null heen als de waarde null is.
Hoe kan dit?

Graag een tip, hoe dit op te lossen



''Ga na in loop of er een emailadres ontbreekt in k-tabelletje

Dim Mailadres As String
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("K-tabelletje")

Do While Not rs.EOF

Debug.Print rs.Fields("mailadres")

''MsgBox "Mailadres: " & rs.Fields("mailadres")

If rs.Fields("mailadres") = Null Then

MsgBox "Er ontbteekt een Emailadres!"

End If

rs.MoveNext

Loop
''MsgBox "Einde tabel"
rs.Close

mvg Co van Eijkelenburg

 

[edmoor]

Weet je zeker dat er geen spaties in staan in plaats van dat het veld Null is?
Doe eens dit:
Debug.Print "[" & rs.Fields("mailadres") & "]"

Of:
If IsNull(rs.Fields("mailadres")) Then

 

[dscjve]

Hallo Edmoor,

Nee er staat niets in ook geen spatie. Wat nu?

Het werkt

If IsNull(rs.Fields("mailadres")) Then

, bedankt Edmoor

 

[OctaFish]

Probeer 'm zo eens:

    Set rs = CurrentDb.OpenRecordset("SELECT mailadres FROM K-tabelletje")
    Do While Not rs.EOF
        Debug.Print rs.Fields("mailadres")
        If rs.Fields("mailadres") & "" = "" Then MsgBox "Er ontbteekt een Emailadres!"
        rs.MoveNext
    Loop