ACCESS【VBA】：007创建FUNCTION程序

创建FUNCTION

过程、模块与语句：“添加过程”对话框、FUNCTION关键字

Function程序又被称为函数，需要返回计算的结果。制作出Function程序之后，可以在ACCESS的查询或者窗体中使用该程序，将其当做自定义函数使用。

与SUB过程相比，FUNCTION程序过程中必须含有“程序名=返回值”这样的代码。

创建FUNCTION，有两种方法可供选择，一种是在VBA编辑器代码窗口打开的情况下，使用“插入/过程”命令打开“添加过程”对话框，选中“函数”单选按纽，设置名称即可创建FUNCTION程序，如下图所示：

另一种方法是直接在VBA编辑器中输入“FUNCTION 程序名”来创建FUNCTION程序。

实例操作

本例通过上述的第二种方法来创建一个FUNCTION程序，该过程通过两个输入对话框得到两个参数，并使用消息对话框返回两个数的求积。

1、在代码窗口创建FUNCTION函数，并输入求积代码

2、创建SUB过程，并调用FUNCTION函数中的“求积'

3、按F5键运行SUB过程，查看代码运行的效果

=======================================

其具体VBA代码如下：

Option Compare Database

Option Explicit

'创建一个求两数之积的函数

Function 求积(m As Double, n As Double)

    求积 = m * n

End Function

'创建一个sub过程，在该过程中调用“求积”程序

Sub 调用求积()

    Dim x As Double

    Dim y As Double

    '获取两个因数

    x = InputBox('第一个因数')

    y = InputBox('第二个因数')

    '调用“求积”程序计算两个因数的积

    MsgBox x & '×' & y & '=' & 求积(x, y)

End Sub

执行过程

按F5键，运行SUB  加过程的调用求积，其结果如下所示：

输入两个参数

最后输入结果

本节完，谢谢对小才子的支持！

微信：accessvba

长按识别，点击关注

ACCESS VBA持续更新中...