I'm attempting to loop through the values in a query (qryEmailRecipients) to establish if the value of a Yes/No field (Damage) is true. If it is, then get the value of the 'emailaddress' field value. Seems OK if all values of the Damage field are True but if one record has a False value, the code (I suspect) simply keeps looping. Should I be testing for null?
Set db = CurrentDb
Set rs = db.OpenRecordset("qryEmailRecipients")
Do While Not rs.EOF
If rs!damage = True Then
strListEmail = strListEmail & ";" & rs!emailaddress
strListEmail = Mid(strListEmail, 2)