【求助】能不能利用窗体创建模糊查询，并自动生成报表

喝多野兔

能不能利用窗体创建模糊查询，并自动生成报表，求贴求示例求指点，谢谢了

roych

不妨看看这个：
http://www.office-cn.net/forum.php?mod=viewthread&tid=107443
具体还需要看你自己的需求而定。

tmtony

在窗体 点击 查询按钮时 用代码来设置 窗体的数据源,可模糊搜索
如 me.recordsource="select * from 表 where 字段1 like '*" & me.搜索文本框.value & "*'"

喝多野兔

roych 发表于 2014-6-10 12:32
不妨看看这个：
http://www.office-cn.net/forum.php?mod=viewthread&tid=107443
具体还需要看你自己的需 ...

就是这个意思 但是我有点使用不明白 这是我的具体情况 能帮我看看么 附件在这个帖子里http://www.office-cn.net/thread-118467-1-1.html

喝多野兔

roych 发表于 2014-6-10 12:32
不妨看看这个：
http://www.office-cn.net/forum.php?mod=viewthread&tid=107443
具体还需要看你自己的需 ...

好使了 很棒 万分感谢

喝多野兔

roych 发表于 2014-6-10 12:32
不妨看看这个：
http://www.office-cn.net/forum.php?mod=viewthread&tid=107443
具体还需要看你自己的需 ...

Private Sub Command13_Click()
    Dim db As Database
Dim qdf As QueryDefs
Set db = CurrentDb
S2 = "select "
For i = 0 To Me.List1.ListCount - 1
S2 = S2 & Me.List1.Column(0, i) & ","
Next i
S2 = Mid(S2, 1, Len(S2) - 1) & " from " & TabName & " where 井名='" & Forms![井数据查询].[Text0] & "'"
Dim tmp1 As String
temp1 = " select * from " & TabName & " where 井名='" & Forms![井数据查询].[Text0] & "'"
If S2 <> "select from " & " & TabName & " & " where 井名='" & Forms![井数据查询].[Text0] & "'" Then
On Error Resume Next
DoCmd.DeleteObject acQuery, "自动生成的查询"
Set qdf = db.CreateQueryDef("自动生成的查询", S2)
DoCmd.OpenQuery "自动生成的查询"
End If
Set db = Nothing
    On Error Resume Next
    DoCmd.DeleteObject acReport, "自动生成的查询"
    DoCmd.RunCommand acCmdNewObjectAutoReport
    DoCmd.Save acReport, "自动生成的查询"
    DoCmd.Close acQuery, "自动生成的查询"
End Sub
我是这样添加的你的代码 但这样会同时打开查询和报表 直接删除 DoCmd.OpenQuery "自动生成的查询"还不可以 怎么改进好呢

roych

喝多野兔 发表于 2014-6-10 16:14
Private Sub Command13_Click()
    Dim db As Database
Dim qdf As QueryDefs

主题被删了吗？还是你正在编辑？看不到附件。

喝多野兔

roych 发表于 2014-6-10 16:41
主题被删了吗？还是你正在编辑？看不到附件。

在你的帮助下，已经顺利完成了，很赞，非常感谢
弱弱的问下 ，这样自动生成的报表 可以添加页眉或者每组数据间添加分割线么

roych

喝多野兔 发表于 2014-6-12 16:25
在你的帮助下，已经顺利完成了，很赞，非常感谢
弱弱的问下 ，这样自动生成的报表 可以添加页眉或者每组 ...

那样的话，可能需要做好模板。

sxgaobo

tmtony 发表于 2014-6-10 10:25
在窗体 点击 查询按钮时 用代码来设置 窗体的数据源,可模糊搜索
如 me.recordsource="select * from 表 wh ...

站长！遇到空值不显示数据怎么处理啊？