在VBA中定义一个函数别名,可能吗？

Question

我在MS Access后面使用VBA说我有全局方法foo1和foo2获取相同的参数但做不同的事情.我知道在C++中我可以为一个函数分配一个别名.像:代替:

If (term) then
   foo1 arg1, arg2, arg3
else
   foo2 arg1, arg2, arg3
End If

我想写:

Var new_func = Iff (term, foo1,foo2)
new_func arg1, arg2, arg3

我可以在vba上这样做吗？

Answer 1

会跑吗？

new_func = IIf(term, "foo1", "foo2")
''new_func arg1, arg2, arg3

res = Run(new_func, "a", "b", 1)

更多信息:http://msdn.microsoft.com/en-us/library/aa199108(office.10).aspx