Access-VBA - 使用 ConcatRelated 编译错误 - 以前工作过

Question

我在尝试使用 Allen Browne 的 ConcatRelated 函数运行查询时收到编译错误。

编译错误：在查询表达式 'SELECT MbrNbr, EventIndex, ConcatRelated("EventIndex", "PlayerResults", MbrNbr = 123456)'中。

神秘的是我知道这之前成功执行了。

注意：这是我第一次在项目中使用MS Access，所以这是我第一次使用Allen的ConcatRelated函数。我不得不假设我缺少一些明显的东西。我用 MS Excel VBA 编码已经有 10 年了。

我确实有一个比下面的示例更复杂的查询，但我将这个非常基本的查询放在一起只是为了测试我的设置是否突然出现问题。

我已经尽我所能尝试解决这个问题，所有代码示例似乎都表明我的做法是正确的。

设置：

• ConcatRelated 保存为名为 Concat_Related_Data 的函数。我读过函数名不能是ConcatRelated。

• 收到错误的简单查询是：

  SELECT MbrNbr, EventIndex, ConcatRelated("EventIndex", "PlayerResults", MbrNbr = 123456) 
  FROM PlayerResults;
  

  注意：我复制了 Allen 的示例，并通过调用我的一张表简单地对其进行了编辑。字段MbrNbr 定义为“数字”。

任何见解都将不胜感激！

Answer 1

在这里查看http://allenbrowne.com/func-concat.html 之后，我看到第三个参数也被定义为字符串参数（如预期的那样）而不是布尔值。

所以我认为你应该使用这个：

SELECT MbrNbr, EventIndex, ConcatRelated("EventIndex", "PlayerResults", "MbrNbr = 123456") FROM PlayerResults;

信息：ConcatRelated的第三个参数在这里也是一个字符串，包含你的条件。

Answer 2

除了@UnhandledException 提供的答案；您在哪里声明：

ConcatRelated 保存为名为@9​​87654322@ 的函数。
我读过函数名不能是ConcatRelated。

为了清楚起见：函数的代码应该从 Allen Browne 的站点“按原样”复制到新的 VBA 模块中，而不更改函数名称。

但是，在保存 VBA 模块时，模块 的名称应与ConcatRelated 不同，否则在尝试调用该函数时会收到类型不匹配错误。

---

请注意，如果您在 SQL 代码中使用由 VBA 中的字符串表示的代码，则需要转义双引号（以确保它们保留在 SQL 代码中），或使用单引号相反，即：

CurrentDb.OpenRecordset("SELECT MbrNbr, EventIndex, ConcatRelated('EventIndex', 'PlayerResults', 'MbrNbr = 123456') FROM PlayerResults")

或者：

CurrentDb.OpenRecordset("SELECT MbrNbr, EventIndex, ConcatRelated('EventIndex', 'PlayerResults', 'MbrNbr = 123456') FROM PlayerResults")