А вообще, конечно, в VBA, хвала Биллу Гейтсу есть события классов, а модули форм - это тоже модули классов.
По-этому, в модуле формы-спраовчника можно написать свое событие:

Public Property ObjectChange(Id As Variant)

В событии AfterUpdate() формы-спарвочника:

Private Sub Form_AfterUpdate()
RaiseEvent ObjectChange(Me!Id)

End Sub

В вызввающей форме тогда надо писать:

Private WithEvents Frm As Form_Справочник

В событии кнопки Click:

Private Sub Кнопка_Click()
Set Frm = New Form_Справочник
Frm.Caption = "Подпись для формы-српавочника"
Frm.Visible = True
End Sub

Потом пишем обработчик для события нашей формы:

Private Sub Frm_ObjectChange(Id As Variant)
Me.Поле = Id
Frm.SteFocus
DoCmd.Close

End Sub

Преимуществ такого подхода множество:

1. Форму-справочник можно отобразить на экране много раз одновременно
2. форма-справочник ничего не должна знать о том, кто ее вызывает
3. вызывающая форма, напротив точно знает, зачем вызвала форму-справочник и что делать с кодом записи, который вернуло ее событие
4. Можно настроить некоторые свойства справочника, например, caption до того, как форма будет отображена на экране. Можно также применить фильтры, выбрать запись, начать изменение и т.п. - на Ваш вкус

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