在“With”语句上使用“IF”语句

Question

I am trying to set up a "with" statement in vba code in Access, but the form that the "With" is referencing could change. Is there a way to do this without rewriting the code in the "with" statement twice? it seems like I could do something like this:

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

but there is no way that would compile.

Answer 1

Use a variable:

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

If FooVariable can be a precompiler constant then you can do this:

#Const FooVariable = False

Sub Test()

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

End Sub

Likely not what you were after, but good to know still. Once compiled, VBA only sees this if FooVariable is True :

Sub Test()

    With Forms!Form1
        'with block contents
    End With

End Sub

And this, if FooVariable is False :

Sub Test()

    With Forms!Form2
        'with block contents
    End With

End Sub

Notice that the compiler never ever sees an incomplete With block.