ник: mybox_and
Опыта в программировании мало. Нашел книжку как показалось с ответами на вопросы, но увы.
Организация предоставляет сотрудникам мобильные номера и оплачивает определенный лимит по расходам за использование мобильной связи.
задача БД: ведение учета мобильных номеров в организации.
В БД созданы таблицы и связи. Теперь необходимо автоматизировать ввод и редактирование данных.
Имеется главная форма fmMain без источника данных, на ней размещена подчиненная форма fmMainSubListOfNumbers. В подчиненной форме отображается список номеров телефонов. Источником данных для подчинённой формы является запрос qrMainSubListOfNumbers на основе нескольких таблиц.
Необходимо программным способом присвоить набор данных подчиненной форме.
Private Sub btnRecordset_Click()
Dim rstListOfNumbers As New ADODB.Recordset
With rstListOfNumbers
.CursorLocation = adUseClient
.Open "qrMainSubListOfNumbers", CurrentProject.Connection
End With
Set Forms("fmMainSubListOfNumbers").Recordset = rstListOfNumbers
End Sub
Поскольку нельзя обратиться напрямую к подчиненной форме, то строка
Set Forms("fmMainSubListOfNumbers").Recordset = rstListOfNumbers
Должна быть в виде
Set ГлавнаяФорма.ПодчиненнаяФорма.Recordset = rstListOfNumbers
Что должно быть в коде VBA вместо ГлавнаяФорма.ПодчиненнаяФорма ?