I think you need a text box for Date select just below your onclick command, for example you may call it txtRequiredDate, then you code will be as follows:
Private Cmd28_Onclick()
Dim Cancel as integer
If DLookup("lookupDate", "YourTable", "[ShiftDate] <>#" & Me.txtRequiredDate & "#) Then
Beep...