Hi, I've changed it to a Select Case statement:
Select Case ([Sent]) And ([Recvd])
'document sent, not returned
Case Not IsNull([Sent]) And IsNull([Recvd])
Me!imgDocNotReturned.Visible = True
Me!imgDocReturned.Visible = False
'document sent, document returned
Case Not IsNull([Recvd]) And Not IsNull([Sent])
Me!imgDocNotReturned.Visible = False
Me!imgDocReturned.Visible = False
'survey not sent, survey not returned
Case IsNull([Recvd]) And IsNull([Sent])
Me!imgDocNotReturned.Visible = False
Me!imgDocReturned.Visible = False
Case Else
End Select
It keeps stopping in the first case and won't loop to the next for all the recordset. What code shall I add in to loop through instead of stopping at the first case? Thanks in advance.