ms-access - 将 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。