将TextBox值传递给SUB中的变量

Question

我有一个表单（名为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

Answer 1

尝试将txt_AsOfDate.Text替换为Form_DateForm.txt_AsOfDate.Text。通过名称直接在代码中引用控件只能在表单中工作，而我猜这个代码是在一个单独的模块中。

为了捕获这样的内容，请将Option Explicit添加到代码模块的顶部。这会强制编译器通知您是否存在未使用Dim首次声明的变量。