Question

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

关于我的表格代码：

private clsMyClass as New MyClass

如果在表单上我创建了一个包含代码的按钮：

MsgBox clsMyClass.Cost  ' the value in cost is displayed

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

我已尝试将=clsMyClass.Cost放入控件来源，但我得到＃？NAME

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

Answer 1

由于Access不与class属性配合作为文本框控件源，因此在表单的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

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

1 个答案: