MS Access中导航表单上的docmd.applyfilter

Question

在使用导航表单时，是否有应用过滤器（不使用SQL脚本）？

当我在导航表单之外执行docmd.applyfilter时，它可以工作。 当我将表单移动到我的导航表单时，它不再起作用 - 我已经看过我如何引用我的表单等。

我的代码是

Dim BusinessTermLookup As String

BusinessTermLookup = Me!CmbSimilarMatch
Me.Filter = "[businessterm]like ' & BusinessTermlookup '"
Me.FilterOn = True

我尝试使用docmd.applyfilter - 但它会出错

  

操作或方法无效，因为表单或报表未绑定到表或查询

Answer 1

过滤器文本应为"[businessterm] Like '*" & BusinessTermlookup & "*'"，并确保导航表单中的过滤器应用于导航窗体子窗体控件，而不是用作导航窗体页面的窗体对象。每次单击导航按钮时，它都会动态替换子窗体控件中的表单对象。如果从用作页面的表单对象内部调用，VBA代码应该可以正常工作。