Trouble is, the option group won't update with the query results afterwards. I checked in debug mode, and the DLookup from the query gives 'Empty' when I mouse over.
Dim LLength As Variant
LLength = DLookup("[LengthID]", "qryLength", "[StoryID] = " & Forms![frmStories].[StoryID]) = Empty...