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