多对多关系中子窗体组合框的MS Access筛选配置问题

方案1：添加筛选控件+动态修改组合框行来源 #

• 在付款主窗体上添加两个筛选控件：
  • 供应商筛选：用组合框绑定到供应商表的名称字段（如果供应商是独立表），或用文本框输入供应商名称关键词
  • 发票编号筛选：用文本框输入发票编号的部分内容，支持模糊匹配
• 给筛选控件添加AfterUpdate事件，或新增一个“筛选发票”按钮，在按钮的Click事件中编写VBA代码，动态更新发票组合框的行来源：

  Private Sub cmdFilterInvoices_Click()
      Dim strSQL As String
      ' 基础SQL语句，替换为你的实际表名和关联字段
      strSQL = "SELECT tblInvoices.InvoiceID, tblInvoices.InvoiceNumber, tblVendors.VendorName " & _
               "FROM tblInvoices INNER JOIN tblVendors ON tblInvoices.VendorID = tblVendors.VendorID " & _
               "WHERE 1=1 "
      
      ' 供应商名称筛选逻辑
      If Not IsNull(Me.txtVendorFilter) Then
          strSQL = strSQL & "AND tblVendors.VendorName LIKE '*" & Replace(Me.txtVendorFilter, "'", "''") & "*' "
      End If
      
      ' 发票编号筛选逻辑
      If Not IsNull(Me.txtInvoiceFilter) Then
          strSQL = strSQL & "AND tblInvoices.InvoiceNumber LIKE '*" & Replace(Me.txtInvoiceFilter, "'", "''") & "*' "
      End If
      
      ' 按供应商和发票编号排序
      strSQL = strSQL & "ORDER BY tblVendors.VendorName, tblInvoices.InvoiceNumber"
      
      ' 更新组合框数据源并刷新
      Me.cboInvoice.RowSource = strSQL
      Me.cboInvoice.Requery
  End Sub
  

  注意：替换代码中的表名、字段名、控件名以匹配你的数据库结构；Replace函数用于避免输入单引号导致SQL语法错误。

方案2：优化组合框原生功能 #

如果不需要复杂筛选，仅需快速定位发票，可直接优化组合框属性：

• 打开发票组合框的属性窗口：
  • 「格式」选项卡：将自动展开设为“是”，输入发票编号开头时会自动匹配对应记录
  • 「格式」选项卡：设置列数为3（例如显示供应商名称、发票编号、发票ID），列宽设为2cm;2cm;0cm（隐藏最后一列ID），让用户直观看到供应商信息

方案3：弹出式筛选窗体（进阶） #

若需要更直观的筛选界面，可创建弹出窗体承载筛选条件，确认后将条件传递回主窗体更新组合框：

• 弹出窗体的“确认”按钮代码示例：

  Private Sub cmdConfirm_Click()
      Dim strVendor As String, strInvoice As String
      strVendor = Nz(Me.cboVendor, "")
      strInvoice = Nz(Me.txtInvoice, "")
      
      ' 将筛选条件传递到主窗体并触发筛选
      Forms!frmPayments.txtVendorFilter = strVendor
      Forms!frmPayments.txtInvoiceFilter = strInvoice
      Forms!frmPayments.cmdFilterInvoices_Click
      DoCmd.Close acForm, Me.Name
  End Sub
  

额外注意事项 #

• 确保发票表与供应商表有正确的关联关系，避免出现重复或错误记录
• 发票组合框的行来源第一列必须是InvoiceID（关联表的外键字段），才能正确保存关联记录
• 测试空值场景，确保筛选条件为空时组合框能显示所有有效发票

内容的提问来源于stack exchange，提问作者Fred Polli