ник: Danila
Заранее извиняюсь если подобный вопрос уже был. Порывшись на форуме кое что нашёл, но к сожалению заставить это работать не могу .
Есть основная форма - в ней 2 подчинённые. Основная форма никак не связана с подчинёнными. Мне надо сделать чтоб после переключения на любую запись в 1-й подчинённой форме, во 2-й подчинённой форме делалась выборка на основе выбранной в 1-й подчинённой форме записи.
В 1-й подчинённой форме код:
Private Sub Form_Current()
Dim Источник As String
Источник = "SELECT Бла Бла Бла"
If IsLoaded("ПодФорма2") Then
Forms![ОсновнаяФорма]![ПодФорма2].Form.RecordSource = Источник
End If
End Sub
|
Пробовал ещё вот так:
Private Sub Form_Current()
Dim Источник As String
Источник = "SELECT Бла Бла Бла"
If CurrentProject.AllForms("ПодФорма2").IsLoaded = True Then
Forms![ОсновнаяФорма]![ПодФорма2].Form.RecordSource = Источник
End If
End Sub
|
Но в обоих случаях проверка не работает. А без проверки при загрузке основной формы выдаёт ошибку
Run-time error 2455 "Введённое выражение содержит недопустимую ссылку на свойство Form/Report"
После того как нажимаешь End в открывшейся Основной форме всё работает как надо. Т.е. происходит нужная выборка в ПодФорме2 на основе ПодФормы1. Я так понимаю что код срабатывает когда формы ещё не загружены - следовательно нужна проверка на загрузку форм.
Помогите пожалуйста разобраться что я делаю не так.