access的窗体数据源是可以是表或者查询，但是access查询设计器是不支持直接以引用变量为查询条件的，一般使用我们用sql语句连接变量，然后在VBA代码里对窗体重新配置数据源，或者将变量放入窗体控件，然后在查询内使用forms![窗体].[控件值]的方法引用变量，这些方法都不是很方便，复杂sql语句在代码里容易出错，也不好理解，使用窗体控件又受到窗体加载的制约。那么有没有更直接的方法呢？我们通过自定义函数获取变量值就可以在查询设计器里“直接”应用变量了。

点击下载此附件

建立模块：

Public G_CNT

Function AA()
    AA = G_CNT
End Function

查询设计视图：