查询条件:从公共变量或从表单

Question

经过几个小时的搜索，我找不到任何解决我遇到的这个小问题的方法。

我有一个查询，从表单中检索它的一个条件。我已经从查询中正确地引用了表单上的值，并且它有效，但是我想做的是有点复杂:当表单关闭时，我想用"默认值"启动查询。

我尝试用两种不同的方式来做:a)在查询条件中定义"IIf":我需要一个函数来检查从中检索值的表单是否打开。b)定义具有默认值的公共变量，该变量将从以下形式更改:我不知道在何处/何时初始化变量的值。

有谁有更好的主意吗?

TL;DR:查询从打开的表单中获取条件。如果窗体关闭，查询使用默认值。的帮助!

Answer 1

您可以在模块中创建一个VBA函数来完成以下操作:

Function MyCriterion() As Long
  MyCriterion = 1234                           '   default value
  If CurrentProject.AllForms("MyForm").IsLoaded Then
      MyCriterion = Forms("MyForm").MyControl.Value
  End If
End Function