VBA-过程和函数

时　间:2008-01-08 08:33:48
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:VBA-过程和函数
正　文:

过程和函数就是能执行特定功能的语句块。多年来编程语言的发展趋势就是更注重代码的重用性，使程序结构更加清晰。其实函数也是过程，不过它是一种特殊的、能够返回值的Function过程。能否返回值，也是常说的过程和函数之间最大的区别。

过程最大的好处就是在一个地方写了一个功能模块之后，如果要在其它地方实现同样的功能，不必将该代码重新写一遍，只要直接调用就行。（这么简单！）当你发现功能模块有错误时，不必在整个应用程序中查找错误，然后逐个改正逐句调试（事实上这是一件相当艰苦的事！）。此时你只需要改正过程和函数，调试成功，程序中所有引用的该过程或函数都将得到维护——如果你有用到过程或函数的话！

1． 过程

可以用Sub语句声明一个新的过程、它接受的参数和该过程中的代码。其语法格式如下：

[Public|Private][Static]Sub 子程序名（[<参数>]）[As 数据类型]

[<子程序语句>]

[Exit Sub]

[<子程序语句>]

End Sub

使用Public关键字可以使这个过程适用于所有模块中的所有其它过程；用Private关键字可以使该子程序只适用于同一模块中的其它过程。

一个例子：

Access中，关闭窗体的命令是DoCmd.OPENFORM。我们要打开一个名为“窗体1”的窗体，加入错误捕获后代码如下：

On Error GoTo Err_打开窗体 ’出错则转入错误处理程序

DoCmd.OPENFORM "窗体1" ’打开窗体1

Exit_打开窗体:

Exit Sub

Err_打开窗体: ’如果错误则弹出出错消息，并结束打开动作

MsgBox Err.Description

Resume Exit_打开窗体

DoCmd.OPENFORM在一个应用程序中，我们会遇到大量的像打开窗口这样的操作，不妨将它写为以下过程：

Sub 打开窗体(stDocName As String) ’打开窗体过程，参数stDocName为需要打开

’的窗体名称

On Error GoTo Err_打开窗体

DoCmd.OPENFORM stDocName ’打开指定窗体

Exit_打开窗体:

Exit Sub

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店