基于表单记录源（不同）字段的组合框行源

Question

我将表单记录源设置为详细的 SQL 选择语句。那工作正常。如果有助于了解，表单布局是表格。以下是数据示例：

order carrier billto employee
1     smgd    horm   chrnic
2     axxm    sele   chrnic
3     smgd    horm   redned
4     mcta    cron   greand
5     mcta    cron   greand

它基本上是未开票的订单条目。我想要一个组合框来根据当前显示的记录显示不同的员工姓名（chrnic、redned、greand）。我将对其进行编码以过滤表单。看起来很简单，但我遇到了麻烦

我尝试过的事情：

• 尝试将 rowsource 设置为 me.recordsource，但得到一个
  • 看来我需要解析和编辑该字符串
• 我复制了复杂查询并将其作为组合框记录源并用于过滤表单，因此我知道过滤逻辑是正确的。我只是希望它是动态的，所以我们只需要在需要时在一个地方更改 SQL 语句

Answer 1

“我有一个表单记录源设置为详细的 SQL 选择语句。”

将该查询另存为命名QueryDef。我会假装你选择了 qryRecordSource 作为名称。

“我想要一个组合框来显示不同的员工姓名……基于当前记录”

对于组合框行源使用...

SELECT DISTINCT employee
FROM qryRecordSource
ORDER BY 1;

然后根据组合选择过滤表单，添加一个命令按钮，cmdApplyFilter，并在其单击事件过程中使用它...

Me.Filter = "[employee] = '" & Me.YourComboName.Value & "'"
Me.FilterOn = True

如果员工姓名可以包含撇号，请将其用于Filter 表达式...

Me.Filter = "[employee] = '" & _
    Replace(Me.YourComboName.Value, "'", "''") & "'"

如果要包含组合行以清除过滤器，请使用UNION 查询作为组合行源...

SELECT "*** ALL ***" AS employee
FROM Dual
UNION
SELECT employee
FROM qryRecordSource
ORDER BY 1;

... 其中 Dual 是任何只返回一行的表或查询。然后在命令按钮点击事件中你可以做...

If Me.YourComboName.Value = "*** ALL ***" Or _
        IsNull(Me.YourComboName.Value) Then
    Me.Filter = vbNullString
    Me.FilterOn = False
Else
    Me.Filter = "[employee] = '" & Me.YourComboName.Value & "'"
    Me.FilterOn = True
End If

实际上你甚至不需要命令按钮。您可以从组合的AfterUpdate 事件中设置Filter。