項目

　Withの利用

概要

　Withステートメントを利用すると、オブジェクト名の再指定を省略でき、実行速度が向上する事ができます。
　実効速度の向上のほうは、かなり負荷のかかる処理以外、体感できないと思います。
　また、Withステートメントはネストする事もできます。

例

Option Compare Database
Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'サブフォームとサブフォームのコントロールにアクセスする
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()

    With Me.埋め込み1.Form

        .AllowAdditions = False

        With .txt条件3
            .value = "hoge"
        End With

    End With

End Sub