Hi Mary,

As Richard has said, I'd create a query first,
If I understand your question correctly I'd create a new query using the InvoiceT, filter it with IsPaid = False and the Invoice date given the overdue criteria.

Then with your OnClick event:

    Dim overdue
    overdue = Nz(DLookup("FIELD", "QUERYNAME", "CustomerID=" & Forms![CustomerF]!CustomerID), 0)
    
    Change [this] to the form you are showing the message on
    -> Forms![CustomerF]!CustomerID

    I've wrapped the Dlookup in an Nz or Null Zero so if there isn't an overdue payment you can return any value, I've used 0 so now I can check for this below.

    'If it's not zero then there must be an overdue
    'payment so make the overdue label visible
    If overdue <> 0 Then
        OverdueLbl.Visible = True
    'If not make the label Invisible again
    Else
        OverdueLbl.Visible = False
    End If

"OverdueLbl" is name of the OVERDUE label Richard suggested you added in big red letters on the form. Rename this if necessary.

Regards
Alex

---

Reply from Richard Rost:

Looks good to me. A+  :)