Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access问答 → 一个很奇怪很奇怪的问题,求大家帮忙求解!!

一个很奇怪很奇怪的问题,求大家帮忙求解!!

fny　 发表于：2011-11-18 09:34:09 　
复制

我设置了一个窗体,用来查询的(详见附件)

在窗体中, 我选择 "未来料" 项,再点击 "查询", 窗体中列出了 符合 要求记录,

然而在导出到EXCEL表中,导出的却是全部

 

同样, 

在窗体中, 我选择 "已来料" 项,再点击 "查询", 窗体中列出了 符合 要求记录,

然而在导出到EXCEL表中,导出的却是全部

 

我于是同步转到 查询表 中查看,列出的也是 全部项

 

但窗体中为什么列出的记录却能符合要求?

 

而同步的查询表中列出的记录却是全部??

 

实在太困扰我了,求朋友相助!

 

点击下载此附件

 

Top
jia 发表于：2011-11-18 09:42:52

用以下的代码替代你的“宏”。可达到你的要求

Private Sub 导出_Click()
On Error GoTo Err_导出_Click

  Me![查询子窗体].SetFocus    '把焦点移动子窗体上
 
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
 
    Dim obj As Object
    Set obj = CreateObject("Excel.Application") '创建Excel对象
    obj.Workbooks.Add
    obj.Visible = True ' 打开导出的Excel文件
    SendKeys "^v"

Exit_导出_Click:
    Exit Sub

Err_导出_Click:
    MsgBox Err.Description
    Resume Exit_导出_Click

End Sub



Top
jia 发表于：2011-11-18 09:43:00

用以下的代码替代你的“宏”。可达到你的要求

Private Sub 导出_Click()
On Error GoTo Err_导出_Click

  Me![查询子窗体].SetFocus    '把焦点移动子窗体上
 
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
 
    Dim obj As Object
    Set obj = CreateObject("Excel.Application") '创建Excel对象
    obj.Workbooks.Add
    obj.Visible = True ' 打开导出的Excel文件
    SendKeys "^v"

Exit_导出_Click:
    Exit Sub

Err_导出_Click:
    MsgBox Err.Description
    Resume Exit_导出_Click

End Sub



Top
fny 发表于：2011-11-18 10:00:47

首先谢谢你!

你用的方法对导出的EXCEL表是有效的, 但是你有没有发觉:

 

在窗体中, 选择 "未来料" 项,再点击 "查询", 窗体中列出了 符合 要求记录

同步打开 查询表 "订单明细表查询"  中查看,列出的是 全部项!!

 

在窗体中, 选择 "已来料" 项,再点击 "查询", 窗体中列出了 符合 要求记录

同步打开 查询表 "订单明细表查询"  中查看,列出的是 全部项!!

 

但是

在窗体中, 选择 "订单号" 等项,再点击 "查询", 窗体中列出了 符合 要求记录

同步打开 查询表 "订单明细表查询"  中查看,列出的和窗体中是一样的!!

 

这说明什么?

 

这说明 窗体 与 查询表 一定在那个环节出问题了???

 

请大家再帮忙把这个问题 解出??

 

 

 

 

 



Top
jia 发表于：2011-11-18 10:53:34

你用一个“查询”按钮进行了二种查询。如将“查询”按钮名称改一下就看出了。



Top
fny 发表于：2011-11-18 11:17:39

我改了,可是还是不行啊

能不能你干脆传个附件上来 (把我的附件改一下上传过来看看啊)



Top
simon 发表于：2011-11-18 17:03:12
点击下载此附件,修改了数据源,请看附件.

Top
总记录：6篇  页次：1/1 9 1 :

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4