如何在 Word VBA 中使用使用 Access-VBA 定义函数的 Access 查询？

Question

问题的状态：

我不再认为我引用 Excel 或查询具有参数是相关的。我认为问题可以归结为：如何使用在 Word VBA 中使用 Access-VBA 定义的函数的 Access 查询？

我想要做什么 不可能，我该怎么办根据 shahkalpesh 的答案？

---

我在 Access VBA 中有一个函数：

Public Function Acos(radians As Double) As Double
     Acos = WorksheetFunction.Acos(radians)
End Function

WorksheetFunction 来自引用 Excel（我这样做只是因为它定义了 acos 函数）。

我在具有三个参数的查询中使用此函数。然后，我在 Word VBA 中运行此查询，如下所示：

Dim command As New ADODB.command
With command
    .ActiveConnection = connection
    .CommandText = "MyQueryName"
    .CommandType = adCmdStoredProc
    .Parameters.Append .CreateParameter( _
        "Param1", adDouble, adParamInput, , param1Value)
    .Parameters.Append .CreateParameter( _
        "Param2", adDouble, adParamInput, , param2Value)
    .Parameters.Append .CreateParameter( _
        "Param3", adDouble, adParamInput, , param3Value)
End With

Dim records As New ADODB.Recordset
records.Open command, , adOpenKeyset, adLockOptimistic

我在 Word VBA 中收到错误，指出函数 Acos 未定义。

有想法吗？

更新

回复评论：是的，查询在 Access 中完美运行。

另外，请注意，这都是 Office 2007。

更新 2

我们将从 Access 转到 Word，因为 VBA 程序已经在 Word 中，但需要进行一些数据处理，这并不实际在 VBA 中执行。

更改为创建 Excel 应用程序对象除了显着减慢查询速度之外没有任何影响。

更新3

我在Word 和Access 中都引用了Excel。 （如果有更好的方法来获得 acos 函数，我当然愿意。）

Answer 1

不要使用 Excel 来获取 ACos 的结果，而是尝试使用

其中 X = 字段，该字段包含将传递给 Acos 的值。

SELECT X, IIF(X = 1, 0, Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1))
FROM myTable;

这是 页面，我引用了ACos公式。

尝试&保存以上查询。
Access 中还有其他函数，例如 Atn 和 Sqr，它们可以帮助您获得 ACos 所需的内容。因此，您不需要让 Excel 为您计算。

注意：您必须对 ACos 不支持的值进行错误处理。
例如 =ACOS(1.25) 为您提供 #NUM! （不是数字）

类似地，如果上述查询的参数是 1.25，它将返回错误.
因此，请小心并验证输入以确保查询不会崩溃。

Answer 2

根据此页面：

http://bytes.com/topic/net/answers/124351-custom-function-vba-access-stored-query- Called-asp-net

我不认为我想要什么 em> 做是可能的。如果有人可以提供有关如何使 shhkalpesh 的答案发挥作用的更多信息，我将给予那里的答案以信用。