使用组合框过滤拆分表单

Question

我在 Access 中使用拆分表单，并且我有三 (3) 个下拉组合框： ReportedLOB（在此示例中使用） 帐户 立场类别

每个组合框都与所选的特定业务部门相关联，因此它限制了组合框中的项目数量。我正在为 ReportedLOB 使用以下代码：

 Private Sub Combo_Reported_LOB_Selection_Change()

' If the combo box is cleared, clear the form filter.
  If Nz(Me.Combo_Reported_LOB_Selection.Text) = "" Then
  Me.Form.Filter = ""
  Me.FilterOn = False

' If a combo box item is selected, filter for an exact match.
' Use the ListIndex property to check if the value is an item in the list.
  ElseIf Me.Combo_Reported_LOB_Selection.ListIndex <> -1 Then
  Me.Form.Filter = "[ReportedLOB] = '" & _
                 Replace(Me.Combo_Reported_LOB_Selection.Text, "'", "''") & "'"
  Me.FilterOn = True
  End If
 End Sub

假设下拉列表中有 4 个项目：MCD、Comp、GRD、DRR 当我选择 MCD 时，它会正确过滤 MCD 结果。但是，在与团队一起审查后，他们希望删除 MCD 的过滤器以再次获得所有结果，因此我创建了一个额外的表并将其加入，以便将 ALL 下拉项添加到列表中。

 SELECT DISTINCT dbo_ztblGAAP_Splits_TableA.ReportedLOB FROM
dbo_ztblGAAP_Splits_TableA WHERE (((dbo_ztblGAAP_Splits_TableA.BU)=[Forms]![Frm_Main]!
[Frm_Main_TextBox_Display_BU_Number_HIDDEN])) 
ORDER BY dbo_ztblGAAP_Splits_TableA.ReportedLOB
UNION ALL 
SELECT Top 10, "**ALL**" FROM  
dbo_tTbl_ADMIN_ForFiltering
ORDER BY ReportedLOB;

现在，百万美元的问题......当我从下拉列表中选择 ALL 时，它会将我的所有记录更改为 All 而不是给我所有报告的 LOB 的原始结果。有没有人处理过这个？我到处搜索，试图将这段代码拼凑在一起。

Answer 1

既然您的组合具有有效的行源查询，我建议您使用组合的更新后事件来驱动对表单的 .Filter 属性的更改。

Dim strFilter As String

With Me.Combo_Reported_LOB_Selection
    If IsNull(.Value) Or .Value = "**ALL**" Then
        ' If the combo box is cleared or ALL selected, clear the form filter.
        Me.Filter = vbNullString
        Me.FilterOn = False
    Else
        ' item other than ALL is selected, filter for an exact match.
        strFilter = "[ReportedLOB] = '" & _
            Replace(.Value, "'", "''") & "'"
        Debug.Print strFilter ' check this in Immediate window in case of trouble
                              ' you can use Ctrl+g to go to the Immediate window
        Me.Filter = strFilter
        Me.FilterOn = True
    End If
End With

请注意，该组合在更新后没有焦点，因此其.Text 属性不可用。所以我们改用.Value。 .Text 属性仅在您更改值时才真正有用。当您进行这些更改时，该组合具有焦点，因此.Text 可用。几乎任何其他时间，使用.Value。

如果您确实希望在每次组合键击时不断更改.Filter，则必须针对组合键的更改事件调整上述代码。