VBA for access 语言入门

时　间:2007-12-08 09:11:33
作　者:umvsoft整理   ID：16  城市：江阴
摘　要:VBA for Access 语言入门 
正　文:

Access 本身具有强大的向导机制，能提供大量的数据库常用操作。但如果你能适当的加上少量的代码，那么你的程序将是专业级的。这一切都靠VBA。

VBA（Visual Basic for Applications）是Microsoft Office 系列的内置编程语言，功能强大，面向对象（OOP），非常适合入门级学习。如果你有Visual Basic 基础，那么你的学习将更加轻松而有效率。

（一） 理解对象、属性、方法和事件

同其它任何面向对象的编程语言一样，VBA里也有对象、属性、方法和事件。所谓对象，就是代码和数据的组合，可将它看作单元，例如，表、窗体或文本框等都是对象。每个对象由类来定义。所谓属性，是指定义了对象特性，像大小、颜色、对象状态等。所谓方法指的是对象能执行的动作，如刷新等。事件是一个对象可以辨认的动作，像单击鼠标或按下某键等，并且可以写某些代码针对此述动作来做响应。

简单的说，有一个苹果，这是一个对象。它是红的。那是它的颜色属性color=红。如果苹果变甜了，这就是它成熟的方法。这时你上去咬它一口，发生了“咬”的事件；其后果就是苹果不再完整，而你感觉到甜味。在VBA中，比如，一个窗口上有一个“关闭”按钮，这是两个“对象”。窗口及按钮的颜色、大小是它们的属性。当你按下“关闭”按钮时，发生关闭事件，窗口关闭。

一个例子：

新建一个窗体。放置两个按钮和一个文本框控件。按钮的名称分别定义为“com显示”、“com清除”；按钮的标题分别定义为“显示”、“清除”。文本框的名称定义为“txt你好”。然后在窗体模块窗体中写入以下代码：（’后的文字为代码注释）

Option Compare Database

Private Sub com清除_Click() '单击清除按钮事件

Me.txt你好.SetFocus 'SetFous方法，使文本框具有焦点

Me.txt你好.Text = "" '使文本框的Text属性为“”(空)

End Sub '结束过程

Private Sub com显示_Click() '单击显示按钮事件

Me.txt你好.SetFocus 'SetFous方法，使文本框具有焦点

Me.txt你好.Text = "你好！欢迎学习VBA" '使文本框的Text属性为“你好…”

End Sub '结束过程

Private Sub Form_Load() '窗体加载事件

Me.Caption = "欢迎！" '设使窗体的Caption(标题)属性为“欢迎”

End Sub

运行该窗体，将得到类似下图所示结果：