求助：数据筛选---生成新表

jiyu0617

有一商品数据表，有字段：

ID

商品全名

分类

  在窗体设计中用户可以通过数据输入对表进行筛选（在商品全名和分类中不包含输入的字符）并生成新表

Henry D. Sy

什么意思

jiyu0617

有没有人帮弄一下？

ACMAIN_CHM

不是没人帮你，是没人喜欢猜谜。

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

我下载了也看不懂你想要什么。随便猜一下吧，剩下的你自己看帮助或者继续猜吧。
在按钮的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

有一商品数据表，有字段： ID商品全名分类
  在窗体设计中用户可以通过数据输入对表进行筛选（在商品全名和分类中不包含输入的字符）并生成新表
jiyu0617 发表于 2009-2-28 17:33

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

wjsfeng

为什么在【最后一个文本框】输入【筛选值】的时候，系统会报错。

jiyu0617

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