Ms access 将访问查询字段作为数组传递给模块函数

我试图在一个模块中编写一个函数，我们从传递给它的MS ACCESS查询中获取一个字段，并将该字段的值返回到查询中的另一个字段

下面提供了我在模块中编写的代码

    Public Function YearAmps(ByRef array1() As Double)

    Dim array2(0 To UBound(array1())) As Double

    Dim I

    For I = 0 To UBound(array2())
        array2(I) = array1(I)

    Next I

    YearAmps = array2

End Function

当我在查询字段中输入以下内容时：YearAmps（[SN]），其中YearAmps是我调用的函数，SN是我传递给函数并运行代码的字段，我得到一个错误

有人知道我哪里出错了吗。是否可以将查询中的字段作为模块中的数组传递，然后返回该数组

---

任何帮助都将不胜感激

我不确定我是否理解你想要什么，但是array1只是一个double的值，而不是一个数组。你能详细说明你想要达到的目标吗？这是关于多值字段的吗？