0

我有一个表单(名为 DateForm),其中包含一个显示日期值的文本框(名为 txt_AsOfDate)。

我有一个单独的 SUB,其中包含以下代码:

Sub Test()


    Dim AsOfDate As String
    AsOfDate = txt_AsOfDate.Text

    MsgBox (AsOfDate)

End Sub

运行它时,我收到以下错误:

Run-time error '424': Object required

到底是怎么回事?我尝试在 SUB 的开头加载 DateForm,还尝试通过进一步定义对象模式来分配值,如下所示,但没有运气。我究竟做错了什么?

AsOfDate = DateForm.txt_AsOfDate.Value
4

1 回答 1

2

尝试替换txt_AsOfDate.TextForm_DateForm.txt_AsOfDate.Text. 通过名称直接在代码中引用控件仅在表单中有效,而我猜测此代码位于单独的模块中。

为了捕捉这样的东西,添加Option Explicit到代码模块的顶部。这会强制编译器通知您是否使用了一个不是首先用 . 声明的变量Dim

于 2013-11-12T21:43:38.177 回答