If Me.DTPicker1.Value = date then Msgbox "Deve seleccionar una fecha" else 'Lo que tu Quieras colocar end if