MS Access VBA - отображение динамически построенных результатов SQL в подформе таблицы данных

у меня есть несколько лет опыта работы с VBA в приложениях MS Office (для автоматизации и процессов ETL), но до недавнего времени у меня не было необходимости возиться с формами в MS Access. Я разрабатываю дизайн для некоторых простых форм извлечения данных для базы данных, которую я разработал, и зависаю от того, что кажется простой задачей.

цель: мне нужна подформа datasheet для отображения записей, возвращаемых из динамически построенного оператора SQL из элементов управления на главном форма.

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

независимо от того, что я делаю, я не могу заставить это работать. Я продолжаю получать (большую часть времени в любом случае) ошибку времени выполнения microsoft visual basic "2467": введенное выражение относится к объекту, который закрыт или нет существовать."Это ошибка, которую я получаю с кодом, показанным ниже. Я не могу понять, нужно ли мне как-то инициировать подформу, как только какой-либо код запускается или что. Я пробовал некоторые другие варианты кода, которые также не работали с других форумов кода, но я, похоже, нашел несколько потоков форума, включая некоторые из переполнения стека, которые предполагают, что код, который я ниже, должен работать.

прикрепленное изображение показывает, как выглядит основная основная форма. Я обозначил кнопку, которую пользователь щелкните (btnDisplaySWData), чтобы скомпилировать SQL, который получает create из еще не включенных элементов управления, но это не проблема. Я просто жестко кодирую инструкцию SQL, как показано в фрагменте кода, пытаясь выяснить эту проблему. Как уже упоминалось, я хочу, чтобы записи отображались в подформе с именем dataDisplaySubform. "Мусор" - это таблица в базе данных Access, которую я могу законно запросить с помощью кода SQL ниже, который я просто использую для тестирования, пока не выясню это. Весь код в показанная форма данных (с именем frmDataExtract) состоит из того, что находится в окне кода ниже.

Option Compare Database
Option Explicit
Public Sub btnDisplaySWData_Click()
    Dim pSQL As String
    pSQL = "SELECT JUNK.agency_ID, JUNK.agency_desc FROM JUNK"
    Me.dataDisplaySubform.Form.RecordSource = pSQL
End Sub

форма называется dataDisplaySubform, как показано на приведенном ниже скриншоте свойств с выбранной подформой.

вот как выглядит общий макет формы

Я просмотрел несколько сайтов форума, а также попробовал все варианты терминов с поиском переполнения стека, чтобы найти потенциальные решения для моей проблемы, но никто не работал, даже когда исходный поток был помечен как решенный человеком, который его разместил. Я потратил слишком много времени, около 2 РАБОЧИХ дней, пытаясь понять, что я делаю неправильно, и еще не смог.

Я ценю всех, кто может помочь направить меня в правильном направлении, это сводит меня с ума.

спасибо, -- ТБ

РЕШЕНИЕ РЕДАКТИРОВАТЬ TURKISHGOLD

Ну, я думаю, я понял это сам по себе, хотя HansUp помог мне спуститься по пути с упоминанием исходного объекта subform, не имеющего ничего назначенного ему. В моем случае назначение исходного объекта форме не было правильным решением, которое предлагал HansUp. Вместо этого сохраненный запрос, похоже, заставляет его делать то, что я хочу.

не уверен, что есть лучший способ сделать это, но кажется, что вам нужно настроить фиктивный, почти заполнитель запроса, чтобы вы могли установить исходный объект subform в VBA. Такой запрос-заполнитель:

SELECT * FROM JUNK WHERE JUNK.agency_ID ="_";

вышеуказанный запрос доступа сохраняется как имя "TESTQUERY". Он ничего не отображает, но удовлетворяет потребности в назначении исходного объекта чему-либо, по существу, создавая экземпляр подформы при просмотре основной формы в виде формы. Таким образом, с сохраненным запросом-заполнителем вы можете переназначить RecordSource на любую строку SQL, собранную с помощью элементов управления пользовательского интерфейса в основной форме, например это:

Public Sub btnDisplaySWData_Click()
    Dim pSQL As String
    pSQL = "SELECT JUNK.agency_ID, JUNK.agency_desc FROM JUNK"
    Me.dataDisplaySubform.SourceObject = "Query.TESTQUERY"
    Me.dataDisplaySubform.Form.RecordSource = pSQL
    Me.dataDisplaySubform.Requery
End Sub

который, когда форма находится в производстве, показанная жестко закодированная инструкция SQL, хранящаяся в строковой переменной pSQL, будет собрана с помощью пользовательского ввода на элементах управления в основной форме.

Итак, теперь, когда btndisplayswdata нажата, она делает то, что я пытался сделать, и отображает записи.