参数化查询重新评估排序

Question

我有一个子表单，它显示一个简单的数据网格，允许用户对列进行升序或降序排序。

该数据网格的数据由刷新函数提供，该函数使用参数化查询来设置数据网格的记录源：

Dim query     As DAO.QueryDef
Dim recordSet As DAO.Recordset

Set query = CurrentDb.QueryDefs("DatagridQuery")
query.Parameters("one").Value = combobox_1_value
query.Parameters("two").Value = combobox_2_value
Set recordSet = query.OpenRecordSet
Set Me.subform.From.Recordset = recordSet

在此上下文中，combobox_1_value 和 combobox_2_value 分别由父窗体中的两个不同组合框提供。

现在出现的问题是，每次设置排序或过滤属性时，数据网格似乎都会重新评估基础查询，提示用户手动输入参数，而不是从组合框值中获取参数值。

有没有一种方法可以将我的组合框的值绑定到查询的参数或覆盖排序和过滤函数，以便我可以直接在 vba 中实现记录集的排序？

Answer 1

如果您（重新）设置记录集，表单将始终被重新查询。

你可以做的是设置表单的 Filter 属性：

Me!subform.Form.Filter = "[SomeField] = somevalue"
Me!subform.Form.FilterOn = True

为了排序，它是 OrderBy 属性：

Me!subform.Form.OrderBy = "[SomeField] Asc"
Me!subform.Form.OrderByOn = True

Answer 2

我找到了一个显然会延长运行时间的解决方案。

我已经重写了子表单的查询以使用全局函数作为查询参数：

Public Function GetComboboxValue()
    GetComboboxValue = Forms!Form1!Combobox.Value
End Function

相应的查询如下所示：

SELECT * FROM sampleTbl
WHERE ForeignID = GetComboboxValue()

另外我设置了Combobox的afterUpdateEvent来重新查询子表单：

Private Sub combobBox_AfterUpdate()
    Me.subform.Requery
End Sub

虽然这可以按我的意愿工作，但查询的参数化似乎不再正常工作。显然查询返回了查询表中的所有记录，然后才过滤记录集。