Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Мюллер
Можно использовать рекордсет подчиненной формы. Вот примеп из хэлпа

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 обращение к подчиненной форме )