VBA обновляет подчиненный источник записей - PullRequest
Новая
       13

VBA обновляет подчиненный источник записей

0 голосов
/ 26 апреля 2019

Быстрый и простой (вероятно) для вас.

Моя домашняя форма имеет много подформ в элементах управления вкладками.Некоторые из этих подформ имеют свою собственную подформу, основанную на запросе, и у этого запроса есть контроль ввода критериев в родительской форме.

Как вы можете себе представить при загрузке домашней формы, мне нужно будет ввести всепараметры во всплывающих окнах, когда также загружаются подчиненные формы / запросы.

Мой обходной путь для этого - установить для источника данных этих форм запросов значение "" Затем, когда пользовательский элемент управления, который применяет условие where, обновляется.он изменяет их источник записи на запрос.

Только мой код (ниже) не работает.И после получаса, глядя на него, я не могу понять, почему он не выдает ошибок, он просто ничего не делает.

Все поля / записи просто имеют #NAME? 

Private Sub txt_EventID_AfterUpdate()
Me.txt_forcefocus.SetFocus
Me.sub_SpeakerOnboarding.Form.RecordSource = qry_SpkrOnboard
Me.Requery
End Sub

Iтакже попробовал следующее: 

Private Sub txt_EventID_AfterUpdate()
Me.txt_forcefocus.SetFocus
Me.sub_SpeakerOnboarding.Form.RecordSource = qry_SpkrOnboard
Me.Refresh
End Sub

Опять нет результатов, ничего ... Все поля / записи просто имеют #NAME?

Надеюсь, я пропустил что-то простое, иначе мне придетсяпереосмыслить всю форму дизайна

1 Ответ

2 голосов
/ 26 апреля 2019

RecordSource представляет собой строку: 

Private Sub txt_EventID_AfterUpdate()
    Me.txt_forcefocus.SetFocus
    Me.sub_SpeakerOnboarding.Form.RecordSource = "qry_SpkrOnboard"
End Sub

Для ссылки на элемент управления в подчиненной форме: 

Value = Me![SubformControlNAME].Form![txt_EventID].Value
...