You mean code in a module?? ..a Calculated Field in a query...
Private Sub GoEntry()
If (Not IsNull(txtDate) And Not IsNull(TheShift) _
And Not IsNull(DayOfWeek) And Not IsNull(List2) _
And Not IsNull(List5)) Then
cmdDataEntry.Enabled = True
Else
cmdDataEntry.Enabled = False
End If
End Sub