Hi Justin,
You should be able to simply set the subform's record source property in code based on combo box criteria, like:
On Error GoTo cboSelect_AfterUpdate_ERR
Dim strSQL As String
Dim strCriteria As String
strCriteria = "FieldID = '" & cboSelect & "'"
strSQL = "SELECT * " & _
"FROM qSel_Data " & _
"WHERE " & strCriteria
' Set sub form's recordsource and requery
fsubSubForm.Form.RecordSource = strSQL
fsubSubForm.Requery
End Sub
HTH,
Bob
|