ник: snipe
вот из первоначального варианта (автор: rudi4 (01.12.2010 в 13:09) )
форма слушатели
нужно
сохранить запись
задать заново источник строк комбобокса
и все
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Forms![курсы]![подчиненная форма обучение].Form![код_слуш].RowSource = Forms![курсы]![подчиненная форма обучение].Form![код_слуш].RowSource
DoCmd.Close
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub