Question

我只想重新排序Access中的一堆Forms的VBA，几乎完全相同。所以我创建了一个类clsPopup，我只想将所有这些Forms中的一些集合传递到类中，这样我就可以在那里或那里或者那里访问它们的条目。

我可以将Popup的Form元素传递给类，因为我在clsPopup中创建了一个名为Load的子类，如

Dim m_frm As Form  

sub Load(frm As Form)
    Set m_frm = frm
    debug.print m_frm.colSp("Name")
end sub

在我试过的表格中

Dim m_clsPopup As clsPopup
Dim colSp As Collection

sub Form_Load()
    Set m_clsPopup = New clsPopup
    Set colSp = New Collection

    colSp.Add "SomeString", "Name"
    m_clsPopup.Load Me.Form

end sub

此时我在m_clsPopup.Load Me.Form行中得到了2465运行时错误。

我的主要想法是，只收集表单中所有需要的数据作为集合，而不是我可以轻松地在课堂上使用它们。

当然我想到了数组，但是集合看起来更方便，我可以避免一些可怕的索引。

啊，它需要在Access 2010中运行。可能会出现问题吗？

我觉得只缺少一小部分代码。任何人都可以帮助从冗余的杰作中创建出色的代码吗？

通过类模块中的VBA访问表单中的集合

0 个答案: