使用 Access Forms Unbound 文本框作为表中的字段过滤器

Question

Access 2013 - 引用表单上的未绑定文本框

我目前正在尝试在表单名称 [DCM_Gap_Servers] 上使用未绑定的文本框 [Text161] 来对表格中的信息进行排序。我希望我创建的查询能够将来自[DCM_Gap_Servers]![Text161] 的用户输入作为从表名“服务器”中排序的字段。

这是我现在在查询中使用的 SQL：

SELECT * FROM Servers WHERE "Forms![DCM_Gap_Servers]![Text161]" IS NULL

** 我已经尝试过了：

"Forms![DCM_Gap_Servers]![Text161]" ; (Forms![DCM_Gap_Servers]![Text161]); Forms.[DCM_Gap_Servers]![Text161]     

如果我用我正在使用的实际字段名称替换文本框引用，这将随时可用，但由于有数百种字段组合，我需要引用才能工作。

我翻遍了，似乎找不到正确的答案。如果需要，我愿意在 VBA 中执行此操作，以正确完成过滤。

谢谢。

Answer 1

它是：

SELECT * FROM Servers WHERE Forms.[DCM_Gap_Servers].[Text161] IS NULL

但只要您的文本框为 Null，那只会选择所有记录。

其实是这样的：

SELECT * FROM Servers WHERE SomeField = Forms.[DCM_Gap_Servers].[Text161] 

要将表单值用作字段名，必须使用串联 SQL：

strSQL = "SELECT * FROM Servers WHERE " & Forms![DCM_Gap_Servers]![Text161].Value & " IS NULL"

您可以将其传递给现有查询对象的 SQL 属性：

MyQueryDef.SQL = strSQL

或者：

Constant SQL As String = "SELECT * FROM Servers WHERE {0} IS NULL"
FieldName = Forms![DCM_Gap_Servers]![Text161].Value
MyQueryDef.SQL = Replace(strSQL, "{0}", FieldName)

当然，请注意字段名称不是零长度字符串。