|
从VB里调用Access中的自定义函数
来源:微软网站
通过使用 Application 对象的“运行”方法调用存放在 Microsoft Access 数据库中的自定义 Visual Basic 过程。自定义过程必须作为 Public 声明并且要位于标准模块(非窗体或报表模块)中。例如,可以向 Northwind.mdb 示例数据库的新模块中添加下面的函数:
Public Function MyDateAdd(interval As String, number As Integer, _
startdate As Date) As Date
MyDateAdd = DateAdd(interval, number, startdate)
'Calls the Microsoft Access built-in DateAdd function.
End Function
要运行上述函数,请将下面的示例代码添加到程序中。
Dim objAccess as Object, newdate as Date
Set objAccess = GetObject _
("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb")
newdate = objAccess.Run("MyDateAdd", "m", 1, Date)
MsgBox newdate,,"MyDateAdd returned"
|
|