But no I just tested it and it seems to come up for every entry I have:
Code:
If DLookup("[EventStartDate]", "tblEventDelegate", "DelegateID = " & Me.DelegateID & " And EventStartDate = #" & Abs(DateAdd("d", -14, Me.cmboEvents.Column(1))) >= 14 & "#") Then
MsgBox " The delegate is scheduled already onto an event 2 weeks after this event please reschedule"
Exit Sub
End If
I've changed it now to:
Code:
'If Abs(DateAdd("d","[EventStartDate]", "tblEventDelegate", "DelegateID = " & Me.DelegateID & ",Me.cmboEvents.Column(1))) >= 14 Then
But this gives me an epxected separator or ) on the end of the line