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

查询条件：来自公共变量或来自表单

1 个答案: