ACCESS 数据库-VBA程序设计（1）

1．创建标准模块与窗体模块

2．常量、变量、函数及表达式的使用

3．数据类型、输入、输出函数及程序的顺序结构

4．选择结构if语句及SelectCase 语句的使用

5．Do While循环、For循环语句的使用

6．VBA过程、过程的参数传递、变量的作用域和生存期

7．VBA数据库的访问

创建标准模块和窗体模块

1．在 “教学管理.accdb” 数据库中创建一个标准模块“M1”，并添加过程“P1”

操作步骤：

（1）打开“教学管理.accdb”数据库，选择“创建”选项卡——“宏与代码”组——单击“模块”按钮，打开VBE窗口。选择“插入”——过程，弹出过程对话框

图6-1VBE菜单栏及插入菜单的下拉菜单

图6-2添加过程对话框

图6-3过程的建立及调用

（2）在代码窗口中输入一个名称为“P1”的子过程，如图6-3所示。单击“视图”→“立即窗口”菜单命令，打开立即窗口，并在立即窗口中输入“Call P1( )”，并按回车键，或单击工具栏中的“运行子过程/用户窗体”按钮，查看运行结果。

（3）单击工具栏中的“保存”按钮，输入模块名称为“M1”，保存模块。单击工具栏中的“视图Microsoft office Access”按钮，返回Access。

2．为模块“M1”添加一个子过程“P2”

操作步骤：

（1）在数据库窗口中，选择“模块”对象，再双击“M1”，打开VBE窗口。

（2）输入以下代码：

SubP2()

Dim nameAs String

name =InputBox("请输入姓名", "输入")

MsgBox"欢迎您" & name

End Sub

（3）单击工具栏中的“运行子过程/用户窗体”按钮，运行P2，输入自己的姓名，查看运行结果。

（4）单击工具栏中的“保存”按钮，保存模块。

3．创建窗体模块和事件响应过程

操作步骤：

（1）在数据库窗口中，选“窗体”对象，单击“新建”按钮，选择“设计视图”，打开窗体的设计视图，再单击工具栏中的“代码”按钮，打开VBE窗口，输入以下代码：

PrivateSub Form_Click()

Dim StrAs String, k As Integer

Str ="ab"

For k =Len(Str) To 1 Step -1

Str = Str& Chr(Asc(Mid(Str, k, 1)) + k)

Next k

MsgBoxStr

End Sub

（2）单击保存按钮，将窗体保存为“Form7_1”，单击工具栏中的“视图Microsoftoffice Access”按钮，返回到窗体的设计视图中。

（3）选择“视图”→“窗体视图”菜单命令，单击窗体，消息框里显示的结果是__________________。