0

日付値を表示するテキスト ボックス (txt_AsOfDate という名前) を含むフォーム (DateForm という名前) があります。

次のコードを持つ別の 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.TextてみてくださいForm_DateForm.txt_AsOfDate.Text。名前でコード内のコントロールを直接参照することは、フォームでのみ機能しますが、このコードは別のモジュールにあると推測しています。

このようなものをキャッチするOption Explicitには、コード モジュールの先頭に追加します。これにより、最初に で宣言されていない変数が使用されている場合に、コンパイラに強制的に通知されますDim。

于 2013-11-12T21:43:38.177 に答える