ник: snipe
Private Sub Form_Current()
Me!Поле31 = Me!subfrm.Form.Recordset.RecordCount
End Sub
Private Sub ПолеСоСписком23_AfterUpdate()
ФильтрИТР = "ПромБаза.КодИТР = '" & Me.ПолеСоСписком23 & "'"
ОбновитьТаблицу
Me!Поле31 = Me!subfrm.Form.Recordset.RecordCount
End Sub
формулу из поля31 уберите - пусть поле будет свободным
и будет вам счастье