MS ACCESS 2016 Связанная подчиненная форма данных находит запись в подчиненной форме после запроса - PullRequest
Новая
       12

MS ACCESS 2016 Связанная подчиненная форма данных находит запись в подчиненной форме после запроса

0 голосов
/ 21 марта 2019

Основная форма имеет выпадающий список со списком компаний.Когда компания выбрана, подчиненная форма таблицы заполняется списком клиентов.Целью подчиненной формы таблицы является обновление информации о клиенте.Там всегда 1200+ клиентов.Некоторые из изменений требуют всплывающей модальной формы, где код обновляется.Мне нужно запросить подчиненную форму таблицы данных, чтобы отразить это изменение.

Таким образом, проблема возвращается, например, к записи 800 из 1200 клиентов в подчиненной форме таблицы после запроса.

Я исследовал это несколько дней в Интернете.Я перепробовал все, от наборов записей и закладок до вас, назовите это.Все, что я мог найти в Интернете.Я до сих пор не могу сделать gotorecord после запроса.Ничто не похоже на работу.

Я сохраняю текущий номер записи, но после выполнения запроса я не могу выполнить запись goto.у кого-нибудь есть решение?

Событие закрытия, возвращаемое из всплывающей модальной формы: 

Private Sub Form_Close()
Dim rcdnum As Integer
Dim rs As dao.Recordset
Dim bkm As Variant

Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("ManufacturerBuilderReview", dbOpenSnapshot)
rcdnum = Forms![Manufacturers]!RecNum
bkm = rs.Bookmark
If Me.ChangeFlg = 1 Then
    Forms![Manufacturers]![ManufacturerBuilderReview].Requery
End If
Forms![Manufacturers]![ManufacturerBuilderReview].SetFocus
Forms![Manufacturers]![ManufacturerBuilderReview]!BldrLst_trk_code.SetFocus
rs.FindFirst "BuilderID = '" & rs![BuilderID] & "'"
DoCmd.GoToControl "BldrLst_trk_code"

rs.Close
Set rs = Nothing
dbs.Close
Set dbs = Nothing

End Sub
...