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

Question

国家的问题：

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

我想要做什么is impossible，如何使内联版本的Acos函数与我的查询一起工作，按照shahkalpesh's answer？

---

我在访问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未定义的错误。

想法？

UPDATE

在回应评论：是的，查询工作完美地访问。

而且，只是一张纸条，这是所有Office 2007

更新2

我们从去访问到Word，因为VBA程序已在Word中，但需要做一些数据的运算这在VBA中并不实际。

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

更新3

我在Word和访问引用到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; 

这里是page，我提到为ACos式。

尝试&保存上述查询。
访问其他功能，如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

我不认为我想做是可能的。如果任何人都可以提供更多关于如何使shahkalpesh的答案工作的信息，我会在那里给出答案。