ник: Мюллер
Можно использовать рекордсет подчиненной формы. Вот примеп из хэлпа
Sub SupplierID_AfterUpdate()
Dim rst As DAO.Recordset
Dim strSearchName As String
Set rst = Me.Recordset
strSearchName = CStr(Me!SupplierID)
rst.FindFirst "SupplierID = " & strSearchName
If rst.NoMatch Then
MsgBox "Record not found"
End If
rst.Close
End Sub
Только у вас будет не me.recordset, а рекордсет подчиненной формы ( вместо me обращение к подчиненной форме )