如果将交叉查询的结果，导到EXCEL里，不知我是错了哪一步

goto2008 · 发表于 2007-7-29 21:32:00

<

>我想将经查询后的结果导到EXCEL里。。。。。但导出的却是所有的记录。。。
<

>请教。。我是哪一步错了。。
<

>

wen123456 · 发表于 2008-12-13 22:56:58

[:24] [:24] [:24] [:24]

friendship · 发表于 2008-12-13 19:55:44

看看小宝的方法！

flijgw · 发表于 2008-12-13 15:24:55

好好学学

yori2007 · 发表于 2008-1-30 10:06:46

学习学习

goto2008 · 发表于 2007-7-30 04:55:00

<

> 
<

>小宝大哥。
<

>非常非常的感谢你。。。。要的就是这效果。。。

t小宝 · 发表于 2007-7-30 03:56:00

goto2008 · 发表于 2007-7-30 03:39:00

<

>
<

>小宝，我看你还是把库上传上来给我瞄瞄吧。。。
<

>人家我很菜的。。。

[此贴子已经被作者于2007-7-29 19:41:28编辑过]

t小宝 · 发表于 2007-7-30 02:47:00

<

>先在你的窗体模块中添加一个子过程:
<

>

rivate Sub s筛选记录(st条件 As String)
 Dim dbs As Database Dim qdf As QueryDef Dim stsql As String stsql = "TRANSFORM Sum(批数) AS 批数之总计 " & _ "SELECT 领取日期, 冲工编号, 冲床工人, 货号, 数量 FROM 冲床领取明细表 " & st条件 & _ " GROUP BY ID, 领取日期, 冲工编号, 冲床工人, 货号, 数量 PIVOT 层名称;" Set dbs = CurrentDb Set qdf = dbs.QueryDefs("冲床领取明细交叉查询1") Me.冲床总工资查询子窗体.SourceObject = "" qdf.SQL = stsql Me.冲床总工资查询子窗体.SourceObject = "查询.冲床领取明细交叉查询1"
 qdf.Close dbs.Close Set qdf = Nothing Set dbs = Nothing End Sub 
然后在 cmd查询_Click 过程中用:
 s筛选记录 " Where " & strWhere
取代
 Me.冲床总工资查询子窗体.Form.Filter = strWhere Me.冲床总工资查询子窗体.Form.FilterOn = True
在此 cmd清除_Click 过程中用:
 s筛选记录 ""
取代
 Me.冲床总工资查询子窗体.Form.Filter = "" Me.冲床总工资查询子窗体.Form.FilterOn = False
你看看,可不可以

goto2008 · 发表于 2007-7-29 23:25:00

<

>郁闷的说。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[查询] 如果将交叉查询的结果，导到EXCEL里，不知我是错了哪一步

本帖子中包含更多资源

更改查询属性,要用到vba和ado

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)