Office中国论坛/Access中国论坛

标题: 求助：数据筛选---生成新表 [打印本页]
作者: jiyu0617    时间: 2009-2-28 17:33
标题: 求助：数据筛选---生成新表
本帖最后由 jiyu0617 于 2009-3-1 08:34 编辑

有一商品数据表，有字段：
ID商品全名分类

  在窗体设计中用户可以通过数据输入对表进行筛选（在商品全名和分类中不包含输入的字符）并生成新表
作者: Henry D. Sy    时间: 2009-2-28 20:26
什么意思
作者: jiyu0617    时间: 2009-3-1 10:42
有没有人帮弄一下？
作者: ACMAIN_CHM    时间: 2009-3-1 11:14
不是没人帮你，是没人喜欢猜谜。

问题说明越详细，回答也会越准确！参见如何提问。（提问的智慧）

我下载了也看不懂你想要什么。随便猜一下吧，剩下的你自己看帮助或者继续猜吧。
在按钮的click事件中添加代码如下。
docmd.runsql "select * from 销售数据 where 商品全名&分类 not like'*qx*' and 商品全名&分类 not like'*jg*' and 商品全名&分类 not like'*" &  me.text15.value &  "*' and 商品全名&分类 not like'*" &  me.text17.value &  "*'   "


谜我只猜一次。
同一贴子不回复第二次

******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
作者: todaynew    时间: 2009-3-1 11:28
本帖最后由 todaynew 于 2009-3-1 11:30 编辑
有一商品数据表，有字段： ID商品全名分类
  在窗体设计中用户可以通过数据输入对表进行筛选（在商品全名和分类中不包含输入的字符）并生成新表
jiyu0617 发表于 2009-2-28 17:33

[attach]36069[/attach]

Private Sub Command91_Click()
Dim sql As String, str As String
str = "商品全名 not like '*qx*' and 商品全名 not like '*jg*' and 分类 not like '*qx*' and 分类 not like '*jg*'"
If Not (IsNull(Me.Text15)) Then
    str = str & " and 商品全名 not like '*" & Me.Text15 & "*'" & " and 分类 not like '*" & Me.Text15 & "*'"
End If
If Not (IsNull(Me.Text17)) Then
    str = str & " and 商品全名 not like '*" & Me.Text17 & "*'" & " and 分类 not like '*" & Me.Text17 & "*'"
End If
Me.销售子表.Form.Filter = str
Me.销售子表.Form.FilterOn = True
sql = "SELECT * INTO 销售数据1 FROM 销售数据 where " & str
DoCmd.SetWarnings True
DoCmd.RunSQL sql
End Sub

[attach]36070[/attach]
作者: wjsfeng    时间: 2009-3-1 13:23
为什么在【最后一个文本框】输入【筛选值】的时候，系统会报错。
作者: jiyu0617    时间: 2009-3-2 12:58
本帖最后由 jiyu0617 于 2009-3-2 13:03 编辑

谢谢ACMAIN_CHM的提醒
也 谢谢大家的帮助！！！



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3