表单过滤器未更新答案

【问题标题】：Form filter not updating表单过滤器未更新
【发布时间】：2021-09-03 03:50:41
【问题描述】：

我有两个表格 PROJECT_VIEW 和 PROJECT_COMPANY_VIEW。这些表单之间的关系是 PROJECT_VIEW 有一个填充了公司的列表框。双击这些公司之一（见下面的代码）会将您定向到 PROJECT_COMPANY_VIEW。

我遇到的问题是：companyFilter 没有在 PROJECT_COMPANY_VIEW 上更新。如您所见，我通过 DoCmd.OpenForm 传递它。 MsgBox 中出现的所有值都是正确的，包括 COMPANY_ID 过滤器。需要注意的一点是，PROJECT_COMPANY_VIEW 中出现了公司的价值，而不是我需要的公司。

我已尝试清除所有过滤器，更新 PROJECT_COMPANY_VIEW 的记录源，删除 PROJECT_COMPANY_VIEW 中的过滤器，然后关闭表单并再次导航到它。

Private Sub ProjectTenderList_DblClick(Cancel As Integer)
    Dim tenderID As Integer
    Dim companyID As Integer
    Dim companyFilter As String
    tenderID = ProjectTenderList.Column(0)
    MsgBox tenderID
    companyID = ProjectTenderList.Column(1)
    MsgBox companyID
    companyFilter = "COMPANY_ID = " & companyID
    MsgBox companyFilter
    DoCmd.OpenForm "PROJECT_COMPANY_VIEW", , companyFilter, , , , tenderID
End Sub

感谢您的宝贵时间。

【问题讨论】：

这个组合框是 UNBOUND 吗？
Filter 参数应该是保存的过滤器的名称。

标签： vba ms-access

【解决方案1】：

过滤条件在错误的参数中，需要是 WHERE CONDITION。将它移到一个逗号位置。

DoCmd.OpenForm "PROJECT_COMPANY_VIEW", , , companyFilter, , , tenderID

【讨论】：