Access内置函数库能轻松解决很多问题。如果没有此函数,我们可以自定义函数来处理问题。
这里我们说说如何调用函数。调用内置函数和自定义函数方法是一样的。
一.创建自定义函数
在VBE视图下,插入-模块,新建一个模块后,键入以下函数。一个累加的函数。
Public Function leijia(n As Integer) Dim i As Integer Dim y As Long y = 0 For i = 1 To n y = y + i Next leijia = yEnd Function
?
二.调用函数
1.在查询中调用函数
可以在查询中直接调用,如Now(),year()等函数,也可以调用自定义函数
?
SELECT 表1.aaa,date() as 今天, leijia(5) AS 累加 FROM 表1;
?
?
?
2.在窗体报表中调用函数
在窗体和报表中调用函数是一样的,只需要引用函数即可
?
'按钮单击事件Private Sub Command2_Click() MsgBox leijia(Text0)End Sub
?
?
或者直接(=函数)填入参数即可获取到值。
……