Sorry, I copied the whole lot, I only typed:
If IsNull([Date of conclusion]) And IsNull([Duration of order]) And IsNull([Until further notice]) Then
MsgBox "Enter Date of conclusion, Duration of order, OR Until further notice", vbOKOnly
Cancel = True
End If
.........
It still doesn't work...