ms-access - 获取访问表单以显示来自自定义类的属性值

Question

我有一个 MS Access 表格和一个班级。该类有一个属性：成本

在我的表格代码上：

private clsMyClass as New MyClass

如果在表单上，​​我使用以下代码创建一个按钮：

MsgBox clsMyClass.Cost  ' the value in cost is displayed

我想要一个文本框来显示这个值。

我尝试放入=clsMyClass.Cost控制源，但我得到一个#?NAME

如何在表单的文本框中显示我的类属性的值？

Answer 1

由于 Access 不与作为文本框控件源的类属性配合使用，因此请在窗体的 On Current 事件期间为其赋值。

这适用于 Access 2007：

Option Compare Database
Option Explicit
Private clsMyClass As MyClass

Private Sub Form_Current()
    Me.txtCost = clsMyClass.Cost
End Sub

Private Sub Form_Open(Cancel As Integer)
    Set clsMyClass = New MyClass
End Sub