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