查询中的 ConcatRelated 函数

Question

我正在尝试在 Access 2003 中创建一个报告，该报告在单个串联字符串中列出每个人的所有子项。 Allen Browne's ConcatRelated() 看起来很有希望。

于是我将代码复制到一个模块中，从调试菜单中编译（什么也没发生）并进行了查询：

SELECT Moms.MomID, Moms.MomLast, ConcatRelated("KidFirst","Kids","MomID =" & Kids.MomID)
FROM Kids INNER JOIN Moms ON Kids.MomID = Moms.MomID;

我收到一条错误消息，提示“表达式中未定义函数 'Concatrelated'。

出了什么问题？我唯一偏离指示的地方是在模块名称中键入“ConcatRelated”。

Answer 1

不要像函数一样调用模块，它有时会使 VBA 混淆。
例如，将模块重命名为“DatabaseUtils”。

确保函数确实定义为Public Function ConcatRelated(...，这里的Public很重要，否则函数在模块本身之外是不可见的。