查询中没有反余弦函数（acos），怎么解？

futeng　发表于：2014-11-26 10:43:31 　

erxcel中有

要转个公式

发现access找不到acos函数，只有sin，cos，tan

futeng 发表于：2014-11-26 10:44:41

在本站别的地方搜到了，不好意思，不过在查询里面还是用不了啊：

'要设置对 Microsoft Excel 对象库的引用，请执行下列步骤：
'在 Access 中，按 ALT+F11 切换到 Visual Basic 编辑器。
'在工具菜单上，单击引用。
'在引用框中，单击 Microsoft Excel 9.0 Object Library 复选框，然后单击确定。

Private Sub cmdCal_Click()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
Me.Text3.SetFocus
Me.Text3 = objExcel.WorksheetFunction.acos(Me.Text0)
objExcel.Quit
Set objExcel = Nothing
End Sub

Top

煮江品茶发表于：2014-11-27 10:21:39

在标准模块中写一个自定义函数，然后在查询中引用这个函数即可。不过可能速度可能会比较慢。

public function Acos(s as single) as single

Dim objExcel As Excel.Application

Set objExcel = CreateObject("Excel.Application")

Acos=objExcel.WorksheetFunction.acos(s)

objExcel.Quit

Set objExcel = Nothing

end function

Top

futeng 发表于：2014-12-04 15:03:45

谢谢！

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

查询中没有反余弦函数（acos），怎么解？