If Nz(DLookup("Status", "qry_StatusOpen", "Status = 'In Progress'"), False) = True Then MsgBox ("You Can Not Have More than One Open Status") End If
Select allOpen in new window
Open in new window