在"With"语句中使用"IF"语句

Question

我试图在Access中的vba代码中设置"with"语句,但"With"引用的表单可能会更改.有没有办法在不重写"with"语句两次的代码的情况下执行此操作？好像我可以这样做:

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