使用VBA控制表单与操作记录集

### 使用VBA控制表单与操作记录集 #### 1. 理解对象和集合 在Access中，几乎所有元素都是对象，如表格、查询和表单等。相似的对象会组成集合，例如数据库中的所有表格构成了该数据库的表格集合。有时候，单个对象本身也可以是一个集合，比如单个表单既是表单集合中的一个对象，也是一个由控件组成的集合；而每个控件自身也是一个集合，包含众多属性，这些属性可以在设计视图的属性表中查看。 对象具有属性、方法和事件这三个要素： - **属性**：是对象的某种特征，如大小、颜色、字体等。 - **方法**：是可以对对象执行的操作，例如每个表单都有打开和关闭的方法。 - **事件**：是对象发生的事情，比如点击表单上的按钮会触发其点击事件。 在VBA中操作对象，需要先声明对象变量，再将其设置为数据库中的特定对象或集合，具体步骤如下： 1. 使用`Dim`语句声明对象变量，指定其对象或集合类型。 2. 使用`Set`关键字将对象变量设置为特定对象或集合。 示例代码如下： ```vba Dim anyName As objectType Set anyName = specificObject ``` 其中，`anyName`是自定义的变量名，`objectType`是表4 - 3第一列中的关键字之一，`specificObject`代表特定的命名对象。 | 对象类型 | 用途 | | ---- | ---- | | AccessObject | 声明AllForms、AllReports等集合中的任何类型的Access对象 | | Form | 声明表单 | | Report | 声明报表 | | Control | 声明表单或报表上的控件 | | Property | 声明对象的属性 | | RecordSet | 声明一组记录 | 例如，要创建对名为“Products Form”的表单的引用，并为其指定一个短变量名`myForm`，可以使用以下代码： ```vba Dim myForm As AccessObject Set myForm = CurrentProject.AllForms("Products Form") ``` #### 2. 检查表单是否打开 可以创建一个自定义的VBA函数`isOpen()`来检查表单是否打开，避免代码和宏打开表单的多个副本。该函数的代码如下： ```vba Function isOpen(FormName As String) As Boolean isOpen = False Dim myForm As AccessObject Set myForm = CurrentProject.AllForms(FormName) If myForm.IsLoaded Then If myForm.CurrentView <> acCurViewDesign And myForm.CurrentView <> acCurViewLayout Then isOpen = True End If End If End Function ``` 使用示例： ```vba ' 打开表单，仅当表单未打开时 If Not isOpen("Products Form") Then DoCmd.OpenForm "Products Form" End If ' 关闭表单，仅当表单打开时 If isOpen("Products Form") Then DoCmd.Close acForm, "Products Form", acSaveNo End If ``` #### 3. 遍历集合 Access提供了`For Each...Next`循环来遍历集合，语法如下： ```vba For Each element In collection [statements] [Exit For] [statements] Next [element] ``` 其中，`element`是适合集合类型的对象变量，`collection`是集合的名称，`statements`是循环内要执行的语句。 示例代码： ```vba ' 遍历所有表单并打印名称 Dim myForm as AccessObject For Each myForm In CurrentProject.AllForms ' 对每个表单执行的代码 Debug.Print myForm.Name Next ' 遍历表单上的所有控件并打印名称 DoCmd.OpenForm "Products Form" Dim myCtl as Control For Each myCtl In Forms![Products Form] ' 对每个控件执行的代码 Debug.Print myCtl.Name Next ' 遍历控件的所有属性并打印名称和值 DoCmd.OpenForm "Products Form" Dim myProp as Pr ```