从窗体打开Access报表时参数失效问题求助

这问题我之前帮朋友排查过类似的，核心是Access中控件的.Text属性的坑！咱们一步步来解决：

解决方案1：修改查询的控件引用（快速修复） #

直接调整你报表记录源的SQL语句，把控件引用从.Text属性改成默认的.Value属性（可以省略不写）：

SELECT * FROM AssemblyTree WHERE [AssemblyID] Like "*" & [Forms]![AssemblyForm]![invenbox] & "*";

为什么要改？ #

.Text属性只有在控件获得焦点的时候才会返回当前显示的内容。当你点击窗体上的按钮打开报表时，焦点会立刻从invenbox文本框转移到按钮上，此时.Text会返回空字符串——你的Like条件就变成了Like "*" & "" & "*"，相当于匹配所有记录，这就是为什么报表会显示全部ID的原因。

解决方案2：通过VBA传递筛选条件（更可靠） #

如果第一种方法还是有问题，或者你想让逻辑更清晰，推荐直接在按钮的VBA代码里传递筛选条件，不用在查询里依赖窗体控件引用：

1. 打开AssemblyForm的设计视图，找到打开报表的按钮，双击进入VBA编辑界面
2. 替换原有的代码为：

Private Sub OpenReportBtn_Click()
    Dim filterStr As String
    
    ' 先检查输入框是否为空
    If Trim(Me.invenbox.Value & "") = "" Then
        MsgBox "请输入要查询的AssemblyID关键词！", vbInformation, "提示"
        Me.invenbox.SetFocus
        Exit Sub
    End If
    
    ' 构造筛选条件：如果AssemblyID是文本类型用下面的行；如果是数字类型，用注释掉的那行
    filterStr = "[AssemblyID] Like '*" & Me.invenbox.Value & "*'"
    ' filterStr = "CStr([AssemblyID]) Like '*" & Me.invenbox.Value & "*'"
    
    ' 打开报表并应用筛选
    DoCmd.OpenReport "TreeReport", acViewPreview, , filterStr
End Sub

3. 同时把报表的记录源改成SELECT * FROM AssemblyTree（去掉原来的WHERE条件）
4. 保存窗体和报表，再测试点击按钮打开报表的效果

额外注意点 #

如果你的AssemblyID是数字类型，直接用Like会有问题，因为Like是针对文本的——这时候需要用CStr()把数字字段转换成字符串再进行模糊匹配，就是上面代码里注释掉的那行。

内容的提问来源于stack exchange，提问作者Luca