在VBA中如何使用记录集

Type 在 vba 中用于自定义用户数据类型，其语法格式如下：

[Private | Public] Type varname

elementname [([subscripts])] As type

[elementname [([subscripts])] As type]

. . .

End Type

Type 语句只能在模块级使用，在标准模块中，其缺省范围是 Public ，而在类模块中，用户自定义类型只能是私有的（Private），且使用 Public 关键字也不能改变其可见性。

上面问题提供的代码中，定义范围使用了 Private，即 私有，这样就限制了使用范围。

以下是能正常运行的代码示例：

模块中声明：

使用：

前提:窗体的 允许编辑、允许添加 属性设为 是

Private Sub 保存_Click()

'检查录入完整性

If Me.文本框1 = "" Or Me.文本框2 = "" Or Or Me.文本框3 = "" Or Me.文本框4 = "" Or Me.文本框5 = "" Or Me.文本框6 = "" Or Me.文本框7 = "" Or Me.文本框8 = "" Or Me.文本框9 = "" Or Me.文本框10 = "" Or Me.文本框11 = "" Or Me.文本框12 = "" Or Me.文本框13 = "" Or Me.文本框14 = "" Or Me.文本框15 = "" Or Me.文本框16= "" Then

MsgBox "记录录入未完整！", vbInformation, "提示:"

Exit Sub

Else

DoCmd.RunCommand acCmdSelectRecord

'将字段 备注 的内容 设置为:

me.备注 = me.文本框1 &" m至 " &me.文本框2 &" m收卷单偏差＜ " &me.文本框3 &" m " '&……以后内容省略

'保存记录

DoCmd.RunCommand acCmdSaveRecord

End if

End Sub

在窗体上添加如下控件各1个： DriveListBox --- 驱动器列表 DirListBox ---- 文件夹列表 FileListBox ---- 文件列表 TextBox ---- 文本框 CommandButton ---- 命令按钮 完整代码如下： Option Explicit Private Sub Command1_Click() Unload Me

---