Как использовать глобальные переменные между сценариями Lua

Причина, по которой вы получаете ошибку при попытке открыть набор записей, заключается в том, что ваша форма не открыта, и когда вы пытаетесь получить доступ к [forms]![frmReportingMain], она равна нулю, тогда вы пытаетесь получить свойство на этой нулевой ссылке, и все в порядке , Функция OpenRecordset не может открывать диалоговое окно, чтобы запрашивать пользовательские входы, такие как пользовательский интерфейс, если он получает эту ошибку.

Вы можете изменить свой запрос, чтобы использовать параметры, которые не привязаны к form

yourTableAllocStart >= pAllocStart
and yourTableAllocEnd <= pAllocEnd

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

Function GetQryAllocDebits(pAllocStart As String, pAllocEnd As String) As DAO.Recordset

    Dim db As DAO.Database
    Dim qdef As DAO.QueryDef
    Set db = CurrentDb
    Set qdef = db.QueryDefs("qryAlloc_Debits")
    qdef.Parameters.Refresh
    qdef.Parameters("pAllocStart").Value = pAllocStart
    qdef.Parameters("pAllocEnd").Value = pAllocEnd
    Set GetQryAllocDebits = qdef.OpenRecordset

End Function

Недостатком этого является то, что когда вы вызываете это сейчас в форме, которая связан с ним, он не динамически «заполняет пробелы» для вас.

В этом случае вы можете связывать формы qryAlloc_debts и иметь no where clause в сохраненной запроса, затем используйте формы Filter, чтобы сделать предложение where. В этом случае вы можете использовать свое предложение where точно, как вы его написали.

Затем, если вы хотите открыть набор записей, вы можете сделать это следующим образом:

Function GetQryAllocDebits(pAllocStart As String, pAllocEnd As String) As DAO.Recordset

    Dim qdef As DAO.QueryDef
    Set qdef = New DAO.QueryDef
    qdef.SQL = "Select * from qryAlloc_Debits where AllocStart >= pAllocStart and pAllocEnd <= pAllocEnd"
    qdef.Parameters.Refresh
    qdef.Parameters("pAllocStart").Value = pAllocStart
    qdef.Parameters("pAllocEnd").Value = pAllocEnd
    Set GetQryAllocDebits = qdef.OpenRecordset

End Function