MS Access表单自定义类对象动态访问方案咨询

我之前做VBA表单开发时也碰到过一模一样的需求，下面给你几个实用的解决方案，你可以根据自己的代码规模和需求来选：

方案1：自定义对象集合类（最推荐，结构清晰） #

这个方法相当于给自己的自定义对象建一个类似Controls的专属集合，管理起来非常规整：

1. 创建集合类模块
   新建一个类模块，命名为CustomObjCollection，然后在里面写入以下代码：

   Private colObjects As Collection
   
   Private Sub Class_Initialize()
       Set colObjects = New Collection
   End Sub
   
   Private Sub Class_Terminate()
       Set colObjects = Nothing
   End Sub
   
   Public Sub Add(obj As Object, key As String)
       colObjects.Add obj, key
   End Sub
   
   Public Property Get Item(key As Variant) As Object
       Set Item = colObjects(key)
   End Property
   
   Public Property Get Count() As Long
       Count = colObjects.Count
   End Property
   

   这里封装了标准的Collection对象，提供了和Controls集合对齐的Add、Item、Count核心方法/属性。

2. 在表单中集成集合
   在你的表单模块里，声明一个公共的集合对象：

   Public CustomObjects As CustomObjCollection
   

   然后在表单的Initialize事件里初始化集合，并把实例化的自定义对象加入其中：

   Private Sub UserForm_Initialize()
       Set CustomObjects = New CustomObjCollection
       ' 实例化自定义对象时同步加入集合
       Set objName1 = New YourCustomClass
       CustomObjects.Add objName1, "objName1"
       
       Set objName2 = New YourCustomClass
       CustomObjects.Add objName2, "objName2"
       ' ... 其他对象实例化逻辑
   End Sub
   

3. 动态访问对象
   现在你就能像用Controls那样通过字符串索引访问自定义对象了：

   ' 根据ID动态获取目标对象
   Dim targetObj As YourCustomClass
   Set targetObj = Forms("Formname").CustomObjects("objName" & ID)
   ' 直接访问对象属性
   Debug.Print targetObj.Property
   

方案2：用CallByName直接调用（轻量，无需额外集合） #

如果不想维护额外的集合类，可以用VBA内置的CallByName函数，直接通过对象名称字符串获取公共对象：

Dim targetObj As YourCustomClass
' vbGet参数表示获取表单的公共对象成员
Set targetObj = CallByName(Forms("Formname"), "objName" & ID, vbGet)
' 访问对象属性
Debug.Print targetObj.Property

⚠️ 注意：这个方法要确保对象确实是表单的公共成员，且名称拼接完全正确，否则会抛出“找不到属性或方法”的错误，建议加上错误处理：

On Error Resume Next
Set targetObj = CallByName(Forms("Formname"), "objName" & ID, vbGet)
On Error GoTo 0
If Not targetObj Is Nothing Then
    ' 正常访问属性逻辑
Else
    MsgBox "目标对象不存在"
End If

方案3：不推荐的小技巧（将对象加入Controls集合） #

理论上可以把自定义对象添加到Controls集合，但Controls原本是为表单原生控件设计的，自定义类直接加入可能会出现兼容性问题，除非你的自定义类实现了Control接口——这个操作复杂度高，容易引发未知问题，所以一般不推荐使用。

内容的提问来源于stack exchange，提问作者Java-Jim