Thank you. I am having trouble putting that into code.
The record source for the sub form is a query called "Edit Record". I wrote
Dim LTotal As Long
LTotal = DCount("Edit Record", "Date Completed", [Not IsDate([Date Completed])])
If LTotal > 0 Then Close
If LTotal = 0 Then MsgBox...