如何使用 Dlookup for Multiple Criteria 创建动态组合框

Question

我有两个组合框来自：txtKategorie 和 txtTyp。 第一个 Combobox (txtKategorie) 的值已修复！ 我希望第二个 Combobox (txtTyp) 的值根据用户在第一个中选择的内容而改变。 如果用户选择“Datalogger”，则第二个组合框应该只包含“Base Layer Classic”和“Base Layer Plus”，如图所示。 “加速度计”也是如此。

我已将代码放入第一个 Combobox 的 AfterUpdate 事件中：

 If txtKategorie.Value = "Datalogger" And txtTyp.ListCount = 0 Then   
    i = 1
    Do While txtTyp.ListCount < DCount("ID", "tblNomenklatur", "[Kat] = 'K'")
    txtTyp.AddItem DLookup("[Typ]", "tblNomenklatur", "[ID] =" & i And "[Kat] = 'K'")
    'And "[Kat] = 'K'"
    i = i + 1
    Loop

当表单打开时，只有第一个组合框“txtKategorie”具有值。当用户选择 Datalogger 时，代码检查表中有多少记录具有 [Kat] = "K" 以定义 Do While 语句将运行多长时间。然后“txtTyp.AddItem”-Statement 应该将“Base Layer Classic”和“Base Layer Plus”添加到“txtTyp”组合框中。但不幸的是，该代码不起作用。包含两个标准的 Dlookup-Statement 存在问题。如果我删除了两个标准中的任何一个，则代码可以正常工作，但显然会为第二个 Combobox 提供错误的结果。如果我这样离开它，第二个 Combobox 保持为空。 有人知道我做错了什么吗？

Answer 1

您可以通过以下代码轻松完成。用您的表名更改表名。

Private Sub txtKategorie_AfterUpdate()
    Me.txtTyp.RowSource = "SELECT DISTINCT Table1.Typ FROM Table1 WHERE Table1.Kategorie='" & Me.txtKategorie & "'"
    Me.txtTyp.Requery
End Sub

或者您可以从行源查询生成器中以图形方式执行此操作。以下是步骤。

1. 组合框txtKategorie 已修复。好的！
2. 对于第二个组合框txtTyp，请按照以下步骤操作。
3. 选择组合框txtTyp。从属性窗口中选择Row Source，然后单击查询生成器... 小三点。查看屏幕截图。
4. 在查询构建器窗口中，从您的数据表（如屏幕截图）构建查询，并将Kategorie 列的条件设置为[Forms]![Form1]![txtKategorie] 保存并关闭查询构建器窗口。

现在对于 After Update 事件中的 Combobox txtKategorie，请在下面的行中写入以重新查询 txtTyp。你完成了！

Private Sub txtKategorie_AfterUpdate()
    Me.txtTyp.Requery
End Sub