MS Access级联组合框：基于变量文本列表的SQL查询失效问题

1. 修正SQL表名不一致错误 #

你的SQL语句存在表名不匹配问题：SELECT和WHERE子句引用的是[Table 2]，但FROM子句指定的是[Nomenclature documentaire]，这会导致数据库无法找到对应字段，直接返回空结果。

需要将表名统一，比如如果数据源是[Table 2]，则修改为：

SELECT [Table 2].Type, [Table 2].Description FROM [Table 2] WHERE [Table 2].Type In (...);

如果数据源是[Nomenclature documentaire]，则修改为：

SELECT [Nomenclature documentaire].Type, [Nomenclature documentaire].Description FROM [Nomenclature documentaire] WHERE [Nomenclature documentaire].Type In (...);

2. 修正In子句的分隔符 #

Access的Jet SQL语法中，In子句的多个值必须用逗号分隔，分号是SQL语句的结束标记，即使手动输入分号在查询设计器中能工作，VBA执行拼接后的SQL时会识别错误。

修改VBA代码，将分号替换为逗号：

Dim formattedValues As String
' 把分号替换为符合SQL语法的逗号
formattedValues = Replace(Me.Expectedvalueslist, ";", ",")
' 拼接正确的SQL语句，注意统一表名
sqlresult = "SELECT [Table 2].Type, [Table 2].Description FROM [Table 2] WHERE [Table 2].Type In (" & formattedValues & ");"
Me.Expectedvalueslist.Caption = sqlresult
Me.DocumentSelect.RowSource = sqlresult
' 强制重新查询组合框
Me.DocumentSelect.Requery

3. 额外检查点 #

• 确认Me.Expectedvalueslist的实际值确实是带双引号的格式（如"A";"B"），如果原始值是不带引号的A;B，需要先给每个值添加双引号：

  ' 如果Expectedvalueslist是A;B这种格式，先处理为带引号的字符串
  formattedValues = """" & Replace(Me.Expectedvalueslist, ";", """,""") & """"
  

• 确保组合框的BoundColumn、ColumnCount等属性设置正确，避免数据显示异常。

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