WithステートメントでIFステートメントを使用する

Question

Accessでvbaコードに "with"ステートメントを設定しようとしていますが、 "With"が参照しているフォームが変更される可能性があります。 "with"ステートメントのコードを2度書き直すことなくこれを行う方法はありますか？

If FooVarible = true then 
    with forms!form1 
else 
    with forms!form2!subForm1 
endif 
    'have code here 
end with 

が、コンパイルう方法はありません： 私はこのような何かを行うことができますように思えます。

Answer 1

使用変数は：

Dim frm as Object 
If FooVarible = true then 
    Set frm = forms!form1 
else 
    set frm = forms!form2!subform1.form 
endif 
With frm 
    'have code here 
end with 

Answer 2

FooVariable場合は一定のプリコンパイラは、あなたがこれを行うことができますすることができます：まだ知って

#Const FooVariable = False 

Sub Test() 

#If FooVariable Then 
    With Forms!Form1 
#Else 
    With Forms!Form2 
#End If 
     'with block contents 
    End With 

End Sub 

あなたは後何であったかそうではないが、良いです。コンパイルされたらFooVariableがTrueであれば、VBAは、これだけを見ている：

Sub Test() 

    With Forms!Form1 
     'with block contents 
    End With 

End Sub 

そして、これを、FooVariableがFalseの場合：コンパイラは決して不完全Withブロックを見て

Sub Test() 

    With Forms!Form2 
     'with block contents 
    End With 

End Sub 

ていることに注意してください。