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

Question

我有一个 MS Access Form 和一个类(class)。该类有一个属性:成本

在表格代码上，我有:

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