jakobs_himmel With Forms("Form General")![subInvitationRequest].Form
.Requery
.OrderBy = "CompanyName"
.OrderByOn = True
.RecordsetClone.FindFirst "[Name]=" & NM
If Not .RecordsetClone.NoMatch Then .Bookmark = .RecordsetClone.Bookmark
End With
В вашем коде Requery лишний, т.к. выполнение сортировки и так делает перезапрос, а результат поиска всегда надо проверять.
На чем построена ваша форма? Если на запросе, и в нем указана сортировка по CompanyName, то, наоборот, нужно применить Requery, а сортировать не нужно. И в этом случае ваша проблема решается просто.
Вместо всего вашего кода выполните одну строчку:
Forms("Form General")![subInvitationRequest].Requery
Или (правильнее):
Me.Parent![subInvitationRequest].Requery

Заметьте, без .Form перед .Requery. Результат тот же, но визуально выделенная запись остается на месте (если их достаточно).

Private Sub PhoneCall_AfterUpdate()
Me.Dirty = False
Me.Parent![subInvitationRequest].Requery
End Sub

Справку А97 русСвойство SelTop позволяет указать или определить строку (запись), являющуюся верхней строкой в выделенном блоке в таблице, запросе или в режиме таблицы, или выделенных записей в ленточной форме. Для указания или определения крайнего левого столбца (поля) в текущем выделенном блоке используют свойство SelLeft. Например, если в таблице «Клиенты» выделен прямоугольный диапазон ячеек, то первую строку и первый столбец в выделенном блоке в режиме таблицы можно определить с помощью свойств SelTop и SelLeft.

Значения

Свойство SelTop. Значение типа Long Integer от 1 до числа записей в режиме таблицы или в ленточной форме. Вызов этого свойства устанавливает или возвращает номер верхней строки в выделенном блоке или номер выделенной записи в ленточной форме.
Свойство SelLeft. Значение типа Long Integer от 1 до числа столбцов в таблице. Вызов этого свойства устанавливает или возвращает номер столбца слева в выделенном блоке.

Свойства SelTop и SelLeft недоступны в режиме конструктора. Данные свойства используются только в макросах и в программах Visual Basic.

Дополнительные сведения

При отсутствии выделения данные свойства принимают значения номеров строки и столбца ячейки, находящейся в фокусе.

В случае выделения в таблице одной или более записей (с использованием области выделения), изменение значения свойства SelLeft невозможно. В случае выделения одного или более столбцов (с использованием их заголовков), изменение значения свойства SelTop невозможно.

Вместе со свойствами SelHeight и SelWidth данные свойства позволяют указать или определить размеры выделенного блока. Свойства SelTop и SelLeft определяют положение верхнего левого угла выделенного блока. Координаты правого нижнего угла выделенного блока относительно его верхнего левого угла определяют свойства SelHeight и SelWidth. ЗЫ. Выделенное синим - исправленная мной погрешность перевода в оригинале.

ИВПВыделена 9 запись - выдается значение 9
Судя по вашей картинке в контейнере субформы вмещается 5 записей.

9-я запись будет 4-й на экране, поэтому когда после Requery вы ее нашли и выделили, надо выполнить:

После этого текущая запись опять 4-я на экране.
В более общем случае кол-во записей, вмещающихся на экране, можно определить как результат цеорчисленного деления высоты контейнера на высоту области данных.
В еще более общем случае можно с помощью API запомнить, а затем восстановить положение вертикального скрола, но это не всегда дает желаемый результат (если удалено или добавлено много записей).

Посмотрите эту статью .

jakobs_himmel, где вы пропали?
примерPrivate Sub PhoneCall_AfterUpdate()
Me.Dirty = False
Me.Parent![subInvitationRequest].Requery
End Sub Это помогло?