ник: oper533234
Спасибо, научили ... Два часа пытался вставить - НИХТ!
Private Sub Выбор_AfterUpdate()
Dim rst As Recordset
Set rst = Me.Parent!Суб_9_БП_ТелоКонтроль.Form.Recordset
rst.Update
rst.Fields("КодКБП") = Me.КодКБП
rst.Fields("НомППЭ") = Me.НомПП
rst.Fields("ТекстСКБП") = Me.ТекстСЭБП
rst.Fields("Условие") = Me.УсловиеЭСБП
Stop
End Sub
|