根据父表中的记录属性启用/禁用表单列表字段

Question

我的数据库中有两个表：Add_New_Initiative 和 Add_Risk

Add_New_Initiative 和 Add_Risk 之间存在 1:M 的关系。

当通过 Add_Risk 表单添加风险时，用户必须从下拉组合框中选择相关的 Initiative_ID。

根据该选择，将启用或禁用 Add_Risk 表单中名为 Risk_Area 的值列表。为了确定这一点，我需要按 Initiative_ID 查找记录，并查看用户之前在 Add_New_Initiative 表单中为标题为 Tier 的值列表选择的答案。

从逻辑上讲，我认为它是这样发展的：

1. 如果 Add_Risk 表单上的 Initiative_ID 为 Null，则 Risk_Area 将被禁用。
2. 如果 Add_Risk 表单上的 Initiative_ID 不为空，则在 Add_New_Initiative 表单上查找具有用户在 Add_Risk 表单上输入/选择的 Initiative_ID 的记录的 Tier 值。
3. 如果层级为 1 或 2，则将在 Add_Risk 表单上启用 Risk_Area。
4. 如果层级为 3 或 Null，则在 Add_Risk 表单上将禁用 Risk_Area。

在 VBA 中编码时，我将如何引用存储在其他表单/表中的层值？

Answer 1

根据问题，您在查找/引用其他表中的数据时遇到问题。
执行 dlookup 以查找表/查询中的特定值。

dim VarTier as integer
VarTier = nz(Dlookup("Tier","Add_New_Initiative","Initiative_ID=" & me.Initiative_ID.value),-1)

Dlookup 将返回：

1. 如果没有找到符合条件的记录，则为 Null，由 nz 处理，从而使 VarTier 变为 -1，因此您可以使用 if 语句来处理它。
2. 如果找到 Initiative_ID 等于 Add_Risk 表单的记录，它将返回该记录的 Tier 值。

然后您将不得不将查找结果与简单的 if 进行比较。

If Vartier = 1 or VarTier = 2 then
    me.list.enabled = true
End If

在此处了解有关 Dlookup 的更多信息。
https://msdn.microsoft.com/es-es/library/office/ff834404(v=office.15).aspx