Private Sub Combo235_Change()

If InStr(Me.ResearchResultID, ";") > 0 Then
    Me.Combo251.RowSource = "SELECT DISTINCT DetailID, DetailedResult " & _
                             "FROM ResearchResults_Details  " & _
                             "WHERE ResearchID IN (" & Replace(Me.ResearchResultID, ";", ",") & ")"
Else:
    If Len(Me.ResearchResultID) > 0 Then
        Me.Combo251.RowSource = "SELECT DISTINCT DetailID, DetailedResult " & _
                             "FROM ResearchResults_Details  " & _
                             "WHERE ResearchID IN (" & Me.ResearchResultID & ")"
    Else:
        Me.Combo251.RowSource = "SELECT DetailID, DetailedResult " & _
                             "FROM ResearchResults_Details  " & _
                             "WHERE ResearchID = 0"
    End If
    
End If
        Me.Combo648.RowSource = ""  ' Reset the third combo until after the 2nd is set.
   

End Sub

Private Sub Combo251_Change()

If InStr(Me.ResearchResultID, ";") > 0 Then
    Me.Combo648.RowSource = "SELECT DISTINCT ID, DetailName " & _
                                 "FROM ResearchDetails_moreDetails  " & _
                                 "WHERE ResearchDID  IN (" & Replace(Me.ResearchDetailID, ";", ",") & ")"
Else:
    If Len(Me.ResearchResultID) > 0 Then
   
            Me.Combo648.RowSource = "SELECT DISTINCT ID, DetailName " & _
                                 "FROM ResearchDetails_moreDetails  " & _
                                 "WHERE ResearchDID = " & Me.ResearchDetailID
       Else: Me.Combo648.RowSource = ""
    End If
End If

End Sub